مطلوب كود زر يقوم بمسج الصف او السجل المحدد من الليست بوكس listbox

[حسام مصطفي]

السلام عليكم 

اساتذتي الكرام 

مرفق ملف للقدير الاستاذ / حمادة عمر .. جزاه الله خيرا 

به فورم بحث واظهار النتائج في ليست بوكس ... يتم كتابة الاسم في التكست بوكس فتظهر النتائج في ليست بوكس 

قمت باضافة زر مسج في الفورم اريد كود له يعمل علي 

مسح السجل او الصف الذي تم تحديده في الليست بوكس بالضغط علي زر المسح وذلك من الليست بوكس فقط 

وجزاكم الله خيرا 

في انتظار روائعكم 

 

طريقة تصميم فورم بحث عن طريق لست بوكس4.xls

[Ali Mohamed Ali]

وعليكم السلام-تفضل لك ما طلبت

Option Explicit
Dim listRng As Range  
Private Sub btnRemove_Click()
    Dim i As Long
    Dim rowsList As String
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
            ListBox1.RemoveItem i
        Else
            rowsList = rowsList & i + 1 & " " 
        End If
    Next i
    If rowsList <> "" Then UpdateListRange Left(rowsList, Len(rowsList) - 1)
End Sub

Sub UpdateListRange (rowsList As String)
    Dim addr As String
    Dim iRow As Variant
    Dim rowsListArr As Variant

    rowsListArr = Split(rowsList)
    For iRow = UBound(rowsListArr) To LBound(rowsListArr) Step -1
        addr = addr & listRng(rowsListArr(iRow)).address(False, False) & ","
    Next iRow

    If addr <> "" Then addr = Left(addr, Len(addr) - 1)
    Set listRng = listRng.Parent.Range(addr)
End Sub
Private Sub UserForm_Initialize()
    With Worksheets("Sheet1").Range("A2:E1000") 
        Me.ListBox1.List = Application.Transpose(.Cells) '<-- fill ListBox1 list
        Set listRng = .Cells 
    End With
End Sub

 

طريقة تصميم فورم بحث عن طريق لست بوكس5.xls

[حسام مصطفي]

السلام عليكم 

استاذي الرائع / علي محمد  جزاك الله خيرا 

الكود اتم المهمة علي اكمل وجه 

ولكن لي استفسار وتعقيب علي الكود ... قمت بوضع الكود بالكامل بملفي ولكن قمت بوضع الجزء التالي من الكود خاصتك فقط 

لزر المسح ويعمل بكفاءة .. فهل يؤثر ذلك علي عمل الكود ويوجد شئ ناقص لا اعلم 

Private Sub btnRemove_Click()
    Dim i As Long
    Dim rowsList As String
    For i = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(i) Then
            ListBox1.RemoveItem i
 
        End If
    Next i
 
End Sub

وفي كل الاحوال ... بارك الله فيك وجعلك عونا للجميع وجعله في ميزان حسناتك استاذنا 

[Ali Mohamed Ali]

لو فعلا اتم هذا الجزء فقط طلبك فيكون تمام ولا ضرر