-->
≡

حذف جميع أوراق العمل الفارغة VBA Delete all Blank Worksheets

 

بسم الله الرحمن الرحيم

اهلا بكم متابعى موقع عالم الاوفيس

درس جديد وكود جديد من مكتبة اكواد اكسيل VBA


ستساعدك أكواد الماكرو هذه على أتمتة بعض المهام  التي يمكن أن توفر لك المزيد من الوقت.

حذف جميع أوراق العمل الفارغة    Delete all Blank Worksheets 



 فاتورة مبيعات احترافية 

قم بتشغيل هذا الكود وسيقوم بفحص جميع أوراق العمل في المصنف النشط وحذفها إذا كانت اوراق العمل فارغة

Sub deleteBlankWorksheets()

Dim Ws As Worksheet

On Error Resume Next

Application.ScreenUpdating= False

Application.DisplayAlerts= False

For Each Ws In Application.Worksheets

If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then

Ws.Delete

End If

Next

Application.ScreenUpdating= True

Application.DisplayAlerts= True

End Sub

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

تعليقات: 0

إرسال تعليق