从数组中选择列表框中的项目

Question

我目前有一个列表以逗号分隔的单元格（1,2,3），列表并不总是相同的项目数量。它最多可以有10个项目。

然后我有一个列表框，其中包含项目1 - 10。

我希望能够在包含列表框的表单上选择单元格中的特定项目。

我已经开始将单元格拆分成这样的数组：

Dim Array() As String
    Array= Split(ActiveSheet.Range("A1"), ",")

但我无法弄清楚如何选择列表框中与数组匹配的项目。

Answer 1

请尝试以下代码。我测试了它。它对我来说很好。

    Sub formdisplay()
    Dim valsToSelect
    valsToSelect = Split(Range("E6").Value, ",") 'E6 is my cell where i have my value in the form of 5,6,7,9
    For Each item In valsToSelect
    i = 0
        For Each listItem In UserForm1.ListBox1.List
            If CStr(listItem) = item Then
             UserForm1.ListBox1.Selected(i) = True
             Exit For
            End If
            i = i + 1
        Next
    Next

 UserForm1.Show
End Sub