vba列表框多列添加[重复]

Question

可能重复：
Adding items in a Listbox with multiple columns

使用 MFC VC++ 有两个控件，ListBox 和 ListCtrl。但是对于 VBA，我们似乎只有 ListBox。

我想创建一个包含 2 列（Company_ID、Company_Name）的列表框。

这是我尝试过的：

1. 我创建了lstbox（控件类型ListBox）
2. 行源类型 = 值列表
3. 我从两个编辑框中获取用户的值，当用户单击“添加”时，它应该添加到具有 2 列的列表框中。

在 VBA 代码例程中，我添加了以下几行：

lstbox.ColumnCount = 2
lstbox.AddItem (Company_ID)

以下代码不起作用，似乎与添加列值有关：

lstbox.Column(1,lstbox.ListCount - 1) = Company_name

这给出了错误：

需要运行时错误“424”对象。

任何人都可以帮助使用 vba 代码添加到多列列表框。

Answer 1

简化示例（带计数器）：

With Me.lstbox
    .ColumnCount = 2
    .ColumnWidths = "60;60"
    .AddItem
    .List(i, 0) = Company_ID
    .List(i, 1) = Company_name 
    i = i + 1

end with

确保以 0 开始计数器，而不是 1 以填充列表框。