[موضوع مميز]فورم بحث جميل وبامكانيات مرنة (وسنتعلم منه الكثير)

[Akram Galal]

أستاذنا الجليل

عمل عظيم وتحفة علمية تضاف إلي باقي أعمالك الرائعة التي تعلمنا منها الكثير والكثير

وأفادتنا إفادة عظيمة

سلمت يداك وزاد الله من علمه

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

وأنا من أشد معجبيك.

بارك الله لك وعليك.

ونحن في أنتظار روائعك القيمة علي أحر من الجمر.

وأعانك الله في الرد علي كل المنتدي.

تم تعديل يونيو 24, 2012 بواسطه koko 2009

[عبدالله باقشير]

السلام عليكم

اخي الفاضل / نور محمود ------------------حفظه الله

جزاك الله خيرا

طلبك افرد له موضوع منفصل

وستجد العون من جميع الاعضاء

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

اخي الفاضل / هاني بدر------------------حفظه الله

اكرمك الله و جزاك خيرا

البحث المباشر يحرك الكود لكل تغيير في التاكست

وهذا ما لاتحتاجه في حالات كثيرة

تقبل تحياتي وشكري

[عبدالله باقشير]

السلام عليكم

اخي الفاضل / koko 2009------------------حفظه الله

اكرمك الله في الدارين

وجزاك خيرا وبارك فيك

واثابك بدعائك واعطاك بمثله اضعاف مضاعفة

تقبل تحياتي وشكري

[الذيب 2015]

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

أخوي الاستاذ عبدالله باقشير

لا أقول إلا أن شهادتنا فيك مجروحة

هل يمكن عندما نضع الكود ثم نضع الكود المطلوب

أن

يظهر بالبحث فقط االرقم نفسه وليس كل ما يحتوي هذا الرقم

المطلوب فقط بالكود

وجزيت خير الجزاء

[عبدالله باقشير]

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

أخوي الاستاذ عبدالله باقشير

لا أقول إلا أن شهادتنا فيك مجروحة

هل يمكن عندما نضع الكود ثم نضع الكود المطلوب

أن

يظهر بالبحث فقط االرقم نفسه وليس كل ما يحتوي هذا الرقم

المطلوب فقط بالكود

وجزيت خير الجزاء

حفظك الله

غير السطر هذا في كود البحث

ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1

بهذا السطر

ib = UCase(.Cells(R, MyColmnFind)) = UCase(Me.TextFind)

تقبل تحياتي وشكري

[أبو حنــــين]

كالعادة . . . . . إبداع منقطع النظير

جزاك الله خيرا

[الذيب 2015]

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

أخوي الاستاذ عبدالله باقشير

لا أقول إلا أن شهادتنا فيك مجروحة

هل يمكن عندما نضع الكود ثم نضع الكود المطلوب

أن

يظهر بالبحث فقط االرقم نفسه وليس كل ما يحتوي هذا الرقم

المطلوب فقط بالكود

وجزيت خير الجزاء

حفظك الله

غير السطر هذا في كود البحث

ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1

بهذا السطر

ib = UCase(.Cells(R, MyColmnFind)) = UCase(Me.TextFind)

تقبل تحياتي وشكري

استاذي عبدالله باقشير ممكن اضافة زر (check box) (تتطابق بداية السلسلة النصية )

ممكن يحل طلبي

وجزاك الله خيرا

تم تعديل يونيو 30, 2012 بواسطه ذيب اليمن

[عبدالله باقشير]

السلام عليكم

استاذي عبدالله باقشير ممكن اضافة زر (check box) (تتطابق بداية السلسلة النصية )

استبدل الكود المذكور سابقا بهذا

ib = LCase(.Cells(R, MyColmnFind)) Like LCase(Me.TextFind.Text)

واستخدم نجمة *

بعد قيمة البحث سيعطيك تتطابق بداية السلسلة النصية

اواستخدمها قبل وبعد قيمة البحث ستعطيك نتائج واسعة

تعليمات عن أحرف البدل

يمكن استخدام أحرف البدل التالية كمعايير مقارنة لعوامل التصفية وعند البحث عن محتوى واستبداله. استخدم للبحث عن ؟ (علامة استفهام) أي حرف مفرد

على سبيل المثال، يتم العثور على "سمير" و"سفير" عند كتابة س؟ير. * (علامة نجمية) أي عدد من الأحرف

على سبيل المثال، يتم العثور على "شمال شرق" و"جنوب شرق" عند كتابة *شرق ~ (تيلدا) متبوعة بـ ؟، أو *، أو ~ علامة استفهام، أو علامة نجمية، أو تيلدا

على سبيل المثال، يتم العثور على "حر91؟" عند كتابة حر91~؟

[الذيب 2015]

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

زادك الله علما فوق علما

شكرا على سعة الصدر وسرعة الاجابة

ماشاء الله عليك (حل + فائدة )

جزيت خيرا الجزاء

[أبو ردينة]

السلام عليكم

ما قصدته أستاذي الكريم هو أنك قمت بإضافة شكل (الزر ) و تعيين ماكرو له فهل هذا مقصود بدلا عن إدراج زر من قائمة ( المطور ) أم هو بحكم إصدار الأكسيل الذي تفضلت بالشرح عليه ؟

الحالتين تصب في مجرى واحد

وهي مقصودة بالفعل

تقبل تحياتي وشكري

[عبدالله باقشير]

كالعادة . . . . . إبداع منقطع النظير

جزاك الله خيرا

حفظك الله ابو حنين

وبارك فيك وجزاك خيرا

تقبل تحياتي وشكري

[أبو ردينة]

أستاذنا الفاضل / عبد الله باقشير

أرجو قبول أعتذاري حيث لم أنتبه لردي بالمشاركة رقم ( 36) سوى اليوم و ربما من كثرة الإنشغال و الإجهاد و قلة الدخول للمنتدى في الأيام السابقة

و ذلك لأني كتبت ردا مطولا بدأته و أنهيته بالإعتذار لك عن تأخر الرد على تعليقك الأخير و اليوم حين قرأت مشاركتي تبينت أنها لم تصل كاملة و أصبحت كمن فسر الماء بالماء لذلك و لحرصي على محبتكم في الله وجب علي التوضيح و الإعتذار عن خطأ غير مقصود

شكر الله لكم كريم تعاونكم و طيب أخلاقكم و أظلنا جميعا في ظل عرشه يوم لا ينفع مال و لا بنون إلا من أتى الله بقلب سليم - آمين

تم تعديل يوليو 4, 2012 بواسطه أبو ردينة

[عبدالله باقشير]

أستاذنا الفاضل / عبد الله باقشير

أرجو قبول أعتذاري حيث لم أنتبه لردي بالمشاركة رقم ( 36) سوى اليوم و ربما من كثرة الإنشغال و الإجهاد و قلة الدخول للمنتدى في الأيام السابقة

و ذلك لأني كتبت ردا مطولا بدأته و أنهيته بالإعتذار لك عن تأخر الرد على تعليقك الأخير و اليوم حين قرأت مشاركتي تبينت أنها لم تصل كاملة و أصبحت كمن فسر الماء بالماء لذلك و لحرصي على محبتكم في الله وجب علي التوضيح و الإعتذار عن خطأ غير مقصود

شكر الله لكم كريم تعاونكم و طيب أخلاقكم و أظلنا جميعا في ظل عرشه يوم لا ينفع مال و لا بنون إلا من أتى الله بقلب سليم - آمين

اخي الفاضل حفظك الله

انا الذي يجب ان اعتذر منك

لاني خربطت في مشاركتك بالخطا

عاملا ردي فيها ظنا مني اني اقتبستها

فاتضح اني كنت اعدل فيها

تقبل اعتذاري

:imsorry: :imsorry: :imsorry:

تحياتي وشكري

[أبو ردينة]

العفو يا أستاذنا

هذا من طيب أصلك و خلقك

أدام الله علينا المحبة و الإخوة في الله

[محمدي عبد السميع]

بسم الله ... ماشاء الله

اللهم بحق اسمك الأعظم ان تبارك

للعالم العلامة والبحر الفهامة عبد الله باقشير

وان تجزيه عن كل ثانيه قضاها في تذليل الصعاب لنا

بكل خير

[mselmy]

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

[MAHMOUD ALI YOUSSEF]

السلام عليكم

وهل يخفي القمر

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

جزاه الله كل خير كل يوم نستفيد منه ونتعلم الكثير والكثير :fff:

[جمال الفار]

بسم الله

ما شاء الله

مبدع

رائع

فنان

هدا هو الاخ والعالم الجليل

عبدالله باقشير

دائما ما ياتى بالجديد المفيد

بارك الله فيك وابلغك رمضان وغفر لك

اخيك /جمال الفار

[الذيب 2015]

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

تحياتي لهذا المنتدى الكبير

استاذي عبدالله باقشير

عمل بعض التعديلات بغرض (التعلم )

هل يمكن أن تدلني أين الخطا

المطلوب بعد البحث عند الوضع في listbox

تكون النتائج في textbox التي في أسفل الفورم

مع إمكانية التعديل

وشكرا

أبلغك الله رمضان وجميع الاساتذة الكرام والمشاركين

وأنا

اللهم آمين

form search.zip

تم تعديل يوليو 10, 2012 بواسطه ذيب اليمن

[عبدالله باقشير]

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

احبتي في الله

الاخ الفاضل / محمدي عبد السميع__________ حفظه الله

الاخ الفاضل / mselmy__________ حفظه الله

الاخ الفاضل / محمود علي محمود __________ حفظه الله

الاخ الفاضل / جمال الفار__________ حفظه الله

شرفتموني بحضوركم الغالي

اكرمكم الله في الدارين

وجزاكم خيرا وبارك فيكم

واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة

وابلغكم رمضان وغفر لكم

ودمتم في حفظ الله

[عبدالله باقشير]

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

تحياتي لهذا المنتدى الكبير

استاذي عبدالله باقشير

عمل بعض التعديلات بغرض (التعلم )

هل يمكن أن تدلني أين الخطا

المطلوب بعد البحث عند الوضع في listbox

تكون النتائج في textbox التي في أسفل الفورم

مع إمكانية التعديل

وشكرا

أبلغك الله رمضان وجميع الاساتذة الكرام والمشاركين

وأنا

اللهم آمين

ابلغكم رمضان وغفر لكم

لقد اشتغلت ملف جديد بامكانية التعديل

قريبا على الابواب

ان شاء الله

[محمد توبه]

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

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

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

او افكار اخرى مماثله له ولكم منى جزيل الشكر والتقدير

[محمود ع المنعم]

جزاك الله كل خير

[basem said]

اكثر من رائع مجهود واضح جدا

ممكن اضافه اخرى

ممكن ان تضيف له البحث باى جزء من الكلمه

مشكور