حاتم عيسى قام بنشر يوليو 10, 2022 مشاركة قام بنشر يوليو 10, 2022 السلام عليكم.. لابد من التحية عند بدء أى مشاركة ,,السادة الأفاضل المحترمين مشرفي ورواد المنتدى الفاضل. تحية طيبة من عند الله وكل عام وجميع حضراتكم بخير وبصحة ممكن التفضل والتكرم من حضراتكم التعديل على الكود التالي بما هو مطلوب على الصورة المرفقة . 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 وشكرا لحضراكم جميعًا مقدمًا التعديل على كود البحث.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يوليو 11, 2022 أفضل إجابة مشاركة قام بنشر يوليو 11, 2022 تفضل تمت اعادة هيكلة جزء البحث في النموذج بالتوفيق التعديل على كود البحث.xlsm 1 رابط هذا التعليق شارك More sharing options...
حاتم عيسى قام بنشر يوليو 11, 2022 الكاتب مشاركة قام بنشر يوليو 11, 2022 السلام عليكم ورحمة الله وبركاته أستاذي الفاضل سلمت يداك ونفعك الله بعلمك وجعل جميع أعمالك في موازين حسناتك . ممكن من فضل وكرم أخلاق حضرتك وطمعا في بحر علم حضرتك 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 أعدل هنا إيه ؟ رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 11, 2022 مشاركة قام بنشر يوليو 11, 2022 يمكنك التحكم في النطاق بدالة 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))) بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
حاتم عيسى قام بنشر يوليو 12, 2022 الكاتب مشاركة قام بنشر يوليو 12, 2022 الأستاذ الفاضل المحترم : أ / محمد صالح تحية طيبة ... وبعد تسلم إيدك وبارك الله في حضرتك ومجهود أكثر من رائع . جعل الله جميع أعمالك في موازين حسناتك ونفعك الله والأمة الإسلامية بعلمك . رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 12, 2022 مشاركة قام بنشر يوليو 12, 2022 جميعا بإذن الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها