尝试在 vba 中为 excel 创建并填充 activex 组合框时遇到问题。下面的代码在作为两个单独的宏运行时有效,但是当我尝试将两者放在一起时,会创建一个空的组合框。谁能告诉我为什么会这样以及如何克服这个问题?
在此先感谢,JW
Sub CreateComboBox1()
'Creating ComboBox1:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Link:=False, DisplayAsIcon:=False, Left:=50, Top:=80, Width:=100, _
Height:=15).Select
End Sub
Sub PopulateComboBox1()
'Populating ComboBox1
Sheet1.ComboBox1.AddItem "Date", 0
Sheet1.ComboBox1.AddItem "Player", 1
Sheet1.ComboBox1.AddItem "Team", 2
Sheet1.ComboBox1.AddItem "Goals", 3
Sheet1.ComboBox1.AddItem "Number", 4
End