vba给combox控件赋多值的方法

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

工具/原料

• excel

方式/步骤

1. 1

   打开excel法式，在sheet1表单A1：A4中输入值，用作为一次性赋于combox控件的值。

   
2. 2

   再依次在东西栏中点击“开辟东西”——“Visual Basic”或直接按快捷键"Alt+F11"，打开“Microsoft Visual Basic”窗口。

   
3. 3

   在“Microsoft Visual Basic”窗口中，点击“插入”——“用户窗体”，并如下图所示，在用户窗体上别离添加一个“ComboBox”组件和一个"CommandButton1"组件。

   
4. 4

   双击窗口中的按钮，打开代码编纂窗口，如下图所示输入以下代码：

   Me.CmbxCity.RowSource ="sheet1!a1:a4"

   
5. 5

   按“F5”运行vba代码，在运行后窗口中点击按钮，然后再点击“ComboBox”控件，下拉框中就可以看到sheet1表中的A1:A4的值了。

   
6. 6

   我们还可以如下改换按钮中的代码，运行后，同样可以实现给“ComboBox”控件赋多值的结果：

     Dim ListCity

     ListCity = ThisWorkbook.Sheets(1).Range("a1:a4")

     Me.CmbxCity.List = ListCity

   
7. 7

   除了可以将sheet表单中的值一次性赋给"ComboBox”控件外，我们也可以自界说赋值内容，如下，首先界说了一个变量，先给它赋值当作list对象，最后再将它的值赋给"ComboBox”控件，实现了赋多值。

     Dim ListCity

     ListCity = [{"海说神聊京";"天津";"河海说神聊";"河南"}]

     Me.CmbxCity.List = ListCity