使用VBA將VALUES + INDEX添加到Excel中的ActiveX ComboBox

Question

我如何向組合框添加項目和索引，我得到了下面的內容，但它說這是一個無效的參數：

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

A5是整數（索引）值[34]， B5是字符串/日期（實際）值[2012年1月4日]。 作為參考，在此之前的代碼從數據庫中導入了最后更新/插入的記錄。

我要實現的是讓組合框顯示[001 | 字符串值]，即顯示兩列，我以后可以參考。

Answer 1

要將項目添加到第二列，請使用.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