從數組中選擇列表框中的項目

我目前有一個單元格，列表以逗號分隔（1，2，3），列表並不總是相同數量的項目。它可以達到10個項目。從數組中選擇列表框中的項目

然後我有一個列表框，其中的項目1 - 10。

我希望能夠選擇窗體上的單元格中的特定項目與列表框。

我已經通過細胞分裂成一個這樣的數組開始：

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

但我無法弄清楚如何選擇我的列表框中數組匹配的項目。

來源

2016-02-05 Cornflake2068

抱歉，我沒有理解你的問題。你能不能更清楚些？您是否期望根據單元格中存在的值更改列表框中的值no有點像單元格爲1,2,3以及列表框應該只有這3個值並且單元格是3,4,5,7列表框應該有這4個值。我的理解是否正確？另請分享您的代碼 – Siva

我想選擇列表框中的項目，如果它們出現在單元格中。所以如果單元格A1是3,4,5,7。然後，我希望項目3 4 5 7在我的表單上的列表框中被選中。 – Cornflake2068

你在期待什麼事情發生？ – Siva

嘗試下面的代碼。我測試了它。它爲我工作得很好。

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

來源

2016-02-05 12:05:44 Siva

這是一種享受。感謝您的幫助！ – Cornflake2068

歡迎你 – Siva

從數組中選擇列表框中的項目

回答

相關問題