如何在Excel VBA中的Userformcombobox代码中设置多个select列表？

目前我引用Excel单元格有下拉select在我的列表在用户窗体中。 我想修复select直接从VBA的几个select，但不知道如何编写列表..expression式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 

Answer 1

 Me.ComboBox1.List = Array("CIBSE", "ASHRAE") 

Answer 2

 Combobox1.List = Split("CIBSE,ASHRAE", ",") 

也会工作，甚至

 Combobox1.List = Split("CIBSE ASHRAE") 

使用默认的分隔符是一个空格。