اذهب الي المحتوي
أوفيسنا

برجاء التعديل على كود البحث التالي


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

السلام عليكم.. لابد من التحية عند بدء أى مشاركة ,,السادة الأفاضل المحترمين مشرفي ورواد المنتدى الفاضل.

تحية طيبة من عند الله وكل عام وجميع حضراتكم بخير وبصحة

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

Private Sub TextBox2071_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
ListBox8.Clear
Dim Arr_Sh, Itm
Dim k%, b%
Arr_Sh = Array("Secondary_2")     ''يمكن هنا اضافة اسماء الشيتات التي تريد البحث فيها
If TextBox2071.Value = "" Then ListBox8.Clear: Exit Sub
Dim x As Worksheet
Dim c As Range
ListBox8.Clear
k = 0
For Each Itm In Arr_Sh
     Set x = Sheets(Itm)
     ss = x.Cells(Rows.Count, 9).End(xlUp).Row
     If ss < 9 Then GoTo Next_Item
    For Each c In x.Range("A9:A" & ss)
        b = InStr(c, TextBox2071)
        If Trim(c) Like IIf(Me.OptionButton2, "*", "") & TextBox2071 & "*" Then
        ListBox8.AddItem
        ListBox8.List(k, 0) = x.Cells(c.Row, 2)
        ListBox8.List(k, 1) = c.Worksheet.Name
        ListBox8.List(k, 2) = c.Row
        k = k + 1
        End If
TextBox2071.SetFocus
    Next c
Next_Item:
Next Itm
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
'
End Sub

1694170192_.jpg.610ebf746c0b45d5101d5d6966eb47bf.jpg

وشكرا لحضراكم جميعًا مقدمًا

التعديل على كود البحث.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل

تمت اعادة هيكلة جزء البحث في النموذج 

بالتوفيق 

التعديل على كود البحث.xlsm

  • Like 1
رابط هذا التعليق
شارك

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

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

ممكن من فضل وكرم أخلاق حضرتك وطمعا في بحر علم حضرتك

    For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), x.Range("C9:C" & ss))

    For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), x.Range("C9:C" & ss))

لو حبيت أضيف رينج كمان للبحث فيه مثل الاسم - رقم الجلوس - المدرسة . A - B - C  أعدل هنا إيه ؟   

رابط هذا التعليق
شارك

يمكنك التحكم في النطاق بدالة iif بصورة طبيعية

بتكرار الشرط في جزء عدم التحقق

For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), IIf(Me.OptionButton5, x.Range("B9:B" & ss), x.Range("C9:C" & ss)))

بالتوفيق

  • Thanks 1
رابط هذا التعليق
شارك

الأستاذ الفاضل المحترم : أ / محمد صالح

تحية طيبة ... وبعد

تسلم إيدك وبارك الله في حضرتك ومجهود أكثر من رائع . جعل الله جميع أعمالك في موازين حسناتك ونفعك الله والأمة الإسلامية بعلمك .

 

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information