yasse.w.2010 قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 السلام عليكم ورحمة الله وبركاته الاساتذه الكرام ممكن تعديل على كود البحث بحيث عند كتابة اي حرف متواجد في الخلايا تظهر نتائجه فورا في ال ListBox1 شاكر لكم جدا ملف بحث3.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 28, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 28, 2020 مع اني لا أحب اليوزر ولا التعامل معه...... الكود المطلوب (كتابة ما تريد حرف أو أكثر في المربع الأصفر) 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 1 رابط هذا التعليق شارك More sharing options...
yasse.w.2010 قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 الف شكر لحضرتك يا استاذ سليم طلب اخير هل ممكن تحديد عرض الاعمده في الليست بوكس رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 بالطبع بعد اذن استاذنا الكبير سليم حاصبيا .... بالتأكيد يمكنك هذا من خلال اضافة هذا الكود بأكواد الفورم مع تعديل عرض العمود الذى تريده من داخل الكود 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 وذلك كما ترى بالصورة 3 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها