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

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

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

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

 

http://www.officena.net/ib/index.php?showtopic=34300

 

ولكن وجهتني مشكلة  

 

 

 

 

الملف مرفق يوضح  ذالك

 

  يا ريت  الشرح كيف اعملها

krimooooo.rar

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

السلام عليكم

الاخ العزيز

 

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

 

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

قام بنشر

ارجو المساعدة وهذا ملف اخر

 

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

 

 

 

 

Book2.rar

قام بنشر

السلام عليكم

الاخ الكريم / krimo145

 

الفورم الموجود بمفلك لايحتوي علي ايه اكواد

وبالتالي لن يقم بالبحث

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

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

برجاء العودة لرابط الموضوع الاساسي للاستاذ القدير / احمد حمور

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

وان شاء الله تصممه بنفسك وتعرف الطريقة لعمل ذلك

 

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

 

 

 
قام بنشر

شكرا  اخي  جزاك الله الف خير ولكن لم اجد طريقة تركيب الاكواد  ولا الاكواد

قام بنشر

السلام عليكم

الاخ الكريم / krimo145

 

الاكواد وشرحها موجود بالملف الموجود في المشاركة رقم 1  ( العمل + الشرح )

لفتح محرلار الاكواد قم بالضغط علي Alt +F11

واضغط كليك يمين علي الفورم واختار view code

 

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

الاساسي للاستاذ / احمد حمور فالموضوع عبارة عن 5 صفحات  وهي كالآتي :

المشاركة رقم   1
المشاركة رقم 17 بها استفسار للاخ / لسعد عابد
المشاركة رقم 20
المشاركة رقم  22     توسعه مجال الداتا في الليست بوكس
المشاركة رقم  34  شرح كيفية اظهار الداتا داخل صناديق الادخال بعد تحديد الليست بوكس
 المشاركة رقم 37
المشاركة رقم  63 طريقة التعديل
المشاركة رقم  64

 

عسي الله ان ينفعه به

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

واحيي فيك روح الاصرار علي التعلم وبالفعل هو اول الطريق الصحيح

وفقك الله لما تحبع وترضاه

قام بنشر

نعم  رايتهم  شكرا  وغيرت ولكن نفس المشكلة لقد ارقت لك  الملف يا ريت تنظر اين الخطا

 

 

Book2.rar

قام بنشر

السلام عليكم

الاخ الكريم  / krimo145

 

قمت ببعض التعديلات علي ملفك ليتناسب مع الكود

فقد كان يجب عليك اولاً تسمية الصفحة بنفس الاسم الموجود بالكود فقد كنت تسمي الصفحة بالاكسيل Rechercher واسمها بالكود USERFORM1

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

 Set AHMAD = Sheets("Rechercher")

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

 

وقمت بتعديل التنسيق ليبدأ من العمود A وذلك حيث انك في ملفك بدأت العمل بالعمود M والصفحة لديك من من اليمين لليسار وبالتالي كان الموضوع معكوس

حيث انك جعلت M بعدها L ثم K  وهكذا والعكس هو صحيح فبدأت من العمود A  وبذلك يتغير السطر الموجود بالكود ليكون

LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

بدلا من السطر  في ملفك المرسل

LastRow = .Cells(.Rows.Count, "M").End(xlUp).Row

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

Set Q = .Range("A8:A" & LastRow).Find(M)

وهنا هو السطر رقم 8 حيث بداية البيانات

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

اتمني ان يكون الشرح واضح ويفيدك ولو بشئ بسيط

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

 

Book22222.rar

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

شكرا  اخي وتم التصحيح  ولكن  لم اعرف تغير مسار الصفحة :imsorry:  :geek:

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

السلام عليكم

الاخ الكريم / krimo145

 

طريقة تغيير اسم الصفحة في الاكسيل لتطابق مع الاسم في الكود كالتالي :

قم بالدخول لملف الاكسيل ثم قم بالوقوف علي اسم الصفحة التي تريد تغيير اسمها

ثم اضغط كليك يمين تظهر لك قائمة اختار منه Rename  ثم ااكتب الاسم الذي تريده مثلا  Rechercher

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

 

قم بالدخول الي محرر الاكواد بالضغط علي Alt+F11  والدخول علي الكود والتغيير في السطر

Set AHMAD = Sheets("Rechercher")

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

 

وبذلك يتطابق اسم الصفحة مع اسم الكود

 

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

قام بنشر

السلام عليكم

الاخ الكريم / krimo145

 

لتحويل صفحة الاكسيل من اليمين لليسار او العكس

ارسلت لك ملف اكسيل به شرح بالصور يوضح عمل ذلك

في اكسيل 2003 ، اكسيل 2007

 

عله يفي بطلبك

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

 

 

Book1.rar

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

اسف غلبتك معي  اخي

 

 قمت بعمل ملف  اخر ونفس الطريقة  ونفس المشكلة :signthankspin:

 

ارجو توضيح  اين الخطا

Book10.rar

تم تعديل بواسطه krimo145
  • أفضل إجابة
قام بنشر

السلام عليكم

الاخ الكريم / krimo145

 

رائع وصولك لهذا المستوي فأنت فعلا تريد التعلم الحقيقي

وانا شخصيا احيي فيك هذا الاصرار وعلي الجميع مساعدتك اخي الكريم

 

والخطأ الوحيد لديك في الملف الأخير هو اسم الصفحة فلم اقم بتعديله لتعديله بنفسك ولكن سوف ادلك علي الخطأ

فالخطأ هنا هو عدم التطابق بين اسم الصفحة في الاكسيل واسم الصفحة الموجود في الكود فهو لديك كالتالي

 

اسم الصفحة في الاكسيل في ملفك هو ـــــــــــــــــ   recherche

اما الاسم في الكود فهو كالتالي :

 Set AHMAD = Sheets("Rechercher")

لاحظ الفرق بين الكلمتين فيجب ان يكون نفس الاسم بنفس التنسيق

قم بتغيير المطلوب سيعمل معك الفورم بشكل طبيعي وبكفاءة

وهنيئاً لك او ملف من صنع يديك

 

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

  • Like 1
قام بنشر

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

 

سوف   ابحث  عن   طريقة خاصية الاضافة  شكرا  اخي    مرى اخرى

قام بنشر

ممكن  شرح  اضافة  صورة في الشاشة  البحث عند  الفتح 

 

وممكن  شرح  اضافة طريقة ادخال البيانات

قام بنشر

السلام  عليكم لقد  عدت   اليك  اخي مع  بعض  ولكن ديما  احتاج الي بركاتك   

 

 

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

 

 

اخي  ارفق  لي الملاحظات وانا اقوم  بالتغير

 

 

Book10.rar

قام بنشر

السلام عليكم

الاخ الكريم / krimo145

 

ماذا تقصد بـ ( شرح  اضافة  صورة في الشاشة  البحث عند  الفتح ) ... مزيد من التوضيح

 

اما عن فورم الادخال فلكل فورم بشكل معين اكواد يتم الادخال عن طريقها ويجب عليك اولا تصميم الفورم

بكل مكوناته لان كل تكست بوكس مثلا يدخل باسمه في الكود ليتم ترحيل بياناته

وانتظر أخي سوف أعد موضوع لتعليم ( كيفية عمل شاشة او فورم لادخال البيانات بطريقة سهلة خطوة خطوة )

وبنفس الطريقة الموجودة في الموضوع الخاص بي وعنوانه ( طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة )

علي الرابط التالي عبارة عن 4 دروس علي مراحل بالشرح الفيديو والكتابو والاكسيل ... عله يفيدك

 

http://www.officena.net/ib/index.php?showtopic=45232&page=4

 

ولكن لي نصيحة لك ان انتهي موضوع معك وتوصلت للحل فيه قم بالضغط علي احسن اجابة

ثم ابدأ موضوع جديد بالموضوع او المعلومة الجديدة التي تريدها ليدخل عليه معظم الاساتذة لتستفيد من الجميع

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

وليس معني ذلك اني ساتركك ولكني اريد لك الاستفادة دائما ... وانا معك بإذن الله مادمت في حاجة الي او الي مساعدتي البسيطة

 

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

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