Vba: كيفية إنشاء مربع رسالة بإجابات نعم/لا

يمكنك استخدام بناء الجملة التالي في VBA لإنشاء مربع رسالة للمستخدم لتحديد نعم أو لا:

 Sub MsgBoxYesNo()

    'ask user if they want to multiply two cells
    UserResponse = MsgBox(" Do you want to multiply cells A1 and B1? ", vbYesNo)

    'perform action based on user response
    If UserResponse = vbYes Then
      Range(" C1 ") = Range(" A1 ") * Range(" B1 ")
    Else
      MsgBox “ No Multiplication was Performed ”
   End If

End Sub

يقوم هذا الماكرو المحدد بإنشاء مربع رسالة يسأل المستخدم عما إذا كان يريد مضاعفة الخلايا A1 وB1.

إذا قام المستخدم بالنقر فوق “نعم”، فسيتم ضرب كلتا الخليتين ويتم عرض النتيجة في الخلية C1.

إذا قام المستخدم بالنقر فوق “لا”، فسيظهر مربع رسالة جديد يخبره بأنه لم يتم إجراء أي عملية ضرب.

لاحظ أن عبارة vbYesNo هي ما يقوم بإدراج الزرين “Yes” و”No” ليقوم المستخدم بالنقر فوقهما.

توضح الأمثلة التالية كيفية استخدام بناء الجملة هذا عمليًا.

مثال: قم بإنشاء مربع رسالة يحتوي على إجابات نعم/لا

لنفترض أن لدينا القيمتين التاليتين في الخليتين A1 وB1 من ورقة Excel الخاصة بنا:

لنفترض أننا نريد إنشاء ماكرو يعرض مربع رسالة للمستخدم ويسأله عما إذا كان يريد مضاعفة القيم في الخلايا A1 وB1 أم لا.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub MsgBoxYesNo()

    'ask user if they want to multiply two cells
    UserResponse = MsgBox(" Do you want to multiply cells A1 and B1? ", vbYesNo)

    'perform action based on user response
    If UserResponse = vbYes Then
      Range(" C1 ") = Range(" A1 ") * Range(" B1 ")
    Else
      MsgBox “ No Multiplication was Performed ”
   End If

End Sub

عندما نقوم بتشغيل هذا الماكرو، يظهر مربع الرسالة التالية:

إذا نقرنا على نعم ، فسيقوم الماكرو بضرب القيم في الخلايا A1 و B2 ويعرض النتيجة في الخلية C1:

ومع ذلك، إذا نقرنا على “لا” ، سيظهر مربع رسالة جديد:

يخبرنا مربع الرسالة أنه لم يتم إجراء أي عملية ضرب منذ أن نقرنا على “لا” في مربع الرسالة السابقة.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية إضافة سطر جديد إلى مربع الرسالة
فبا: كيفية إضافة أوراق جديدة
فبا: كيفية تجميد الأجزاء