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