จะลบแผ่นงานเฉพาะได้อย่างไรหากมีอยู่ในสมุดงาน

คุณจะลบแผ่นงานเฉพาะได้อย่างไรหากมีอยู่ในสมุดงาน โดยปกติคุณต้องค้นหาและตรวจสอบว่ามีอยู่หรือไม่จากนั้นจึงลบออกด้วยตนเอง ที่นี่ฉันจะพูดถึงวิธีง่ายๆในการลบแผ่นงานที่ระบุโดยตรงหากมีอยู่ในไฟล์ Excel

ลบแผ่นงานเฉพาะหากมีอยู่ในสมุดงานที่มีรหัส VBA

---

ลบแผ่นงานเฉพาะหากมีอยู่ในสมุดงานที่มีรหัส VBA

รหัส VBA ต่อไปนี้สามารถช่วยคุณลบแผ่นงานที่ระบุได้หากมีอยู่ในสมุดงานโปรดดำเนินการดังนี้:

1. ค้างไว้ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ลบแผ่นงานเฉพาะหากมีอยู่ในสมุดงาน

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้กล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณพิมพ์ชื่อแผ่นงานที่คุณต้องการตรวจสอบว่ามีอยู่หรือไม่ดูภาพหน้าจอ:

4. จากนั้นคลิก OK ปุ่ม:

(1. ) หากมีแผ่นงานอยู่จะถูกลบทันทีดูภาพหน้าจอ:

(2. ) หากไม่มีแผ่นงานกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนคุณตามภาพหน้าจอต่อไปนี้: