VBA فارغ | كيفية استخدام وظيفة VBA IsEmpty؟ (أمثلة)
IsEmpty هي وظيفة ورقة عمل تُستخدم لمعرفة ما إذا كان مرجع خلية معين أو نطاق من الخلايا فارغًا أم لا نظرًا لأنها وظيفة ورقة عمل ، لذا لاستخدامها في VBA نستخدم التطبيق. طريقة ورقة العمل في VBA لاستخدام هذه الوظيفة ، تأتي هذه الوظيفة ضمن القوائم المنطقية للدالة وترجع صحيحًا إذا كان المرجع فارغًا.
وظيفة VBA IsEmpty
VBA IsEmpty هي وظيفة منطقية تختبر ما إذا كان المحدد فارغًا أم لا. نظرًا لأنها دالة منطقية ، فإنها ستعيد النتائج في القيم المنطقية ، أي إما TRUE أو FALSE.
إذا كانت الخلية المحددة فارغة ، فستُرجع TRUE وإلا ستُرجع FALSE.
في هذه المقالة ، سنوضح لك كيفية استخدام وظيفة "ISEMPTY" في VBA للتحقق من الخلايا باستخدام أكواد VBA.
ماذا تفعل وظيفة ISEMPTY في VBA؟
غالبًا ما تحبطنا الخلايا الفارغة من العمل بكفاءة في ورقة العمل. العثور على الخلايا الفارغة ليس هو الأصعب ولكن إذا كانت الخلايا الفارغة تخفيها في منتصف البيانات ، فسيكون العثور عليها أمرًا صعبًا.
للعثور على الخلايا الفارغة في Excel ، لدينا وظيفة تسمى "ISBLANK" كوظيفة ورقة عمل ولكن في VBA تسمى "ISEMPTY".
يعمل هذا بشكل مشابه لوظيفة ورقة العمل "ISBLANK". ألقِ نظرة الآن على الصيغة التالية للدالة "ISEMPTY".
كما نرى في الصورة أعلاه ، فإنها ترجع النتيجة على أنها Boolean ie TRUE أو FALSE.
أمثلة على وظيفة ISEMPTY في VBA
فيما يلي أمثلة IsEmpty في VBA.
يمكنك تنزيل VBA IsEmpty Excel Template هنا - VBA IsEmpty Excel Templateمثال 1
الآن سنرى أول مثال عملي لـ "ISEMPTY". لهذا ألق نظرة على الصورة أدناه لورقة العمل.
الآن سنقوم بتطبيق وظيفة Excel VBA ISEMPTY لاختبار كل هذه.
الخطوة 1: تحديد المتغير على أنه منطقي .
رمز:
Sub IsEmpty_Example1 () Dim K As Boolean End Sub
الخطوة 2: بالنسبة لهذا المتغير ، قم بتعيين القيمة من خلال وظيفة VBA ISEMPTY .
رمز:
Sub IsEmpty_Example1 () Dim K كـ Boolean K = IsEmpty (End Sub
الخطوة 3: التعبير ليس سوى الخلية التي نختبرها. الآن نحن نختبر الخلية A1 .
رمز:
Sub IsEmpty_Example1 () Dim K كـ Boolean K = IsEmpty (Range ("A1"). Value) End Sub
الخطوة 4: إظهار قيمة هذا المتغير في VBA Msgbox .
رمز:
Sub IsEmpty_Example1 () Dim K كـ Boolean K = IsEmpty (Range ("A1"). Value) MsgBox K End Sub
قم بتشغيل هذا الرمز للتحقق من النتيجة.
نظرًا لوجود قيمة في الخلية A1 ، حصلنا على النتيجة على أنها FALSE.
الآن سوف أقوم بتغيير مرجع الخلية من A1 إلى A5.
رمز:
Sub IsEmpty_Example1 () Dim K كـ Boolean K = IsEmpty (Range ("A5"). Value) MsgBox K End Sub
قم بتشغيل هذا الرمز لرؤية النتيجة.
لقد حصلنا على النتيجة كما هي ، فالخلية المشار إليها A5 هي في الواقع خلية فارغة ، لذا حصلنا على النتيجة "TRUE".
الآن سأختبر الخلية A8.
رمز:
Sub IsEmpty_Example1 () Dim K كـ Boolean K = IsEmpty (Range ("A8"). Value) MsgBox K End Sub
قم بتشغيل هذا الرمز لرؤية النتيجة.
أوه!!! يتمسك…
لقد حصلنا على النتيجة على أنها FALSE على الرغم من عدم وجود قيمة في الخلية A8.
الآن السؤال هل هو خطأ ناتج عن صيغة "ISEMPTY" ؟.
لا ... على الاطلاق لا !!!
عندما حاولت فحص الخلية A8 في الواقع ، كان هناك حرف مسافة داخل الخلية ليس من السهل رؤيته بالعين المجردة.
لذا فإن الاستنتاج هو أن الفضاء يعتبر حرفًا في لغة Excel و VBA.
مثال رقم 2 - مزيج من VBA ISEMPTY مع شرط IF
في الواقع ، إن الاستخدام الحقيقي للدالة “ISEMPTY” مثير للإعجاب عندما نستخدمها مع وظائف منطقية أخرى.
خاصة عندما نستخدمه مع شرط IF يمكننا استخلاص العديد من النتائج المفيدة منه.
لهذا العرض التوضيحي ، ألق نظرة على المثال أدناه.
في عمود الحالة إذا كان عمود "حالة PF" فارغًا ، نحتاج إلى القيمة كـ "لا يوجد تحديث" وإذا كان هناك أي قيمة نحتاج إلى القيم كـ "تحديثات مجمعة".
تذكر هنا أننا لسنا بحاجة إلى النتيجة الافتراضية من TRUE أو FALSE. نحتاج إلى نتائجنا الخاصة هنا ، للحصول على نتائجنا الخاصة ، نحتاج إلى استخدام شرط Excel VBA ISEMPTY مع شرط IF.
الخطوة 1: فتح شرط IF .
رمز:
Sub IsEmpty_Example2 () If End Sub
الخطوة 2: داخل شرط IF ، افتح دالة ISEMPTY .
رمز:
Sub IsEmpty_Example2 () إذا كان فارغًا (End Sub
الخطوة 3: الاختبار المنطقي الأول هو أن قيمة الخلية B2 فارغة أم لا.
رمز:
Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) ثم End Sub
الخطوة 4: إذا كان الاختبار المنطقي في Excel vba هو TRUE ، أي إذا كانت الخلية فارغة ، فسنحتاج إلى النتيجة " بلا تحديث " في الخلية C2.
رمز:
Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) ثم Range ("C2"). Value = "No Update" End Sub
الخطوة 5: إذا كان الاختبار المنطقي FALSE ، فنحن بحاجة إلى النتيجة في الخلية C2 على أنها " تحديثات مجمعة ".
رمز:
Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) ثم Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Collects Updates" End If End Sub
حسنًا ، انتهينا.
قم بتشغيل الكود للحصول على النتيجة.
حصلنا على النتيجة "تحديثات مجمعة" لأن لدينا خلية غير فارغة في B2.
الآن قم بتطبيق الكود بالمثل على الخلايا الأخرى لاختبارها.
رمز:
Sub IsEmpty_Example2 () If IsEmpty (Range ("B2"). Value) ثم Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Collects Updates" End If If IsEmpty (Range ("B3"). القيمة) ثم النطاق ("C3"). القيمة = "لا يوجد تحديث" النطاق الآخر ("C3"). القيمة = "التحديثات المجمعة" تنتهي إذا كانت فارغة (النطاق ("B4"). القيمة) ثم Range ("C4"). Value = "No Update" Else Range ("C4"). Value = "Collected Updates" End If End Sub
قم بتشغيل هذا الرمز للحصول على النتائج.
في الخلية C3 ، حصلنا على النتيجة "بلا تحديث" لأنه لا توجد قيمة في الخلية B3 ، أي خلية فارغة. منذ أن أعادت الصيغة المنطقية TRUE حصلنا على النتيجة المعنية.
مثال # 3 - بديل لوظيفة VBA ISEMPTY
لدينا بديل لوظيفة ISEMPTY ، بدون تطبيق وظيفة Excel VBA ISEMPTY يمكننا بالفعل اختبار الخلية.
للحصول على مثال ، انظر إلى الكود أدناه.
رمز:
Sub IsEmpty_Example3 () If Range ("B2"). Value = "" Then Range ("C2"). Value = "No Update" Else Range ("C2"). Value = "Collected Updates" End If End Sub
سطر نطاق التعليمات البرمجية ("B2 ″). القيمة =" " تعني ما إذا كانت الخلية B2 تساوي فارغة أم لا.
علامات الاقتباس المزدوجة ("") تمثل خلية فارغة أم لا إذا كانت النتيجة الفارغة صحيحة أو غير صحيحة.
