Bagaimana cara menghapus worksheet memakai Macro (Code VBA)? Yah, itulah pertanyaan yang mungkin pernah ada di Otak Anda yang sedang berguru VBA Macro. Oke pada kesempatan kali ini aku akan membahas bagaimana cara menciptakan userform untuk menghapus semua sheet kecuali sheet yang aktif pada Ms. Excel.
Langkah pertama tentunya Anda harus masuk ke workbook terlebih dahulu kemudian menyerupai biasa untuk menciptakan atau menulis script silakan klik hidangan 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 goresan pena "Hapus Worksheet" kemudian sehabis simpulan silakan lanjut ke double klik CommandButton1 tersebut kemudian tuliskan code berikut ini :
Jika Anda tidak menambahkan arahan Application.DisplayAlerts = False maka biasanya saat 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 Praktis Mengunakan UserForm
Selesai, silakan di RUN coding diatas dan apakah worksheet yang tidak sedang aktif dihapus semua atau tidak bila 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
Langkah pertama tentunya Anda harus masuk ke workbook terlebih dahulu kemudian menyerupai biasa untuk menciptakan atau menulis script silakan klik hidangan 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 goresan pena "Hapus Worksheet" kemudian sehabis simpulan silakan lanjut ke double klik CommandButton1 tersebut kemudian 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 arahan Application.DisplayAlerts = False maka biasanya saat 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 Praktis Mengunakan UserForm
Selesai, silakan di RUN coding diatas dan apakah worksheet yang tidak sedang aktif dihapus semua atau tidak bila 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