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

Question

你能告訴我如何在Excel VBA UserForm中創建兩列查找組合框嗎？ 我希望創建這樣的東西：

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

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

但我需要生成一個215,316,485等關聯值，如錘子等等，感謝你的時間，

Answer 1

填充二維數組並將ComboBox的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屬性