如何在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的关联值等等像锤子一样的valyes ...... 谢谢你的时间，

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