فبا: كيفية التحقق مما إذا كانت الخلية فارغة (مع أمثلة)

يمكنك استخدام بناء الجملة الأساسي التالي للتحقق مما إذا كانت الخلية فارغة في VBA:

 SubCheckBlank ()
    Dim i As Integer

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

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

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

مثال: كيفية التحقق مما إذا كانت الخلية فارغة باستخدام VBA

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

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

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

 SubCheckBlank ()
    Dim i As Integer

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

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

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

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

 SubCheckBlank ()
    Dim i As Integer

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

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

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

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

مصادر إضافية

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

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