VBA连接TextBox和ListBox

Question

我是VBA的新手，我想知道将ListBox中第二列的值与用户填写的TextBox连接的最佳方法是什么？

到目前为止我的代码：

Private Sub UserForm_Initialize()

With ListBox1
.ColumnCount = 2
.ColumnHeads = False
.ColumnWidths = "30;15"
.MultiSelect = 0

ListBox1.AddItem "AAA"
ListBox1.AddItem "BBB"
ListBox1.AddItem "CCC"
ListBox1.AddItem "DDD"
ListBox1.List(0, 1) = 15
ListBox1.List(1, 1) = 19
ListBox1.List(2, 1) = 49
ListBox1.List(3, 1) = 45

    End With
End Sub

现在我有TextBox aka DWG，其中用户输入大约5个数字左右。

Private Sub DWG_change
    Dwg= "Numbers" & ListBox."SecondColumnValue"
End Sub

这是我正在测试的userForm：

Answer 1

您可以将ListBox1.Bound或Listbox1.TextColumn设置为1，也可以使用ListBox1.ListIndex查找列表框列表中的值。

Private Sub ListBox1_Click()

    Me.Caption = ListBox1.Value
    TextBox1.Value = TextBox1.Value & ListBox1.List(ListBox1.ListIndex, 1)

End Sub