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

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

قام بنشر (معدل)

ملف د.rarالسلام عليكم ورحمة الله وبركاتة ,

 

اسعد الله اوقاتكم بكل خير احبتي

,,

 

عندي ملف اكسل ,  اريد عمل مربع بحث الاصفر اي انه عند ادخال اسم الشخص يفرز لحاله في الجدول يعني عندما اكتب س او اي حرف تظهر جمع الاسامي التي بنفس الحرف وذالك بعد الضغط على Enter  استرجاع الجدول Delete

 

 

ارجو مساعدتي بذالك ,,

 

ولكم وافر الشكر

 

مرفق الملف

تم تعديل بواسطه قاهر الاكسس
قام بنشر

واثراءا للموضوع

يمكنك استخدام استبدال الاكواد الموجودة في الملف المرفق

بالاكواد التالية

Private Sub TextBox1_Change()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        If TextBox1 = "" Then
        Selection.AutoFilter Field:=3
        Else
        Range("sama").AutoFilter , Field:=3, Criteria1:=CStr(TextBox1) & "*"
        End If
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

'===========================================================

Private Sub TextBox2_Change()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        If TextBox2 = "" Then
        Selection.AutoFilter Field:=4
        Else
        Range("sama1").AutoFilter , Field:=4, Criteria1:=CStr(TextBox2) & "*"
        End If
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

وذلك لتنفيذ نفس المهمة او الوظيفة

تقبل خالص تحياتي

  • Like 1
قام بنشر (معدل)

بارك الله فيك أخي /حمادة عمر على هذا العمل المميز

جعله الله في ميزان حسناتك... :fff: :fff: :fff: :fff:

-----------------------------

وحتى استفيد انا من الموضوع ويستقفيد اخواني ويكون هذا الموضوع مرجع لي في كتاباتي عند الحاجة اليه

ما فهمته من العمل او طريقة عمل هذا الفورم

1 - عمل تصفية للعمود الذى نريد البحث فيه

2 - عمل تسمية  نطاق لجزء من العمود وسنضع هذه التسمية في الكود والمشار اليها في الاسفل في نقطة رقم ( ج )

3 - ادراج فورم بحث

FECtV.png

4 - اما بالنسب للمتغيرات في الكود

 

Private Sub TextBox2_Change()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If TextBox2 = "" Then
Selection.AutoFilter Field:=4
Else
Range("اسم النطاق الذي سنقوم بعمله وليكن كما في كود حضرتك ((sama))سما ").AutoFilter , Field:=4, Criteria1:=CStr(TextBox2) & "*"
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

أ ) تغيير TextBox كلما اردنا ان نضيف تكست بوكس جديد بمعنى اننا لو اردنا ان نجعل صندوق ثاني سنضع كود جديد ونغير فيه رقم ال TextBox ليكون TextBox2

وهكذا ..

ب ) رقم العمود الذي ستتم فيه العملية

ج ) اسم  النطاق الذي سنقوم بعمله والتي سنضعه في الكود

ملف+2+ د.rar

تم تعديل بواسطه محمد ابو البـراء
  • Like 1
قام بنشر

تفضل اخي المرفقات

 

ارجو ان تفي بطلبك

 

 

attachicon.gifملف++ د.rar

جزاك الله كل خير اخي حمادة ,

 

هذا البحث يبحث بالحرف الاول , هل ممكن يكون البحث باي حرف من داخل الجدل اي ليس اول حرف فقط

 

 

مرفق هذا المثال التابع لاأخوانا احمد انا اريد يكون مثل هذا البحث

 

تقبل تحياتي

Book2.rar

قام بنشر

بارك الله فيك أخي /حمادة عمر على هذا العمل المميز

جعله الله في ميزان حسناتك... :fff: :fff: :fff: :fff:

-----------------------------

وحتى استفيد انا من الموضوع ويستقفيد اخواني ويكون هذا الموضوع مرجع لي في كتاباتي عند الحاجة اليه

ما فهمته من العمل او طريقة عمل هذا الفورم

1 - عمل تصفية للعمود الذى نريد البحث فيه

2 - عمل تسمية  نطاق لجزء من العمود وسنضع هذه التسمية في الكود والمشار اليها في الاسفل في نقطة رقم ( ج )

3 - ادراج فورم بحث

FECtV.png

4 - اما بالنسب للمتغيرات في الكود

 

Private Sub TextBox2_Change()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

If TextBox2 = "" Then

Selection.AutoFilter Field:=4

Else

Range("اسم النطاق الذي سنقوم بعمله وليكن كما في كود حضرتك ((sama))سما ").AutoFilter , Field:=4, Criteria1:=CStr(TextBox2) & "*"

End If

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub

أ ) تغيير TextBox كلما اردنا ان نضيف تكست بوكس جديد بمعنى اننا لو اردنا ان نجعل صندوق ثاني سنضع كود جديد ونغير فيه رقم ال TextBox ليكون TextBox2

وهكذا ..

ب ) رقم العمود الذي ستتم فيه العملية

ج ) اسم  النطاق الذي سنقوم بعمله والتي سنضعه في الكود

 

 

 

 

جزاك الله كل خير اخي محمد

 

هذا البحث يبحث بالحرف الاول , هل ممكن يكون البحث باي حرف من داخل الجدل اي ليس اول حرف فقط

 

 

مرفق هذا المثال التابع لاأخوانا احمد انا اريد يكون مثل هذا البحث

 

تقبل تحياتي

ملفات مرفقة

Book2.rar

قام بنشر (معدل)

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

لعلك تجد بغيتك في هذا الرابط

http://www.officena.net/ib/index.php?showtopic=51164#entry316017

بحث بأي حرف او رقم بالفلترة المتقدمة2.rar

تم تعديل بواسطه محمد ابو البـراء
قام بنشر

السلام عليكم

الاخ الكريم / محمد 28

بارك الله فيك

بالفعل شرح رااائع ووافي

 

لعلك تجد بغيتك في هذا الرابط

http://www.officena.net/ib/index.php?showtopic=51164#entry316017

 

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

لك مني ارق التحيات

تقبل خالص تحياتي

قام بنشر

السلام عليكم

الاخ الكريم  / محمود_الشريف

بارك الله فيك

مرور طيب وكريم من اخ كريم

تقبل خالص تحياتي

قام بنشر (معدل)

الرجاء من احبابنا الكرام عمل بحث لاي عنصر وليس عنصر ولكن لكل العناصر وامكانية فرز النتيجة في شيت وملف جديد ، مع خالص امتنان وتقديرنا لجهودكم الرائعة .

 

الرقم    اسم العهدة       نوع العهدة    حالة العهدة     العدد        الغرفة     مكان العهدة     الجهة الدائرة أو القسم   التاريخ   ملاحظات

01       مكتب موظف            اثاث                    جيد           5           7           مبنى الادارة         الشئون الادارية     1-1-2014    .....
02      جهاز كومبيوتر            اجهزة                ممتاز          7          10          قاعة العلوم         الشئون الاكاديمية    1-1-2014    ....
تم تعديل بواسطه ابو عصام الغالي
قام بنشر

 

الرجاء من احبابنا الكرام عمل بحث لاي عنصر وليس عنصر ولكن لكل العناصر وامكانية فرز النتيجة في شيت وملف جديد ، مع خالص امتنان وتقديرنا لجهودكم الرائعة .

 

الرقم    اسم العهدة       نوع العهدة    حالة العهدة     العدد        الغرفة     مكان العهدة     الجهة الدائرة أو القسم   التاريخ   ملاحظات

01       مكتب موظف            اثاث                    جيد           5           7           مبنى الادارة         الشئون الادارية     1-1-2014    .....
02      جهاز كومبيوتر            اجهزة                ممتاز          7          10          قاعة العلوم         الشئون الاكاديمية    1-1-2014    ....

يرجي منكم المساعدة في عمل المطلوب ودمتم بكل الود والتقدير

قام بنشر

 

 

الرجاء من احبابنا الكرام عمل بحث لاي عنصر وليس عنصر ولكن لكل العناصر وامكانية فرز النتيجة في شيت وملف جديد ، مع خالص امتنان وتقديرنا لجهودكم الرائعة .

 

الرقم    اسم العهدة       نوع العهدة    حالة العهدة     العدد        الغرفة     مكان العهدة     الجهة الدائرة أو القسم   التاريخ   ملاحظات

01       مكتب موظف            اثاث                    جيد           5           7           مبنى الادارة         الشئون الادارية     1-1-2014    .....
02      جهاز كومبيوتر            اجهزة                ممتاز          7          10          قاعة العلوم         الشئون الاكاديمية    1-1-2014    ....

يرجي منكم المساعدة في عمل المطلوب ودمتم بكل الود والتقدير

العمل في ملف اكسل ولكن لم اتمكن من ارسل المرفق بصيغة اكسل

قام بنشر

 

 

 

الرجاء من احبابنا الكرام عمل بحث لاي عنصر وليس عنصر ولكن لكل العناصر وامكانية فرز النتيجة في شيت وملف جديد ، مع خالص امتنان وتقديرنا لجهودكم الرائعة .

 

الرقم    اسم العهدة       نوع العهدة    حالة العهدة     العدد        الغرفة     مكان العهدة     الجهة الدائرة أو القسم   التاريخ   ملاحظات

01       مكتب موظف            اثاث                    جيد           5           7           مبنى الادارة         الشئون الادارية     1-1-2014    .....
02      جهاز كومبيوتر            اجهزة                ممتاز          7          10          قاعة العلوم         الشئون الاكاديمية    1-1-2014    ....

يرجي منكم المساعدة في عمل المطلوب ودمتم بكل الود والتقدير

العمل في ملف اكسل ولكن لم اتمكن من ارسل المرفق بصيغة اكسل

 

الملف المرفق لا يعمل

ممكن ترفق أخر بارك الله فيك

لا يضاح فكرتك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information