كيفية التحقق مما إذا كانت خلية أو نطاق من الخلايا المتعددة فارغًا باستخدام Excel VBA؟

سنتعرف اليوم على كيفية التحقق بسهولة مما إذا كانت خلية واحدة أو عدة خلايا فارغة باستخدام Visual Basic for Applications. المحتوى مناسب لـ Excel 2019/365 ، 2016 والإصدارات السابقة من Microsoft Office.

العمل التحضيري

قبل بدء الترميز باستخدام VBA في Excel ، ستحتاج إلى التأكد من تمكين علامة تبويب التطوير. إذا لم يكن الأمر كذلك ، فيرجى إلقاء نظرة على هذا البرنامج التعليمي القصير .

التحقق مما إذا كان نطاق خلايا Excel فارغًا باستخدام VBA

• في Excel ، افتح بيئة Visual Basic الخاصة بك عن طريق الضغط على Alt + F11
• أدخل التعليمات البرمجية التالية كإجراء في ورقة العمل الخاصة بك ، أو بدلاً من ذلك في وحدة نمطية VBA مخصصة.

Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub

• انتقل إلى جدول البيانات الخاص بك وحدد نطاقًا عشوائيًا من الخلايا.
• ارجع إلى محرر Visual Basic وتأكد من أن العارض الفوري (CTRL + G) مرئي - لأن طريقة Debug.Print في الكود ستخرج نتائجه إلى تلك النافذة.
• اضغط على F5 لتشغيل التعليمات البرمجية الخاصة بك.
• انظر إلى النتائج في النافذة الفورية.

• سيتم تحديد جميع الخلايا الفارغة.

الامتدادات المحتملة للرمز: من الواضح أنه يمكنك تمديد هذا الرمز حسب الحاجة في حال كنت مهتمًا بتخطي القيم الفارغة أو لا تفعل شيئًا في حالة عدم امتلاء الخلايا. وبالمثل ، يمكنك التحقق مما إذا كان النطاق نفسه فارغًا ، أي - لم يتم احتواء أي خلايا سوداء.

تدقيق الحقول غير الفارغة

بنفس الطريقة يمكنك استخدام الخاصية IsEmpty للتحقق من الحقول غير الفارغة.

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If