vba listbox multicolumn add

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来填充列表框.