كيفية التحقق بسرعة مما إذا كانت الورقة فارغة في Excel؟
إذا كان هناك بعض الأوراق الفارغة في مصنف ضخم، فكيف يمكنك التحقق بسرعة مما إذا كانت إحدى الأوراق فارغة في المصنف ثم حذفها؟ في برنامج Excel، توجد وظيفة مدمجة لتحديد ما إذا كانت الورقة فارغة أم لا، ولكن هنا، أقدم لك كود VBA للتحقق مما إذا كانت الورقة فارغة.
تحقق مما إذا كانت الورقة فارغة باستخدام VBA
تحقق مما إذا كانت الورقة فارغة باستخدام VBA
للتحقق مما إذا كانت الورقة فارغة ، يمكنك استخدام رمز الماكرو أدناه لتحديد ما إذا كانت الورقة فارغة بسرعة.
1. قم بتمكين الورقة التي تريد التحقق مما إذا كانت فارغة ، اضغط على ALT + F11 مفتاح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة، وانقر فوق إدراج > وحدة لإنشاء جديد وحدة.
2. في البرنامج النصي الفارغ ، الصق التعليمات البرمجية للماكرو أدناه. انظر لقطة الشاشة:
فبا: تحقق مما إذا كانت الورقة فارغة
Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
Else
MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
End If
End Sub
3. احفظ الكود واضغط F5 مفتاح لتشغيل الكود، وسوف تظهر لك نافذة حوار لإعلامك إذا كانت الورقة فارغة أم لا.
OR |
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!