Vba: كيفية استخدام "إذا لم يكن فارغًا"

يمكنك استخدام Not IsEmpty في VBA للتحقق مما إذا كانت الخلية ليست فارغة.

فيما يلي مثال لكيفية استخدام بناء الجملة هذا في ماكرو:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

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

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

مثال: كيفية استخدام “إذا لم يكن فارغًا” في VBA

لنفترض أن لدينا القائمة التالية لأسماء فرق كرة السلة في برنامج Excel:

لنفترض أننا نريد التحقق مما إذا كانت كل خلية في النطاق A2:A13 ليست فارغة، ثم نعرض النتائج في الخلايا المقابلة في النطاق B2:B8 .

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

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

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

يخبرنا العمود B ما إذا كانت كل خلية من الخلايا المقابلة في العمود A فارغة أم لا.

يمكنك أيضًا استخدام الماكرو التالي لإرجاع اسم الفريق نفسه في العمود B إذا لم تكن القيمة فارغة في العمود A:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = Range(" A " & i).Value
        Else
        Result = " Empty "
        End If
    Range(" B " & i) = Result
    Next i
End Sub

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

يقوم العمود B الآن بإرجاع اسم الفريق في العمود A إذا لم تكن الخلية فارغة.

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب VBA IsEmpty هنا .

مصادر إضافية

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

فبا: كيفية حساب تكرارات الأحرف في سلسلة
VBA: كيفية التحقق مما إذا كانت السلسلة تحتوي على سلسلة أخرى
VBA: صيغة لـ “إذا” تحتوي الخلية على “