excel vba填充comobox

我必须为我的用户表单填写几个combobox，但是当我加载用户表单时，combobox没有填充。 这里是代码：

Private Sub UserForm_Initialize() ComboBox1.Clear ComboBox1.AddItem "CSA" ComboBox1.AddItem "CAT" ComboBox1.AddItem "CAS" ComboBox1.Text = ComboBox1.List(0) End Sub Private Sub ComboBox1_Change() Select Case ComboBox1.Text Case "CSA" Case "CAT" Case "CAS" Case Else End Select End Sub 

Answer 1

我用了错误的名字 它必须是UserForm_Initialize（）。