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

البحث السريع


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

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

مجدى يونس

البحث السريع.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

مجدى يونس

رابط هذا التعليق
شارك

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

بارك الله فيك

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

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

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

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

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

اللهم آمين

رابط هذا التعليق
شارك

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

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

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

أخي العزيز / HaNcOcK

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

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

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

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

أبو عبدالله

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

رابط هذا التعليق
شارك

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

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

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

مجدى يونس

رابط هذا التعليق
شارك

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