Excel中ComboBox控件的一个小问题

来源：百度知道 编辑：UC知道 时间：2024/07/15 16:05:52
我是刚刚学玩Excel的控件。在用ComboBox控件添加如下下拉菜单是遇到一个小问题，请高手指教。
Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_DropButtonClick()
ComboBox1.AddItem "1 in 2"
ComboBox1.AddItem "1 in 4"
ComboBox1.AddItem "1 in 8"
ComboBox1.AddItem "1 in 16"
ComboBox1.AddItem "1 in 32"
End Sub

但是这样一来的话，每一次点击窗体上的向下的键，上述添加指令就执行一遍，结果下拉菜单越来越长，请问如何保证不管怎样的情况下，添加指令只被执行一次？

Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
ComboBox1.AddItem "1 in 2"
ComboBox1.AddItem "1 in 4"
ComboBox1.AddItem "1 in 8"
ComboBox1.AddItem "1 in 16"
ComboBox1.AddItem "1 in 32"
End Sub
如此而已

你为什么要把添加item的代码放在combobox的dropbuttonclick事件里呢？

你完全可以放到form的show或open等事件中。

ps:楼上的也是正解。

不用添加命令AddItem，用List
ComboBox1.List = Array("1 in 2", "1 in 4", "1 in 8", "1 in 16", "1 in 32")