在具有多列的列表框中添加项目

我怎样才能添加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并使用“属性窗口（F4）”来使用选项值来探索其他选项。

Answer 3

select好看

行来源types=>值列表

代码：

ListbName.ColumnCount = 2

ListbName.AddItem“value column1; value column2”