如何将列表框中的所有选定数据存储在VBA中的数组中

Question

我想知道是否有一种简单的方法可以将 ListBox 中的所有选定项目存储到一个数组中。

我尝试使用以下代码执行此操作，但它没有工作除了例外。 FilterTest()什么都不给我。

Private Sub ListBox1_Change()

    Dim FilterTest() As Variant
    Dim myMsg As String
    Dim i As Long
    Dim Count As Integer


    Count = 1

    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then

            ReDim Preserve FilterTest(Count)
            FilterTest(Count) = ListBox1.List(i)
            Count = Count + 1


        End If
    Next i

End Sub

Answer 1

你很亲密。数组是以 0 为基数的集合（除非另有说明），所以从 0 开始计数。您也可以在声明变量时去掉括号。接下来，第一次重新调整变量，然后在接下来的迭代中重新调整变量。

Private Sub ListBox1_Change()

    Dim FilterTest As Variant
    Dim myMsg As String
    Dim i As Long
    Dim Count As Integer

    Count = 0

    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            If Count = 0 Then
                Redim FilterTest(Count)
            Else
                Redim Preserve FilterTest(Count)
            End If
            FilterTest(Count) = ListBox1.List(i)
            Count = Count + 1
        End If
    Next i

End Sub