عد الصفوف المحددة في الليست بوكس واظهار الرقم في لايبل

[mra63]

السلام عليكم

الرجاء من الاساتذة الكرام المساعدة 

عند دخول الليست بوكس في وضع  MultiSelect

عد الصفوف المحددة فقط واظهار الرقم في لايبل  .

ولكم فائق الاحترام والتقدير .

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركانه

ارفق ملف حتى يتضح طلبك

تم تعديل نوفمبر 27, 2024 بواسطه عبدالله بشير عبدالله

[mra63]

تفضل استاذ عبدالله

ListBox - SelectCount.xlsmFetching info...

[عبدالله بشير عبدالله]

السلام عليكم 

تفضل الملف اتمنى ان يكون فيه طلبك 

الكود 

Private Sub ListBox1_Change()
    Dim selectedCount As Integer
    Dim i As Long

    selectedCount = 0
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            selectedCount = selectedCount + 1
        End If
    Next i
    
    Label8.Caption = "عدد الصفوف المحددة: " & selectedCount
End Sub

بالتوفيق

الملف

ListBox - SelectCount.xlsmFetching info...

تم تعديل نوفمبر 28, 2024 بواسطه عبدالله بشير عبدالله

[mra63]

شكراً جزيلاً أستاذ عبدالله 

بارك الله فيك وزادك الله علماً ومعرفة .