لحذف ورقة عمل معينة

نسخ اوراق العمل بين كتب العمل المختلفة



حذف ورقة معروف اسمها
Sheets("Sheet1").Delete



حذف ورقة العمل النشطة
ActiveSheet.Delete



حذف ورقة العمل بدون تنبيهات

Application.DisplayAlerts = False
Sheets("Sheet1").Delete
Application.DisplayAlerts = True



التأكد من وجود ورقة العمل قبل حذفها و ادخال اسم ورقة العمل من صندوق الادخال

Dim ws As Worksheet
Dim mySheet As Variant
mySheet = InputBox("enter sheet name")
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If mySheet = ws.Name Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True



حذف كل اوراق العمل من كتاب العمل ما عدا ورقة معينة

Dim ws As Worksheet
Dim mySheet As String
mySheet = "BlankSheet-" & Format(Now, "SS")
Sheets.Add.Name = mySheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> mySheet Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True