VBA TextBoxとListBoxを連結します

Question

私はVBAを初めて使い、ListBoxの2番目の列の値をユーザーが入力した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 

は、今私は、ユーザーが約5の数字かそこらで入力されDWG別名テキストボックスを持っています。

Answer 1

あなたは1からListBox1.BoundまたはListbox1.TextColumnのいずれかを設定することができたり、リストボックスの一覧で値をルックアップするためにListBox1.ListIndexを使用することができます。ここでは

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

は、私がテストだ私のユーザーフォームです。

Private Sub ListBox1_Click() 

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

End Sub