excel - VBAでExcelのActiveX ComboBoxにVALUES + INDEXを追加

Question

項目とインデックスをコンボ ボックスに追加するにはどうすればよいですか?

Me.lstDataSet.AddItem wsB.Range("B5"), wsB.Range("A5")

A5整数 (インデックス) 値 [34] でB5あり、文字列/日付 (実際の) 値 [2012 年 1 月 4 日] です。参考までに、この前のコードは、データベースから最後に更新/挿入されたレコードをインポートします。

私が達成したいのは、コンボボックスを表示することです[ 001 | String Value ]、つまり、後で参照できる 2 つの列を表示します。

Answer 1

2 番目の列に項目を追加するには、次を使用します.List

Me.ComboBox1.Clear
Me.ComboBox1.AddItem "1"
Me.ComboBox1.List(0, 1) = "testing" ' add text in second column (0 based array)
Me.ComboBox1.AddItem "2342"
Me.ComboBox1.List(Me.ComboBox1.ListCount-1, 1) = "more testing" 
' add it to last item added, no need to remember where you are