VBA第十期 ListBox1.List（）函数的多种用法

在列表的选择中，不管是单选还多选，我们都需要知道返回的是选中哪一条，需要用到ListBox1.List(i)函数，但有时候我们的列表中有多列关键信息，比如：编号、姓名、年龄，我们需要反馈的数据是其中某一列的值来作为下一步的检索条件，这样就可以用到ListBox1.List()函数的另外一个功能，实例如下：

ReDim listmsg(1 To 30)

ii = 1

For i = 1 To ListBox1.ListCount - 1

  If ListBox1.Selected(i) Then

      listmsg(ii) = ListBox1.List(i)

      If ii < 30 Then ii = ii + 1

  End If

Next

'If Not rowrange Is Nothing Then rowrange.Select

Workbooks("全部.xlsm").Sheets(1).Range("1:65536").Delete

lnlist = UBound(listmsg)

For i = 1 To inlist

  If ListBox1.Selected(i) Then

      listgp(ii) = ListBox1.List(i, 1)

      If ii < 5 Then ii = ii + 1

  End If

Next

上面的实例中就用到了ListBox1.List(i, 1)来返回选中行的第一列的值“编号”，ListBox1.List(i, 1)的第二个参数就是代表需要返回的列号。