Cara Menghapus Semua Worksheet Kecuali Sheet Aktif Menggunakan VBA

Bagaimana cara menghapus worksheet menggunakan Macro (Code VBA)? Yah, itulah pertanyaan yang mungkin pernah ada di Otak Anda yang sedang belajar VBA Macro. Oke pada kesempatan kali ini saya akan membahas bagaimana cara membuat userform untuk menghapus semua sheet kecuali sheet yang aktif pada Ms. Excel.



Langkah pertama tentunya Anda harus masuk ke workbook terlebih dahulu kemudian seperti biasa untuk membuat atau menulis script silakan klik menu Developer kemudian klik ViewCode dan buatlah atau sisipkan satu buah UserForm sebagai kontrol interface untuk UserForm kemudian tambahkan juga satu buah CommanButton dan Anda boleh mengganti nam Caption nya pada Properties dengan tulisan "Hapus Worksheet" kemudian setelah selesai silakan lanjut ke double klik CommandButton1 tersebut lalu tuliskan code berikut ini :

Private Sub CommandButton1_Click()
Call HapusWorksheet
End Sub

Sub HapusWorksheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
End Sub

Jika Anda tidak menambahkan kode Application.DisplayAlerts = False maka biasanya ketika menghapus worksheet atau kolom maupun baris muncul sebuah pesan konfirmasi dan dan disini pesan konfirmasi tersebut dinonaktifkan dengan mode False.

Lihat :
Cara Menyembunyikan Worksheet dengan Mudah Mengunakan UserForm

Selesai, silakan di RUN coding diatas dan apakah worksheet yang tidak sedang aktif dihapus semua atau tidak jika dihapus semua itu berarti coding sudah berhasil.


Rumus Menggabungkan Dua Buah Kata pada Excel dengan Concatenate
Rumus Right-Len-Find-Substitute untuk Mencari Kata di Excel
Rumus Untuk Membulatkan Angka ke Bawah
Video Tutorial Menghapus Worksheet di Ms. Excel
3 Cara Menulis Rumus di Microsoft Excel 2007
Aplikasi Excel Guru || Aplikasi Pembuat Soal dan Kartu Soal
Aplikasi Pemilu || Menghitung Umur dengan Excel
Cara Memisahkan dan Menggabungkan Kata dengan Rumus Excel
Macro Excel - Copy Data Range dengan Cepat
Macro VBA | Print dan Print Preview Data Excel
Membuat Aplikasi SKKB dengan Excel
Rumus Menghitung Jumlah KK yang Sama Pada Pemilu 2014
Trik Excel | Cara Menyembunyikan dan Memunculkan Sheet

0 Response to "Cara Menghapus Semua Worksheet Kecuali Sheet Aktif Menggunakan VBA"

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler