نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية حذف كافة أوراق العمل الفارغة في إكسيل؟

إذا كان لديك مصنف يحتوي على الكثير من أوراق العمل، وفي الوقت نفسه، هناك بعض أوراق العمل الفارغة فيه. والآن تريد حذف أوراق العمل الفارغة لحفظ الملف أو أرشفته. كيف يمكنك البحث عن الأوراق الفارغة من أوراق العمل المتعددة وحذفها تلقائيا؟

احذف جميع أوراق العمل الفارغة التي تحتوي على شفرة فبا

حذف كافة أوراق العمل الفارغة مع كوتولس ل إكسيل

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الفقاعة اليمنى احذف جميع أوراق العمل الفارغة التي تحتوي على شفرة فبا


ومن المثير للقلق بالنسبة لك للتحقق من أوراق العمل فارغة وإزالتها واحدا تلو الآخر، ولكن مع التعليمات البرمجية فبا التالية، يمكنك بسهولة حذف كافة أوراق العمل فارغة في وقت واحد.

1. اضغط باستمرار ALT + F11 مفاتيح، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في إطار الوحدة النمطية.

فبا: حذف كل أوراق العمل الفارغة

سوبلي ديليبلانكوركشيتس () 'تحديث شنومك ديم وس كما ورقة عمل على خطأ استئناف التطبيق التالي. سكرينداتينغ = خطأ التطبيق. ديسبلايرلتس = خطأ لكل وس في التطبيق. وورششيتس إذا كان التطبيق.WorksheetFunction.CountA (Ws.UsedRange) = شنومك ثم Ws.Delete نهاية إذا نيكست Application.ScreenUpdating = ترو Application.DisplayAlerts = ترو إند سوب

3. ثم اضغط F5 مفتاح، ويتم حذف جميع أوراق العمل الفارغة في وقت واحد.


السهم الأزرق الفقاعة اليمنى حذف كافة أوراق العمل الفارغة مع كوتولس ل إكسيل

إذا لم تكن مألوفة مع التعليمات البرمجية فبا، يمكن أن أعرض لكم أداة سهلة- كوتولس ل إكسيل، بما لديها حذف أوراق العمل الفارغة وظيفة، يمكنك إزالة جميع أوراق العمل فارغة مع ضغطة واحدة.

كوتولس ل إكسيل يتضمن أكثر من أدوات إكسوم إكسيل مفيد. مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. احصل عليه الآن.

عند تثبيت كوتولس ل إكسيل، يرجى القيام بالخطوات التالية:

1. انقر مشروع > أدوات ورقة العمل > حذف أوراق العمل الفارغة، انظر الصورة:

DOC-حذف فارغة-sheets1

2. وسيظهر مربع موجه لتذكيرك ما إذا كنت ترغب في حذف كافة أوراق العمل فارغة أم لا، انظر الصورة:

DOC-حذف فارغة-sheets2

3. ثم اضغط نعم، وتم حذف أوراق العمل الفارغة بنجاح. انظر لقطات الشاشة:

DOC-حذف فارغة-sheets3
-1
DOC-حذف فارغة-sheets4

إذا كنت تريد معرفة المزيد عن هذه الميزة، يرجى النقر حذف أوراق العمل الفارغة.


مقالة ذات صلة:

كيفية حذف أوراق العمل المخفية في إكسيل؟


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Salvador Sánchez · 3 months ago
    Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

    La macro es:

    Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

    Dim Nhojas As Integer
    Dim i As Integer

    On Error Resume Next
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    Nhojas = Sheets.Count

    For i = 1 To Nhojas

    If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

    Sheets(i).Delete

    Else
    ' Nada
    End If
    Next i

    On Error GoTo 0
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    End Sub

    Gracias, espero sus comentarios.
  • To post as a guest, your comment is unpublished.
    Ems · 2 years ago
    Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
    i'm using Interop.Excel