Question

VBA 如何取ListBox中的第i行数据

我想循环所有ListBox中的记录，不知道怎么取第i行的值……求助ing……

Answer 1

TextColumn 属性
当用户在组合框或列表框中选定一行时，标识相应的列，将其保存在 Text 属性中。
语法
object.TextColumn [= Variant]
TextColumn 属性的语法包括以下成分：
object 必需。一个有效对象。
Variant 可选。待显示的列。
设置
TextColumn 属性取值范围是从 -1 到列表的列数之间的数值。第一列的 TextColumn 值是 1，第二列的 TextColumn 值是 2，依此类推。将 TextColumn 的值设置为 0 则显示 ListIndex 的值；将TextColumn 的值设置为 -1 则显示 ColumnWidths 值大于 0 的第一列。
说明
在组合框中，系统将显示由该控件文本框部分的 TextColumn 属性所指定的列。
当用户在组合框或列表框中选定一行后，由 TextColumn 所引用的那一列就被保存到 Text 属性中。例如，可以建立一个多列列表框，其中第一列包含假期的名称，第二列包含假期的日期。要向用户显示假期的名称，可将第一列指定为 TextColumn；
要保存假期的日期，可将第二列指定为 BoundColumn；要隐藏假期的日期，可将第二列的 ColumnWidths 属性设为 0。
当组合框的 Text 属性发生变化时（例如当用户向控件中键入了一个条目时），新文本将与 TextColumn 指定的数据列进行比较。

Answer 2

Private Sub ListBox1_Click()
MsgBox ListBox1.List(ListBox1.ListIndex)
End Sub

list属性就可以返回值

追问

原来如此次！谢谢！！

追答

好。