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

كيفية التحقق مما إذا كانت خلية أو نطاق من الخلايا المتعددة فارغًا باستخدام 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 لتشغيل التعليمات البرمجية الخاصة بك.
  • انظر إلى النتائج في النافذة الفورية.

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

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

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

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

بنفس الطريقة يمكنك استخدام الخاصية 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 _ "يوجد إجمالي " & أنا وأمبير. " خلية (خلايا) فارغة من " & معسكر؛ "."


كيفية تصدير كلمات المرور من Microsoft Edge

كيفية تصدير كلمات المرور من Microsoft Edge

تعلم كيفية تصدير كلمات المرور من Microsoft Edge بسهولة وأمان باستخدام خطوات واضحة. قم بتأمين معلوماتك الشخصية بشكل أفضل.

كيفية استخدام انتقالات الشرائح في Microsoft PowerPoint

كيفية استخدام انتقالات الشرائح في Microsoft PowerPoint

تعلم كيفية استخدام انتقالات الشرائح في PowerPoint لجعل عرضك التقديمي مميزًا وتفاعليًا.

كيفية إصلاح تعذر العثور على عنوان IP للخادم في نظام التشغيل Windows 10؟

كيفية إصلاح تعذر العثور على عنوان IP للخادم في نظام التشغيل Windows 10؟

تعرف على كيفية استكشاف خطأ تعذر العثور على عنوان IP للخادم وإصلاحه ، وكذلك احصل على حل سهل لإصلاح هذه المشكلة.

كيفية إصلاح Err_Cache_Miss في جوجل كروم

كيفية إصلاح Err_Cache_Miss في جوجل كروم

هل تتلقى رسالة الخطأ Err_Cache_Miss أثناء استخدامك Google Chrome؟ إليك بعض الإصلاحات السهلة التي يمكنك تجربتها لإصلاح المشكلة بكفاءة.

أفضل 10 مواقع ألعاب غير محظورة في المدارس 2024

أفضل 10 مواقع ألعاب غير محظورة في المدارس 2024

اكتشف أفضل 10 مواقع ألعاب غير محظورة في المدارس 2024، حيث يمكنك اللعب مجاناً دون قيود.

[محلول] كيفية إصلاح خطأ Err_connection_reset على أنظمة التشغيل Windows 10 و Mac و Android؟

[محلول] كيفية إصلاح خطأ Err_connection_reset على أنظمة التشغيل Windows 10 و Mac و Android؟

تتعلم كيفية إصلاح خطأ ERR_CONNECTION_RESET على أنظمة التشغيل Windows 10 و Mac و Android. اتبع الحلول الفعالة الموصى بها لحل المشكلة بنجاح.

كيفية فتح علامات التبويب المغلقة مؤخرًا في Chrome و Firefox و Edge و Safari

كيفية فتح علامات التبويب المغلقة مؤخرًا في Chrome و Firefox و Edge و Safari

إذا أغلقت علامة تبويب لم تكن تقصد إغلاقها في متصفحك، فمن السهل إعادة فتح علامة التبويب هذه. يمكنك أيضًا فتح علامات تبويب أخرى مغلقة مؤخرًا.

كيفية إصلاح خطأ فشل أجهزة NMI على أنظمة التشغيل Windows 10 و 8.1 و 8 [محدث]

كيفية إصلاح خطأ فشل أجهزة NMI على أنظمة التشغيل Windows 10 و 8.1 و 8 [محدث]

لإصلاح خطأ فشل أجهزة NMI في النظام، استكشف حلولاً متنوعة مثل إجراء فحص SFC، والتحقق من الأجهزة والبرامج، وتحديث برامج التشغيل والمزيد.

المشكلات الشائعة في Samsung Galaxy A12 وكيفية حلها

المشكلات الشائعة في Samsung Galaxy A12 وكيفية حلها

إذا كنت تمتلك Samsung Galaxy A12 وواجهت مشكلات، إليك قائمة بالحلول للمشاكل الشائعة.

كيفية الترقية من Windows 11 Home إلى Pro

كيفية الترقية من Windows 11 Home إلى Pro

تعلم كيفية ترقية Windows 11 Home إلى Pro بطريقة سهلة وسريعة. احصل على الميزات المتقدمة من Windows 11 Pro الآن!