使用多列添加列表框中的项目

Question

如何使用2 columns在列表中添加项目？如果我使用ListBox.AddItem，它会在第一列中添加项目。我也希望在2nd column中添加项目。 谢谢！

Answer 1

使用List属性。

ListBox1.AddItem "foo"
ListBox1.List(ListBox1.ListCount - 1, 1) = "bar"

Answer 2

还有一种方法可以实现它： -

Private Sub UserForm_Initialize()
Dim list As Object
Set list = UserForm1.Controls.Add("Forms.ListBox.1", "hello", True)
With list
    .Top = 30
    .Left = 30
    .Width = 200
    .Height = 340
    .ColumnHeads = True
    .ColumnCount = 2
    .ColumnWidths = "100;100"
    .MultiSelect = fmMultiSelectExtended
    .RowSource = "Sheet1!C4:D25"
End With End Sub

这里，我使用范围C4：D25作为列的数据源。这将导致两个列都填充值。

属性是不言自明的。您可以通过在UserForm中绘制ListBox并使用＆＃34;属性窗口（F4）＆＃34;来探索其他选项。使用选项值。

Answer 3

选择适当的

行来源类型=＆gt;价值表

代码：

ListbName.ColumnCount = 2

ListbName.AddItem＆＃34; value column1; value column2＆＃34;