مطلوب كود لتصفية ليست بوكس فى نموذج إكسيل

[محسن33]

السلام عليكم

حياكم الله

المطلوب كود لتصفية ليست بوكس

[محمد طاهر عرفه]

 

راجع هذه المواضيع

نفس الفكرة مع قائمة منسدلة

و يمكن الوضول للمزيد من خلال خاصية البحث

 

 

 

 

[محسن33]

السلام عليكم

انا طلبي في يوزرفورم وليس في الشيت

 المطلوب كود تصفية لليست بوكس معتمدا على تكست بوكس

ارجو الرد

 

تم تعديل يناير 31, 2018 بواسطه محسن33

[محمد طاهر عرفه]

هذا هو الكود

Private Sub UserForm_Initialize()
 Me.ListBox1.List = Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value
End Sub
 
Private Sub FilterBasedonText_Click()
Call TextBox1_AfterUpdate
End Sub


Private Sub TextBox1_AfterUpdate()
Dim StrSearch As String
Dim MyRowNo As Long

StrSearch = "*" & UCase(Me.TextBox1.Text) & "*"

With Me.ListBox1
For MyRowNo = .ListCount - 1 To 0 Step -1
    If Not UCase(.List(MyRowNo)) Like StrSearch Then
        .RemoveItem (MyRowNo)
    End If
Next
End With

End Sub
Private Sub ShowAll_Click()
 Call UserForm_Initialize
End Sub


Private Sub RemoveSelected_Click()
 Me.ListBox1.RemoveItem (Me.ListBox1.Selected = True)
End Sub

 و قد واجهتنى فيه مشكلة لفترة حيث كنت اسخدم فى البداية الكود التالي لتعبئة القائمة

Private Sub UserForm_Initialize()
 Me.ListBox1.RowSource = "sheet1!a1:a" & Sheets("sheet1").Range("a" & Rows.Count).End(xlUp).Row
End Sub

 ثم تبين أن أمر  RemoveItem

لا يعمل عند وجود بيانات فى 

Rowsource

الخاص يالقائمة

فتم الاستبدال بالكود الاول

 

مرفق الملف

 

اكتب النص المطلوب التصفية على أساسه فى المربع الأصفر

ثم اضغط Enter

 او اضغط على زر Filter

و لاظهار كافة البيانات اضغط 

Show All

FilterListbox.xlsm