انتقل إلى المحتوى الرئيسي

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

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

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


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

يمكن أن يساعدك رمز فبا التالي في إضافة مربع موجه نعم لا لتأكيد تشغيل ماكرو ، يرجى القيام بالخطوات التالية:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة او شباك.

رمز فبا: أنشئ مربع رسالة نعم لا قبل تشغيل ماكرو:

Sub continue()
CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbYes Then
'put rest of code here
End If
End Sub

ملاحظات: في الكود أعلاه ، يرجى نسخ ولصق الكود الخاص بك بدون ملف فرعية العنوان و نهاية الفرعية تذييل بين إذا كان CarryOn = vbYes ثم و نهاية إذا نصوص. انظر لقطة الشاشة:

مربع رسالة doc نعم لا ماكرو 1

3. ثم اضغط F5 مفتاح ، سيظهر مربع موجه لتذكيرك إذا كنت تريد تشغيل هذا الرمز ، انقر فوق نعم زر للمتابعة ، وانقر لا للتوقف ، انظر لقطة الشاشة :

مربع رسالة doc نعم لا ماكرو 2

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Or you use this code on top and there is no need to put the whole code inside an if sentence

CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbNo Then
Exit Sub
End If
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations