عمل بحث داخل شيت باستخدام داله فلتر

[Elhacker]

السلام عليكم 

اريد المساعده فى تعديل  شيت اكسيل اريد ان اقوم بعمل معادله بحث متقدم وتصفيه بالاسم او الرقم او اى شرط اول حرف او اول رقم  

واريد اضافه امكانيه اضافه وترحيل بيانات فى كل شيت على حد 

 

العيادة.xlsx

[محمد هشام.]

2 ساعات مضت, Elhacker said:

مفيش حد قادر يساعدني فى الشيت دة ؟

اظن ان طلبك غير مفهوم على الاطلاق المرجوا شرح طلبك اكثر  مع ارفاق عينة للنتائج المتوقعة  وان شاء الله سنحاول مساعدتك 

 

[Elhacker]

السلام عليكم اخوانى واخواتى الاعزاء

اريد المساعده فى تعديل ملف شيت اكسيل 

لدي بعض بيانات فرعين عياده 

اريد عمل فلتر بحث اثناء الكتابه بحيث انى ابحث عن باول حرف او  باول كلمه او اخر كلمه او عن طريق الرقم 

اريد البحث بجميع الاحتمالات 

ودة مثال للفكره التى اريد تنفيذها 

 

المرفق المراد تعديله

العيادة.xlsx

تم تعديل مارس 13, 2024 بواسطه Elhacker

[محمد هشام.]

العيادة.xlsx

[محمد هشام.]

 

حل اخر بالاكواد  للبحث بالاسم او الرقم 

Private Sub TextBox1_Change()  'Sheet Segl clinic
  Dim a As Variant, b As Variant, clé As String
  Dim i&, j&, k&, m&
  Dim WS As Worksheet:       Set WS = Worksheets("Segl clinic")
  Dim F As Worksheet:        Set F = Worksheets("search")

If Me.TextBox1 = "" Then
F.Range("b6:c" & Rows.Count).ClearContents
Else
  On Error Resume Next
  a = WS.Range("F6", WS.Range("G" & Rows.Count).End(3)).Value
  ReDim b(1 To UBound(a, 1), 1 To UBound(a, 2))
  clé = "*" & F.Range("b3").Value & "*"
  For i = 1 To UBound(a, 1)
    For j = 1 To UBound(a, 2)
      If LCase(a(i, j)) Like clé Then
        k = k + 1
        For m = 1 To UBound(a, 2)
          b(k, m) = a(i, m)
        Next
        Exit For
      End If
    Next
  Next
  F.Range("B6:C" & Rows.Count).ClearContents
  F.Range("b6").Resize(k, UBound(b, 2)).Value = b
  End If
End Sub
'**********************
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Not iGblInhibitTextBoxEvents Then
  TextBox1.Value = ""
  End If
End Sub

 

 

 

العيادة VBA.xlsm

تم تعديل مارس 15, 2024 بواسطه محمد هشام.

[Elhacker]

مشكور جدا اخى العزيز وجزاك الله كل خير ويجعله فى ميزان حسناتك 

 

[Elhacker]

السلام عليكم اخى العزيز  محمد هشام.

هل من الممكن التعديل على نفس الشيت لاضافة فورمه  لادخال عملاء جدد فى نفس الشيت ويدخلو فى دائرة البحث ايضا