vba - vba列表框多列添加

Question

可能重复：
在具有多列的列表框中添加项目

使用 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 来填充列表框。