vba给combox控件赋多值的方法

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

需要这些哦
excel
方式/
1打开excel法式,在sheet1表单A1:A4中输入值,用作为一次性赋于combox控件的值 。

vba给combox控件赋多值的方法

文章插图

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

vba给combox控件赋多值的方法

文章插图

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

vba给combox控件赋多值的方法

文章插图

4双击窗口中的按钮,打开代码编纂窗口,如下图所示输入以下代码:
Me.CmbxCity.RowSource = "sheet1!a1:a4"

vba给combox控件赋多值的方法

文章插图

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

vba给combox控件赋多值的方法

文章插图

6我们还可以如下改换按钮中的代码,运行后,同样可以实现给“ComboBox”控件赋多值的结果:
  Dim ListCity
  ListCity = ThisWorkbook.Sheets(1).Range("a1:a4")
  Me.CmbxCity.List = ListCity

vba给combox控件赋多值的方法

文章插图

7除了可以将sheet表单中的值一次性赋给"ComboBox”控件外,我们也可以自界说赋值内容,如下,起首界说了一个变量,先给它赋值当作list对象,最后再将它的值赋给"ComboBox”控件,实现了赋多值 。
  Dim ListCity
  ListCity = [{"海说神聊京";"天津";"河海说神聊";"河南"}]
【vba给combox控件赋多值的方法】  Me.CmbxCity.List = ListCity

vba给combox控件赋多值的方法

文章插图

vba给combox控件赋多值的方法

文章插图


以上内容就是vba给combox控件赋多值的方法的内容啦,希望对你有所帮助哦!

    推荐阅读