vba - 如何在 Excel VBA 用户窗体中创建两列查找组合框

Question

你能告诉我如何在 Excel VBA 用户窗体中创建一个两列查找组合框吗？我正在寻找这样的东西：

我知道我们可以使用以下方法将项目添加到组合框：

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

但我需要用 215,316,485 等生成一个关联值，比如锤子，......谢谢你的时间，

Answer 1

填充一个二维数组并将ListComboBox 的属性设置为该数组：

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属性