Get all selected items in a list box : ListBox « Forms « VBA / Excel / Access / Word






Get all selected items in a list box

 

Private Sub OKButton_Click()
    If ListBox1.ListIndex = -1 Then
        msg = "Nothing"
    Else
        msg = ""
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then _
              msg = msg & ListBox1.List(i) & vbCrLf
        Next i
    End If
    MsgBox "You selected: " & vbCrLf & msg
    Unload Me
End Sub

 








Related examples in the same category

1.Add item to List Box
2.Add names of all open workbooks to the list box
3.Add items to ListBox
4.Assign the data in a worksheet to RowSource of a ListBox
5.Make sure the RowSource property is empty
6.Select the items programmatically
7.Evaluating Which Items Are Selected in the Multiselect List Box
8.Determining the selected item
9.Get selected from ListBox
10.Get the selected items in a ListBox