vba给combox控件赋多值的方法?下面,小编来为大家介绍一下如何利用vba来为combox控件一次赋多个值。
工具/原料
excel
方法/步骤
1、打开excel程序,在sheet1表单A1:A4中输入值,用作为一次性赋于combox控件的值。
2、再依次在工具栏中点击“开发工具”——“VisualBasic”或直接按快捷键"Alt+F11",打开“MicrosoftVisualBasic”窗口。
3、在“MicrosoftVisualBasic”窗口中,点击“插入”——“用户窗体”,并如下图所示,在用户窗体上分别添加一个“ComboBox”组件和一个"CommandButton1"组件。
4、双击窗口中的按钮,打开代码编辑窗口,如下图所示输入以下代码:Me.CmbxCity.RowSource="sheet1!a1:a4"
5、按“F5”运行vba代码,在运行后窗口中点击按钮,然后再点击“ComboBox”控件,下拉框中就可以看到sheet1表中的A1:A4的值了。
6、我们还可以如下更换按钮中的代码,运行后,同样可以实现给“ComboBox”控件赋多值的效果:DimListCityListCity=ThisWorkbook.Sheets(1).Range("a1:a4")Me.CmbxCity.List=ListCity
7、除了可以将sheet表单中的值一次性赋给"ComboBox”控件外,我们也可以自定义赋值内容,如下,首先定义了一个变量,先给它赋值成list对象,最后再将它的值赋给"ComboBox”控件,实现了赋多值。DimListCityListCity=[{"北京";"天津";"河北";"河南"}]Me.CmbxCity.List=ListCity