كيفية استخدام عبارة exit if في vba (مع مثال)

لا توجد عبارة Exit If مضمنة في VBA، ولكن يمكنك محاكاة واحدة بسهولة باستخدام عبارة If مع عبارة GoTo .

يوضح المثال التالي كيفية القيام بذلك عمليا.

مثال: كيفية استخدام عبارة Exit IF في VBA

لنفترض أننا نريد إنشاء ماكرو يطلب من المستخدم إدخال عدد صحيح أقل من 10 ثم استخدام عبارة IF للقيام بما يلي:

• إذا كان العدد الصحيح الذي تم إدخاله أقل من 10، فاضربه في 2 واعرض النتيجة في الخلية A1 .
• إذا كان العدد الصحيح الذي تم إدخاله لا يقل عن 10، فاخرج من عبارة IF وستظهر رسالة خطأ.

يمكننا استخدام بناء الجملة التالي للقيام بذلك:

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

عندما نقوم بتشغيل هذا الماكرو، سيُطلب منا إدخال عدد صحيح أقل من 10:.

لنفترض أننا أدخلنا القيمة 5 ثم ضغطنا على OK :

وبما أن هذا العدد الصحيح أقل من 10، فإن الإجراء الفرعي سيضرب القيمة التي أدخلناها في 2 ويعرض النتيجة في الخلية A1 :

ومع ذلك، لنفترض أننا أدخلنا القيمة 15 بدلاً من ذلك:

سوف نتلقى مربع الرسالة التالية في Excel:

لن يتم ضرب القيمة التي أدخلناها في 2 ولن يتم عرض أي نتائج في الخلية A1 .

مصادر إضافية

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

كيفية الخروج من Sub عند حدوث خطأ في VBA
كيفية استخدام IFERROR في VBA
كيفية حذف الملفات باستخدام VBA