在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

---