vba给combox控件赋多值的方法

vba给combox控件赋多值的方式？下面，小编来为大师介绍一下若何操纵vba来为combox控件一次赋多个值。

东西/原料

1
打开excel法式，在sheet1表单A1：A4中输入值，用作为一次性赋于combox控件的值。
2
再依次在东西栏中点击“开辟东西”——“Visual Basic”或直接按快捷键"Alt+F11"，打开“Microsoft Visual Basic”窗口。
3
在“Microsoft Visual Basic”窗口中，点击“插入”——“用户窗体”，并如下图所示，在用户窗体上别离添加一个“ComboBox”组件和一个"CommandButton1"组件。
4
双击窗口中的按钮，打开代码编纂窗口，如下图所示输入以下代码：
Me.CmbxCity.RowSource = "sheet1!a1:a4"
5
按“F5”运行vba代码，在运行后窗口中点击按钮，然后再点击“ComboBox”控件，下拉框中就可以看到sheet1表中的A1:A4的值了。
6
我们还可以如下改换按钮中的代码，运行后，同样可以实现给“ComboBox”控件赋多值的结果：
Dim ListCity
ListCity = ThisWorkbook.Sheets(1).Range("a1:a4")
Me.CmbxCity.List = ListCity
7
除了可以将sheet表单中的值一次性赋给"ComboBox”控件外，我们也可以自界说赋值内容，如下，起首界说了一个变量，先给它赋值当作list对象，最后再将它的值赋给"ComboBox”控件，实现了赋多值。
Dim ListCity
ListCity = [{"海说神聊京";"天津";"河海说神聊";"河南"}]
Me.CmbxCity.List = ListCity