Comboboxでアイテムを追加/取得する方法

Question

コンボボックスやリストボックスにどのように追加/取得するか（.NETのようにdisplayメンバとして名前を付けます）

は基本的に、私は、ユーザーの名前を表示したいとコンボボックスから名前を選択した後、私はさらに使用するため名選択に基づいてDESCを取得したいです。私はコンボボックスに名を追加していますが（DBからDESC列です）itmeindexColumnとしてDESCを追加する方法がわからないコードの下に使用して

。 （同じようなValueMemberで、.NETのコンボボックスでDisplaymember）

Dim rs As New ADODB.Recordset 
Dim sqltextexec As String 
Set rs = New ADODB.Recordset 

sqltextexec = " SELECT Name , Name + '-' + Code 'Desc' from Employee " 
    rs.Open sqltextexec, cn 
    rs.MoveFirst 
With Sheets("Sheet1").ComboBox1 
    .Clear 
    Do 
     .ComboBox1.AddItem rs![Name] 
     rs.MoveNext 
    Loop Until rs.EOF 
End With 

Answer 1

まず、あなたが提示スニペット

.ComboBox1.AddItem rs![Name]にタイプミスがある - を参照するために>.AddItem rs![Name]

を選択したインデックスとコンボボックスのテキストにはそれぞれ.ListIndexと.Valueを使用します。テキストには.Textを使用することもできます。例：

Private Sub ComboBox1_Change() 
    Debug.Print ComboBox1.ListIndex, ComboBox1.Value, ComboBox1.Text 
End Sub