vba 列表框多列添加 [英] vba listbox multicolumn add

问题描述

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

在 MFC VC++ 中有两个控件，ListBox 和 ListCtrl.但是使用 VBA 似乎我们只有 ListBox.

With MFC VC++ there are two controls, ListBox and ListCtrl. But with VBA it seems we have only ListBox.

我想创建一个包含 2 列(Company_ID、Company_Name)的列表框.

I want to create a listbox with 2 columns (Company_ID, Company_Name).

这是我尝试过的:

1. 我创建了 lstbox(控件类型 ListBox)
2. 行源类型 = 值列表
3. 我从两个编辑框中获取用户的值，当用户点击添加"时，它应该添加到包含 2 列的列表框.

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

In the VBA code routine I added the following lines:

lstbox.ColumnCount = 2
lstbox.AddItem (Company_ID)

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

The following code is not working which seems to be related with adding column value:

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

这给出了错误:

需要运行时错误424"对象.

Runtime error '424' object required.

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

Could anyone help with vba code to add to multi column listbox.

推荐答案

简化示例(带计数器):

Simplified example (with counter):

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

Make sure to start the counter with 0, not 1 to fill up a listbox.

这篇关于vba 列表框多列添加的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！