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:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
