EXCEL VBA组合框中添加新的选项，

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

---