تعديل على كود بحث في يوزرفورم

[yasse.w.2010]

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

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

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

شاكر لكم جدا

ملف بحث3.xlsm

[سليم حاصبيا]

مع اني لا أحب اليوزر ولا التعامل معه......

الكود المطلوب (كتابة ما تريد   حرف أو أكثر في المربع الأصفر)

Private Sub Mot_Change()
Dim i As Long, s As Long, LF%
Dim Rg As Range
Dim Source As Worksheet
Me.ListBox1.Clear
If Mot = vbNullString Then Exit Sub
Set Source = Sheets("القيود اليوميه 0")
 LF = Source.Cells(Rows.Count, "F").End(3).Row
 If LF < 9 Then Exit Sub
 With Me.ListBox1
         .AddItem
   
    For s = 0 To .ColumnCount - 1

          .List(.ListCount - 1, s) = Source.Cells(7, s + 1)
          Next
     End With
 For i = 8 To LF
  If UCase(Source.Cells(i, "F")) Like ("*" & UCase(Mot) & "*") Then
       With Me.ListBox1
         .AddItem
          For s = 0 To .ColumnCount - 1
          .List(.ListCount - 1, s) = Source.Cells(i, s + 1)
          Next
       End With
  End If
 Next

End Sub

الملف مرفق

Yasser.xlsm

[yasse.w.2010]

الف شكر لحضرتك يا استاذ سليم

طلب اخير هل ممكن تحديد عرض الاعمده في الليست بوكس

[Ali Mohamed Ali]

بالطبع بعد اذن استاذنا الكبير سليم حاصبيا .... بالتأكيد يمكنك هذا من خلال اضافة هذا الكود بأكواد الفورم مع تعديل عرض العمود الذى تريده من داخل الكود

Private Sub UserForm_Initialize()
With Me.ListBox1
.ColumnWidths = "0;75;100;75;75;75;75;80;75;70"
.Width = 700
End With
End Sub

كما ان هناك طريقة أخرى بدون أكواد وهى كتابة عرض الأعمدة التى تريده من داخل خصائص الليست بوكس ColumnWidths

وذلك كما ترى بالصورة