Code VB ลบชีทที่สร้างขึ้นมาหลายๆ ชีทพร้อมกันโดยมีเงื่อนไขไม่ให้ลบชีทที่กำหนดไว้

[tigerwit]

จากไฟล์ที่แนบ
ต้องการลบชีทที่สร้างขึ้นมาให้หมดโดย ให้ลบชีทที่เรียงถัดจากชีท Time ทั้งหมด
ส่วนชีทอื่น ๆที่เรียงอยู่หน้าชีท Time และชีท Time ไม่ต้องลบ
ต้องปรับโค๊ดอย่างไรครับ

Code: Select all

Sub DeleteNewSheet()
    Dim wsc As Integer, i As Long
    wsc = ThisWorkbook.Worksheets.Count
    Application.DisplayAlerts = False
    For i = wsc To 2 Step -1
        ThisWorkbook.Worksheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Sub DeleteNewSheet()
    Dim wsc As Integer, i As Long
    wsc = ThisWorkbook.Worksheets.Count
    Application.DisplayAlerts = False
    For i = wsc To Worksheets("Time").Index + 1 Step -1
        ThisWorkbook.Worksheets(i).Delete
    Next i
    Application.DisplayAlerts = True
End Sub

[tigerwit]

ขอบคุณครับ
ไ้ดเรียบร้อยอย่างที่ต้องการครับ