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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

يعرض مربع الرسالة “نعم!” » بما أن اسم الفريق هو Warriors وقيمة النقاط أكبر من 100.

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

مصادر إضافية

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

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