بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد من دورس الاكسيل Excel VBA
اسرع طريقة البحث بمجرد كتابه اول حرف فى كل اوراق العمل واظهار النتائج فى ليست بوكس
اليوم سوف نتعرف على كود بحث جميل جدا يقوم بالبحث عن البيانات ليس فى ورقة عمل واحدة بل فى كل اوراق العمل بطريقة سهلة وبسيطة جدا واظهار نتائج البحث داخل ليست بوكس من خلال كود جميل جدا ودى كانت مشكلة فى البحث عن البيانات واجهت احد اصدقاء موقع عالم الاوفيس وارسل الينا المشكلة لحلها وجعل الكود اكثر سلاسة فى العمل ويعمل بطريقة جميلة جدا
من خلال استخدام حلقة تكرارية For Each تقوم بالبحث فى كل اوراق العمل من خلال الكود التالى
For Each x In ThisWorkbook.Worksheets
ss = x.Cells(Rows.Count, 1).End(xlUp).Row
For Each c In x.Range("a2:a" & ss)
b = InStr(c, TextBox8)
If b > 0 Then
ListBox1.AddItem
ListBox1.List(k, 0) = x.Cells(c.Row, 1).Value
ListBox1.List(k, 1) = x.Cells(c.Row, 2).Value
ListBox1.List(k, 2) = x.Cells(c.Row, 3).Value
ListBox1.List(k, 3) = x.Cells(c.Row, 4).Value
ListBox1.List(k, 4) = x.Cells(c.Row, 5).Value
ListBox1.List(k, 5) = x.Cells(c.Row, 6).Value
' ListBox1.List(k, 6) = x.Cells(c.Row, 7).Value
k = k + 1
End If
Next c
Next
End Sub