目前,我正在引用Excel单元格以在Userform的列表中具有下拉选项。我想直接从 VBA 将选择固定为几个选项,但不确定如何编写列表。表达式Me.ComboBox1.List = ('CIBSE','ASHRAE')
不起作用。
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Worksheets("ControlSetUp").Range("b25:b26").Value
'Me.ComboBox1.List = ('CIBSE','ASHRAE')
Me.ComboBox1.Value = Worksheets("ControlSetUp").Range("d15").Value
End Sub
Me.ComboBox1.List = Array("CIBSE", "ASHRAE")
Combobox1.List = Split("CIBSE,ASHRAE", ",")
也会工作,甚至
Combobox1.List = Split("CIBSE ASHRAE")
使用默认的拆分分隔符,这是一个空格。