vba help - select all items from listbox1

[Mallesh23]

Hi Team,

Need help , if user selects All_Fruits then
all fruits of listbox1. should get selected. how to achieve this

Private Sub UserForm_Initialize()

ListBox1.AddItem "Apple"
ListBox1.AddItem "Mango"
ListBox1.AddItem "Guava"
ListBox1.AddItem "All_Fruits"

End Sub

 

[EXCEL MAX]

Activate multi select list property and use mousedown and mouseup event.

Dim vN As Integer

Private Sub UserForm_Initialize()

    ListBox1.AddItem "Apple"
    ListBox1.AddItem "Mango"
    ListBox1.AddItem "Guava"
    ListBox1.AddItem "All_Fruits"
    ListBox1.MultiSelect = 1

End Sub

Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
    For vN = 0 To ListBox1.ListCount - 1
         ListBox1.Selected(vN) = False
    Next vN
        
End Sub

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If ListBox1.Selected(ListBox1.ListCount - 1) = True Then
        For vN = 0 To ListBox1.ListCount - 1
            ListBox1.Selected(vN) = True
        Next vN
    Else
        For vN = 0 To ListBox1.ListCount - 1
            ListBox1.Selected(vN) = False
        Next vN
        ListBox1.Selected(ListBox1.ListIndex) = True
    End If
    
End Sub

 

[Mallesh23]

Hi ExcelMax,

the code is working, only thing is that I am unable to select two values,
Say Apple and Mango, it is allowing to select single value.


one more help,
how to check ListBox1.list , if user has selected All_Fruits.

 

[EXCEL MAX]

How about this...
Select all fruits or select fruits one by one.
Reset selection by double click on "All fruits".
Use only mouse up event.

Dim vN As Integer, vAll As Boolean

Private Sub UserForm_Initialize()
    
    With ListBox1
        .AddItem "Apple"
        .AddItem "Mango"
        .AddItem "Guava"
        .AddItem "All_Fruits"
        .MultiSelect = 1
    End With
    
End Sub

Private Sub ListBox1_MouseUp(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    With ListBox1
        If vAll = False Then
            If .ListIndex = .ListCount - 1 Then
                For vN = 0 To .ListCount - 1
                    .Selected(vN) = True
                Next vN
                vAll = True
             Else
                .Selected(.ListCount - 1) = False
                .Selected(.ListIndex) = True
             End If
        Else
            If .ListIndex = .ListCount - 1 Then
                For vN = 0 To .ListCount - 1
                    .Selected(vN) = False
                Next vN
                .Selected(.ListIndex) = True
                vAll = False
             End If
        End If
    End With
  
End Sub