如何在Excel VBA中創建兩列查找組合框用戶窗體

Question

您能否讓我知道如何創建兩列在Excel VBA UserForm中查找組合框？我期待創造一些這樣的事：

我知道我們可以用這樣的方法將項目添加到組合框：

Private Sub UserForm_Initialize() 
    With Me.ComboBox1 
    .AddItem "215" 
    .AddItem "316" 
    .AddItem "485" 
    End With 
End Sub 

，但我需要生成215316485一關聯值等valyes像錘子，... 感謝您的時間，

Answer 1

填充一個二維數組，並將該組合框的List屬性設置爲該數組：

Dim listEntries(3, 2) As Variant 

listEntries(0, 0) = "215" 
listEntries(0, 1) = "Hammer" 
listEntries(1, 0) = "316" 
listEntries(1, 1) = "Wrench" 
listEntries(2, 0) = "485" 
listEntries(2, 1) = "Pliers" 

Me.ComboBox1.List = listEntries 

你也可能需要相應地調整ColumnWidths和TextColumn性能