سنتعرف اليوم على كيفية التحقق بسهولة مما إذا كانت خلية واحدة أو عدة خلايا فارغة باستخدام 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
المكافأة: استخدم الكود التالي إذا كنت تريد تمييز الخلايا الفارغة أيضًا.
خافت i طويل خافت c طويل خافت myRange كنطاق خافت myCell كنطاق اضبط myRange = Range("A1:A10") لكل myCell في myRange ' c = c + 1 If IsEmpty(myCell) ثم myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "يوجد إجمالي " & أنا وأمبير. " خلية (خلايا) فارغة من " & معسكر؛ "."