如何在VBA中顯示在多選列表框中選擇的值

Question

嗨，我一直在試圖解決這個問題。其他一切都只是錯誤。 這是最接近的，但它只顯示列表框中最後選擇的項目。

Dim i As Integer 
For i = 0 To SVSListBox1.ListCount - 1 
If SVSListBox1.Selected(i) Then SelectedItemText = SVSListBox1(i) 
End if 
Next i 

SVSListBox.Value = SelectedItemText 工作表（ 「Sheet 2中」）。將細胞（startingRow，12）。價值= SVSListBox1.value

發佈與IPhone。 （對不起，我的電腦被鎖定，所以我不得不在我的iPhone手動輸入）

Answer 1

我不完全確定你是否問這個問題，但是如果你需要知道如何將選中的項從ListBox寫到您Worksheet，然後下面的代碼可能是一個起點你：

Dim index As Integer 
Dim cell As Range 

Set cell = Sheet1.Range("A1") 
For index = 0 To UserForm1.ListBox1.ListCount - 1 
    If UserForm1.ListBox1.Selected(index) Then 
     cell.Value = UserForm1.ListBox1.List(index) 
     Set cell = cell.Offset(1) 
    End If 
Next 

更新了逗號分隔的項目

Dim index As Integer 
Dim items As String 

For index = 0 To UserForm1.ListBox1.ListCount - 1 
    If UserForm1.ListBox1.Selected(index) Then 
     If items <> vbNullString Then items = items & ", " 
     items = items & UserForm1.ListBox1.List(index) 
    End If 
Next 

Sheet1.Range("A1").Value = items