Sebuah Makro Excel untuk Menghapus Semua tapi Lembar Kerja Aktif - dummies

Kadang-kadang, Anda mungkin ingin menghapus semua kecuali lembar kerja aktif dalam buku kerja Excel. Dalam situasi ini, Anda bisa menggunakan makro berikut.

Bagaimana makro bekerja

Makro di sini melompati lembar kerja, mencocokkan masing-masing nama lembar kerja dengan nama lembar aktif. Setiap kali loop makro, ia menghapus lembar kerja yang tak tertandingi. Perhatikan penggunaan properti DisplayAlerts di Langkah 4. Ini secara efektif mematikan peringatan Excel sehingga Anda tidak perlu mengonfirmasi setiap penghapusan.

Sub Macro1 () 'Langkah 1: Deklarasikan variabel Anda Dim Dim Sebagai Lembar Kerja' Langkah 2: Mulai perulangan melalui semua lembar kerja Untuk Setiap ws In ThisWorkbook. Lembar Kerja 'Langkah 3: Periksa setiap nama lembar kerja Jika ws. Nama ThisWorkbook. Lembar aktif. Nama Lalu 'Langkah 4: Matikan peringatan dan hapus Aplikasi. DisplayAlerts = Salah ws. Hapus Aplikasi DisplayAlerts = True End If 'Langkah 5: Loop ke worksheet berikutnya Selanjutnya ws End Sub

Makalah pertama menyatakan sebuah objek yang disebut ws. Langkah ini membuat wadah memori untuk setiap lembar kerja yang dilewatkannya.

Pada Langkah 2, makro mulai berputar, memberi tahu Excel bahwa akan mengevaluasi semua lembar kerja di buku kerja ini. Ada perbedaan antara ThisWorkbook dan ActiveWorkbook. Objek ThisWorkBook mengacu pada buku kerja yang berisi kode. Objek ActiveWorkBook mengacu pada buku kerja yang sedang aktif. Mereka sering mengembalikan objek yang sama, tapi jika buku kerja yang menjalankan kode bukan buku kerja yang aktif, mereka mengembalikan objek yang berbeda. Dalam kasus ini, Anda tidak ingin mengambil risiko menghapus lembar di buku kerja lain, jadi Anda menggunakan ThisWorkBook.

Pada Langkah 3, makro hanya membandingkan nama sheet aktif dengan sheet yang saat ini dilingkarkan.

Pada Langkah 4, jika nama sheet berbeda, makro akan menghapus sheetnya. Seperti disebutkan, Anda menggunakan DisplayAlerts untuk menekan setiap cek konfirmasi dari Excel. Jika Anda ingin diperingatkan sebelum menghapus lembaran, Anda bisa menghilangkan Aplikasi. DisplayAlerts = Salah Mengabaikan pernyataan DisplayAlerts akan memastikan bahwa Anda mendapatkan pesan yang ditampilkan, memungkinkan Anda untuk mundur dari keputusan untuk menghapus lembar kerja.

Pada Langkah 5, loop makro kembali untuk mendapatkan lembar berikutnya. Setelah semua lembar dievaluasi, makro berakhir.

Hapus pernyataan Display-Alerts untuk melihat pesan peringatan.

Cara menggunakan makro

Untuk menerapkan makro ini, Anda dapat menyalin dan menempelkannya ke modul standar:

1. Aktifkan Editor Visual Basic dengan menekan Alt + F11.

2. Klik kanan nama proyek / workbook di jendela proyek.

3. Pilih Insert → Module.

4. Ketik atau tempel kode di modul yang baru dibuat.

Bila Anda menggunakan ThisWorkbook dan bukan ActiveWorkbook secara makro, Anda tidak dapat menjalankan makro dari buku kerja makro pribadi. Mengapa? Karena ThisWorkbook mengacu pada buku kerja makro pribadi, bukan pada buku kerja yang harus diterapkan makro.