Tarih: 20/05/2022

VBA MultiSelect ListBox’da Kaç Adet Seçim Yaptık?

Private Sub Lstcap_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
Dim a As Integer
 
For i = 0 To Me.Lstcap.ListCount - 1
If Me.Lstcap.Selected(i) Then
a = a + 1
Me.lblsay.Caption = a
End If
Next
 
If a = 0 Then
Me.lblsay.Caption = a
End If
 
End Sub

Yapılan herbir seçimi bir label’a yazmış olduk.

MouseUp event’ına neden kod yazdık? Ehli anlasın artık.

Kolay gele…

Excel VBA

MultiSelectListboxHowMuchSelect

VBA MultiSelect ListBox’da Kaç Adet Seçim Yaptık?

İlk Yorumu Siz Yapın

Bir yanıt yazın Yanıtı iptal et