كيفية التحقق مما إذا كانت الخلية فارغة عبر vba؟

للتحقق مما إذا كانت الخلية فارغة، يمكنك استخدام الدالة ISEMPTY الخاصة بـ VBA . في هذه الدالة، تحتاج إلى استخدام كائن النطاق لتحديد الخلية التي تريد التحقق منها، وسيُرجع صحيحًا إذا كانت تلك الخلية فارغة، وإلا فسيكون خطأ. يمكنك استخدام مربع رسالة أو استخدام خلية للحصول على النتيجة.

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

1. ابدأ باسم الوظيفة “IsEmpty”.
2. حدد الخلية التي تريد التحقق منها.
3. استخدم مربع رسالة أو خلية للحصول على قيمة النتيجة.
4. في النهاية، قم بتشغيل الكود.

 MsgBox IsEmpty(Range("A1"))

تحقق مما إذا كانت الخلايا المتعددة فارغة

إذا كنت تريد التحقق من الخلايا الفارغة في نطاق وحسابها عندما تحتاج إلى التكرار فوق كل خلية في النطاق.

 Sub vba_check_empty_cells() Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange c = c + 1 If IsEmpty(myCell) Then i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "." End Sub

يمر الكود أعلاه عبر كل خلية في النطاق A1:A10 ويفحص كل خلية واحدة تلو الأخرى باستخدام الدالة ISEMPTY سواء كانت فارغة أم لا.

ولكل خلية فارغة، يتم حسابها، وفي النهاية، يعرض مربع رسالة بالعدد الإجمالي للخلايا والخلايا الفارغة.

استخدم الكود التالي إذا كنت تريد أيضًا تمييز الخلايا الفارغة.

 Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "."