اضافة محركات بحث جديدة

[ابوزيد]

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

وفقكم الله وجعل عملكم خالص لوجه ونفع بكم 

سؤالي هو اعزكم الله

اضافة محركين بحث عن اجور و المبلغ ، وكما موضح بالملف المرفق

مع العلم بان البيانات كثيرة (اكثر من 5000 صف ) وان اعتمادي على هذا البرنامج هو لسرعة البحث فيه بشكل جيد جداً ، وارجو زيادة سرعة البحث اذا امكن

وفقكم الله

السلام عليكم

اضافة وتغيير في صيغة البحث 2010.rar

[عبدالله المجرب]

السلام عليكم 

قمت بإزالة مربعات النص وإستبدالها بخلايا الاكسل من المدى A2:F2

 

أصبح الكود كالتالي 

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2:F2]) Is Nothing Then
If Target = "" Then
AutoFilterMode = False
Else
Range("RN").AutoFilter , field:=Target.Column, Criteria1:=Target
End If
End If
End Sub

هذا الكود يفيد لجميع خلايا المدى

جرب المرفق 

اضافة وتغيير في صيغة البحث 2010.zip

[ابوزيد]

السلام عليكم

جزيت خير - سلمكم الله

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

وهو : ان يكون البحث عن الاسم بمجرد كتابة اول الحرف (فقط في خلية البحث عن الاسم ) كما كان في الملف الذي حملته وذلك يأتي مع الاسم ارقام ، وأما الخلايا الأخرى فهو المطلوب 

السلام عليكم

[ياسر خليل أبو البراء]

جرب الكود بهذا الشكل لعله يكون المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A2:F2]) Is Nothing Then
        If Target = "" Then
            AutoFilterMode = False
        Else
            Range("RN").AutoFilter , field:=Target.Column, Criteria1:="*" & Target & "*"
        End If
    End If
End Sub

[ابوزيد]

السلام عليكم

 

احسنت - وفقك الله - جزيت خيرا

 

هذا هو المطلوب

 

سلمكم الله

[طائع]

سلمت يداك استاذ ياسر

[طائع]

ممكن على اوفيس 2003 

[ابوزيد]

السلام عليكم

بعد البدء بالعمل تبين بان بعض محركات البحث لا تعمل (تعمل فقط على الكلمة ) والمطلوب البحث يكون على راس الجدول (اسم ، رقم ) 

وارفق الملف والذي ملون باللون الاحمر لا يعمل إلا على الكلمة

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

وجزاكم الله خيرا - السلام عليكم

اضافة محرك بحث.rar

تم تعديل يوليو 24, 2015 بواسطه ابوزيد

[ابوزيد]

السلام عليكم

 

البحث على اساس راس الجدول ، البحث عن الاسم ممتازة وتعمل حسب المطلوب

[ابوزيد]

السلام عليكم

 

للرفع

 

يكون البحث على ااساس راس الجدول ان كان رقم أو اسم

[أبو قاسم]

بحث تاريخ ماهي الطريقة

[زياد عبد الجليل]

تسلم الايادي

[خالد الشيخ]

ممكن رفع الملف مباشرة بعد التعديل والوصول اخي الى الحل السليم