البحث السريع

[مجدى يونس]

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

مجدى يونس

البحث السريع.rar

[مجدى يونس]

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

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

مجدى يونس

استيراد بيانات من ملف.rar

[احمد فضيله]

عمل راااااااااااااااااااااائع من العبقري / خبور خير

بارك الله فيه و فى المسلمين اجمعين

[أبوعبد الله]

أخي العزيز / مجدي

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

تحياتي

أبو عبدالله

البحث السريع.rar

[خالد القدس]

السلام عليكم

أستاذ خبور

أستاذ أبو عبدالله

أعمال مميزة تسطر بماء الذهب

أكرمكم الله وأجزل ثوابكم

[مجدى يونس]

اعزائى فريق الموقع

اشكركم لردكم والبرنامج بسيط وجميل لكن محدد 1500 طالب وانا عندى 5500طالب فى الشيت لانه كنترول ادارة فما العمل لتكملة الفرق

مجدى يونس

[مجدى يونس]

اعزائى فريق الموقع

اشكركم لردكم والبرنامج بسيط وجميل لكن محدد 1500 طالب وانا عندى 5500طالب فى الشيت لانه كنترول ادارة فما العمل لتكملة الفرق

مجدى يونس

[أبوعبد الله]

أخي العزيز / مجدي

أشكرك أولاً

ثانياً أنت لم تحدد في طلبك عدد الطلاب والجدول في ملفك كان فيه 8 فقط ومع ذلك عملت نطاق البحث ل 1500 وعلى كل الأحوال ولا يهمك الموضوع ببساطة إن بيانات الطلاب مسماة كنطاق إسمه "MY_DATA" وتم تعريف هذا النطاق بكود البحث على أنه نطاق البحث وكان محدد حتى الصف 1507 والآن تم تعديله إلى الصف 7000 وليس 5500 ويمكنك التأكد بالبحث بكلمة " آخر " فستجده آخر طالب ورقمه 6694 أتمنى أن يكون هذا طلبك وإذا حبيت تزود عن كده ممكن تعمل ده بنفسك بتعديل النطاق إلى ما تريد من صفوف .

تقبل تحياتي

أبو عبدالله

البحث السريع.rar

[خالد القدس]

السلام عليكم

أستاذ أبو عبدالله

سباق إلى الإبداع كالعادة

رضي الله عنك وأرضاك

فقط ارجو الانتباه الى البحث عن آخر طالب يظهر في القائمة ولكن لا يتم الانتقال إليه

ولكن زالت المشكلة بعد أن عدلت هذه الجزئية في الكود

Dim RNG As Range

Set RNG = Range("B5:B113")

On Error Resume Next

For Each cell In RNG

من B113 إلى B7000

[أبوعبد الله]

أخي العزيز خالد

أشكرك على المرور والملاحظةفي محلهاومع استعجال أخوك مجدي نسيت اصلح الكود وهو على فكرة من B7:B700 وقد تم التعديل على المرفق .

تحياتي

ابو عبدالله

البحث السريع.rar

[مجدى يونس]

الاخ العزيز ابو عبدالله

والاخ خالد

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

مجدى يونس

[احمد فضيله]

الاستاذ و الاخ الغالى / أبو عبد الله

بارك الله فيك

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

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

انا بجد الكلام ما يكفيش انسان ذي حضرتك

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

بارك الله لك فى نفسك و والديك و اهلك و مالك و وقتك و فى كل شئ و المسلمين

اللهم آمين

[الجزيرة]

أخي ابو عبدالله

عودتنا على الابداع والمبادرة في المساعدة

فبارك الله قيك وفي جهودك

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

في الصف 7001

ماذا تعني النجوم ؟ وما دورها ؟

[أبوعبد الله]

أخي العزيز / مجدي

بالمرفق ستجد إمكانية البحث حسب الورقة والتي وضعت لهابالفورم COMBOBOX لاختيارها وتستطيع الآن استدعاء فورم البحث من أي ورقة بالملف باستخدام SORTCUT هو CONTROL+SHIFT+S وإذا تم استدعاء الفورم بأي ورقة يمكنك البحث مياشرة لأنه سيعتبر الورقة النشطة هي نطاق البحث يعني لاداعي لاختيار إسم الورقة من القائمة إلا إذا كنت تريد البحث في ورقة أخرى.

أما عن موضوع علامات النجوم أسفل الصف 7000 فلا سر ولاحاجة هي مجرد حروف وضعتها للوصول بسهولة إل الصف 7000 لإكمال تنسيق الجدول حتى هذا الصف وبعد التنسيق نسيت أحذفهم ولا علاقة لهم على الإطلاق البحث أو الأكواد.

أخي العزيز / HaNcOcK

جزاك الله كل خير على تلك الكلمات التي أسعدتني بها ولك بمثل دعواتك الصالحةوأكثر فأنت إنسان جميل .

أخي العزيز / الجزيرة - أبو عبدالله

أشكرك أخي العزيز من كل قلبي . وقد جاوبت عل استفسارك في ردى على الأخ مجدي بخصوص موضوع النجوم.

تقبلوا تحياتي

أبو عبدالله

البحث السريع حسب الورقة.rar

[مجدى يونس]

الاخ العزيز/ ابو عبدالله

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

البرنامج الان شغال بدون مشاكل ولك كل الشكر

مجدى يونس