Vba: كيفية الاستخدام إذا لم يكن (مع أمثلة)

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

 SubIfNot ()
    Dim i As Integer
    
    For i = 2 To 11
        If Not Range(" B " & i) = " West " Then
        Result = “ Not West ”
        Else
        Result = " West "
        End If
    Range(" C " & i) = Result
    Next i

End Sub

يتحقق هذا المثال المحدد مما إذا كانت كل خلية في النطاق B2:B12 لا تساوي “الغرب”، ثم يقوم بتعيين “ليس غربًا” أو “غربًا” لكل خلية مقابلة في النطاق C2:C12 .

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

مثال: كيفية الاستخدام إذا لم يكن في VBA

لنفترض أن لدينا مجموعة البيانات التالية في Excel والتي توضح اسم الفريق وتقسيم فرق كرة السلة المختلفة:

لنفترض أننا نريد تعيين قيمة “الغرب” أو “ليس الغرب” لكل خلية في العمود C بناءً على ما إذا كان كل فريق في القسم الغربي أم لا.

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

 SubIfNot ()
    Dim i As Integer
    
    For i = 2 To 11
        If Not Range(" B " & i) = " West " Then
        Result = “ Not West ”
        Else
        Result = " West "
        End If
    Range(" C " & i) = Result
    Next i

End Sub

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

تخبرنا القيم الموجودة في العمود C ما إذا كان كل قسم في العمود B يساوي “الغرب” أم لا.

على سبيل المثال:

• ينتمي الفريق “أ” إلى “الغرب”، لذا فإن العمود “ج” يعرض “الغرب”
• ينتمي الفريق “ب” إلى “الشرق”، لذا فإن العمود “ج” يعرض “ليس الغرب”
• ينتمي الفريق C إلى “الشرق”، لذا يعرض العمود C “ليس الغرب”
• ينتمي الفريق D إلى “الشمال”، لذا فإن العمود C يعرض “ليس إلى الغرب”

وما إلى ذلك وهلم جرا.

مصادر إضافية

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

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