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

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

قام بنشر

السلام عليكم

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

( UserForm ) عند بلوغ قيمة الخلية حد معين.

هل هذا ممكن

ولكم جزيل الشكر

عادل صادق

قام بنشر

* أهلاً بك أخي عادل من جديد ولا شكر على واجب .

* أولا أفتح ملف الأكسيل

* أختر الخليه التي تريد أن تطبق عليها الشرط ولتكن ( A1 )

* الآن من شريط الأدوات أضغط على ( بيانات ) ( التحقق من الصحه )

* من الأعدادات إذهب أولاً الي ( السماح ) وأختر ( عدد صحيحح )

* من بيانات أختر ( أصغر من )

* أختر الحد الأقصى على سبيل المثال ( 100 )

* من تنبيه الي الخطأ يمكنك تحديد طريقة التنبيه فمن الممكن أن لا يسمح بتجاوز هذا الرقم مع ظهور رسالة تنبيه . ومن الممكن أن يسمح بذلك مع التنبيه

* كذلك يمكنك وضع الرساله التحذيريه التي تريد أن تظهر عند تجاوز الرقم المحدد

* الآن أضغط موافق وعد الي الخليه A1 وجرب أن تدخل بها رقم أكبر من 100

* ملحوظه .. سيعمل معك بشكل ناجح في حال إدخال رقم أكبر من 100 يدوياً في الخليه ولن يعمل إذا كانت الخليه عباره عن ناتج جمع أو يحدث بها تغيير مبني على خليه أو خلايا أخرى . وإن أردت أن تظهر رساله تحذيريه عندما تصل هذه الخليه لرقم محدد دون أن يتم الإدخال بها أخبرني لإن الأمر سيختلف .

وأي إستفسار آخر لا تتردد ... وشكراً :fff:

قام بنشر

اشكرك اخي حسام علي الشرح الجميل

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

هل هذا ممكن

شكرا :fff:

قام بنشر

تعديل( تابع للمشاركة السابقة )

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

هل هذا ممكن

شكرا

:fff:

قام بنشر

- أشكر الأستاذ القدير ( السيد عبد العال ) الذي طالت غيبته وزاد أشتياقنا له .

- ولأخي عادل صادق دعني أشرح لك ما قام به الأستاذ السيد عبد العال لكي تتضح لك الصوره

* أي خليه في العمود A سيزيد الرقم بها عن 200 ستظهر رسالة تنبيه هذا حسب الكود الموجود بالملف

* وللأطلاع على الكود وتعديله أضغط Alt+F11 من لوحةالمفاتيح ستظهر لك شاشه . من القائمة بالجهة اليسر أفتح ورقة العمل الأولى سيظهر الكود على الجهة اليمنى ستجد في السطر الثالث من الكود مجال الخلايا المطبق عليه الكود من A1:A64000 يمكنك تغيير العمود حسب الرغبه

* في السطر السادس من الكود ستجد الرقم المحدد والمطلوب ظهور رسالة تنبيه عند تجاوزه وهو أكبر من 200

* في السطر السادس من الكود بعد كلمة MsgBox وبين القوسين يمكنك تغيير نص الرساله

وبالتوفيق

قام بنشر

شكرا للأخ الاستاذ السيد عبد العال والأخ الاستاذ حسام نور

ولكن لي عدة اسئلة

- هل يمكن إظهار ( UserForm ) بدلا من الـ MsgBox ويكون علي المستخدم ان يختار بين زرين يمثلان اختيارين مختلفين فاذا قال لا مثلا يصبح تنسيق الخلية بلون اصفر او ان يتغير التنسيق لشئ اخر

- هل من الممكن ان يشعر الماكرو بان الخلية النشطة في العمود رقم كذا وعلي هذا يتصرف وفقا لشرط محدد كـأن نقوم بانشاء (Select Case) او( If )

أسف لكثرة الاسئلة

مع جزيل الشكر :fff:

  • 4 weeks later...
قام بنشر

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

اشكرك علي الرد

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

ساطلع علي الملف واوافيك بالرد

شكرا جزيلا

عادل

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

(y) اخي محمد الملف اكثر من ممتاز وساقوم بتطويع افكارة وفقا لما اريد
:fff: :d ارجو منك ان تقوم بارسال ملفات فيها افكار مشابهة لذلك

شكرا والي الأمام

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

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

Important Information