excel - 使用 VBA 将 VALUES + INDEX 添加到 Excel 中的 ActiveX 组合框

Question

如何向组合框添加项目和索引，我有以下内容，但它说这是一个无效的参数：

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

A5是一个整数（索引）值 [34]，B5是一个字符串/日期（实际）值 [2012 年 1 月 4 日]。作为参考，在此之前的代码会从数据库中导入最后更新/插入的记录。

我想要实现的是让组合框显示 [001 | String Value ]，即显示两列，以后可以参考。

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