Bagaimana cara menghapus lembar jika nama berisi teks tertentu dari buku kerja?
Misalkan, Anda memiliki buku kerja yang berisi beberapa lembar kerja, dan sekarang, Anda ingin menghapus lembar menurut nama tab. Misalnya, jika nama lembar berisi teks tertentu "KTE", hapus, lalu dapatkan tangkapan layar berikut. Bagaimana Anda bisa menghapus lembar jika nama berisi teks tertentu segera tanpa menghapusnya satu per satu?
Hapus lembar jika nama berisi teks tertentu dengan kode VBA
Hapus lembar jika nama berisi teks tertentu dengan kode VBA
Di sini, saya akan membuat kode VBA bagi Anda untuk menghapus lembar berdasarkan nama, 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 jika nama berisi teks tertentu
Sub Deletebyname()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
ThisWorkbook.ActiveSheet.Name, , , , , 2)
If shName = "" Then Exit Sub
xName = "*" & shName & "*"
' MsgBox xName
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Name Like xName Then
xWs.Delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memasukkan teks tertentu yang ingin Anda hapus berdasarkan tab lembar, lihat tangkapan layar:
4. Dan kemudian klik OK, semua lembar yang namanya berisi teks tertentu "KTE" telah dihapus sekaligus. Lihat tangkapan layar:
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!