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

[Elhacker]

السلام عليكم 

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

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

 

العيادة.xlsxFetching info...

[محمد هشام.]

  في 4‏/3‏/2024 at 08:30, Elhacker said:

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

Expand  

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

 

[Elhacker]

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

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

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

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

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

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

 

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

العيادة.xlsxFetching info...

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

[محمد هشام.]

العيادة.xlsxFetching info...

[محمد هشام.]

 

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

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.xlsmFetching info...

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

[Elhacker]

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

 

[Elhacker]

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

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