بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
كود جديد ودرس جديد من مكتبة اكواد اكسيل VBA
كود اليوم عن كيفية حذف جميع اوراق العمل All Sheets دفعة واحدة وبطريقة سريعة جدا
اذا كنت تبحث عن السرعة فى تنفيذ جميع مهامك على الاكسيل وبدقة فلابد ان تستخدم اكسيل vba
من خلال هذا الكود تستطيع انجاز شغلك بطريقة جميلة جدا وسريعة جدا.
فى هذا الكود نقوم بتعريف متغير ws يعبر عن ورقة العمل فى ملف الاكسيل وبعد كدة نعمل حلقة تكرارية for each وذلك للتنقل فى جميع اوراق العمل .
If
ws.name <> ThisWorkbook.ActiveSheet.name Then
من خلال الكود اعلاة يتم اختبار اذا كانت اسم ورقة العمل والتى يعبر عنها المتغير WS لاتساوى اسم ورقة العمل النشطة
ws.Delete
احذف جميع اوراق العمل ماعدا الورقة النشطة
واليكم الكود كامل الان
Sub
DeleteWorksheets()
Dim
ws As Worksheet
For
Each ws In ThisWorkbook.Worksheets
If
ws.name <> ThisWorkbook.ActiveSheet.name Then
Application.DisplayAlerts
= False
ws.Delete
Application.DisplayAlerts
= True
End
If
Next
ws
كود جميل جدا وسريع جدا يسهل عليك مهامك فى التعامل مع ملف الاكسيل
اذا اعجبك الدرس لاتبخل بمشاركتة على وسائل التواصل الاجتماعى