Vba: استخدم if or لاختبار شروط متعددة

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

 Sub IfOrTest()
    If Range(" A2 ") = "Warriors" Or Range(" B2 ") > 100 Then
    Range(" C2 ").Value = " Yes! "
    Else
    Range(" C2 ").Value = " No. "
   End If
End Sub

يتحقق هذا المثال تحديدًا مما إذا كانت القيمة في الخلية A2 تساوي “Warriors” أو إذا كانت القيمة في الخلية B2 أكبر من 100.

إذا تم استيفاء أي من الشرطين، فستكون القيمة “نعم!” » يتم إرجاعها في الخلية C2 .

وإلا فإن القيمة “لا”. يتم إرجاعها إلى الخلية C2 .

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

ذات صلة: VBA: استخدم IF AND لاختبار شروط متعددة

مثال: استخدم IF AND لاختبار شروط متعددة في VBA

لنفترض أن لدينا البيانات التالية في Excel:

لنفترض أننا نريد تحديد ما إذا كان اسم الفريق هو Warriors أو ما إذا كانت قيمة النقاط أكبر من 100 وإرجاع النتيجة في الخلية C2 .

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

 Sub IfOrTest()
    If Range(" A2 ") = "Warriors" Or Range(" B2 ") > 100 Then
    Range(" C2 ").Value = " Yes! "
    Else
    Range(" C2 ").Value = " No. "
   End If
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يقوم الماكرو بإرجاع القيمة “نعم!” بشكل صحيح. » في الخلية C2 حيث تم استيفاء شرط واحد على الأقل.

إذا قمنا بتغيير قيمة النقاط في الخلية A2 ثم قمنا بتشغيل الماكرو مرة أخرى، فسيتم اختبار ما إذا كان الشرطان قد تم استيفاءهما للقيم الجديدة:

على سبيل المثال، لنفترض أننا قمنا بتغيير اسم الفريق إلى “Rockets” وقمنا بتشغيل الماكرو مرة أخرى:

يقوم الماكرو بإرجاع القيمة “لا” بشكل صحيح. في الخلية C2 حيث لم يتم استيفاء أي شرط.

إذا كنت تريد بدلاً من ذلك عرض النتائج في مربع رسالة، فيمكنك استخدام بناء الجملة التالي:

 Sub IfOrTest()
    If Range(" A2 ") = "Warriors" Or Range(" B2 ") > 100 Then
    MsgBox “ Yes! ”
    Else
    MsgBox “ No. ”
   End If
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يعرض مربع الرسالة “لا”. لأنه لم يتم استيفاء أي شرط.

ملاحظة : في هذا المثال، استخدمنا عامل التشغيل Or مرة واحدة فقط في الماكرو الخاص بنا لاختبار ما إذا كان هناك شرطان صحيحان، ولكن يمكنك استخدام أي عدد تريده من عوامل التشغيل Or لاختبار ما إذا تم استيفاء أكثر من شرطين.

مصادر إضافية

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

فبا: كيفية استخدام VLOOKUP
فبا: كيفية حساب تكرارات الأحرف في سلسلة
VBA: كيفية التحقق مما إذا كانت السلسلة تحتوي على سلسلة أخرى