Note: The other languages of the website are Google-translated. Back to English
تسجيل الدخول  \/ 
x
or
x
إنشاء حساب  \/ 
x

or

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

في 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    FEWQ · 2 years ago
    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