在excel vba中如何给用户窗口的组合框添加值

你在组合框Chang事件中添加你需要处理的事务就可以了

Private Sub ComboBox3_Change()

If (Me.ComboBox3.Text = "Rad") Then

Me.BackColor = a

ElseIf (Me.ComboBox3.Text = "Rad") Then

Me.BackColor = b

End If

End Sub

Private Sub ComboBox1_Click()

    [A1] = ComboBox1.Text  '赋值到单元格

End Sub

Private Sub UserForm_Initialize()

    ComboBox1.AddItem "AAAA"   '添加

    ComboBox1.AddItem "BBBB"

    ComboBox1.AddItem "CCCC"

End Sub

唉，本来不想加上过程的，看了上面的回答不得不提醒你下。

不能把代码像上面那样放到 Change事件中，因为这个事件，你输入一个字符就会触发一次，如果你输入 123 结果就是 组合框有 1，12，123.我想这不是你希望的吧？

加一个按钮，点击按钮后再赋值

Private Sub CommandButton1_Click()

UserForm1.ComboBox1.AddItem TextBox1.Text

End Sub

---