Bagaimana cara menghapus lembar tertentu jika ada di buku kerja?

Bagaimana Anda bisa menghapus lembar kerja tertentu jika ada di dalam buku kerja? Biasanya, Anda perlu mencari dan memeriksanya jika ada, lalu menghapusnya secara manual. Di sini, saya akan berbicara tentang cara mudah untuk menghapus lembar kerja yang ditentukan secara langsung jika ada di file Excel.

Hapus lembar kerja tertentu jika ada di buku kerja dengan kode VBA

---

Hapus lembar kerja tertentu jika ada di buku kerja dengan kode VBA

Kode VBA berikut dapat membantu Anda untuk menghapus lembar kerja yang ditentukan jika ada di buku kerja, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Hapus lembar kerja tertentu jika ada di buku kerja

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. Lalu tekan F5 kunci untuk menjalankan kode ini, kotak prompt ditampilkan untuk mengingatkan Anda mengetik nama lembar yang ingin Anda periksa jika ada, lihat tangkapan layar:

4. Dan kemudian klik OK Tombol:

(1.) Jika lembar itu ada, itu akan segera dihapus, lihat tangkapan layar:

(2.) Jika lembar tidak ada, kotak prompt akan muncul untuk mengingatkan Anda seperti gambar berikut yang ditampilkan: