Makro Excel untuk Padam Semua tetapi Lembaran Kerja Aktif - dummies

Pada masa-masa, anda mungkin mahu memadamkan semua tetapi lembaran kerja aktif dalam buku kerja Excel. Dalam situasi ini, anda boleh menggunakan makro berikut.

Bagaimana makro berfungsi

Makro di sini melompat melalui lembaran kerja, yang sepadan dengan setiap nama lembaran kerja pada nama kunci aktif. Setiap kali gelung makro, ia memadamkan sebarang lembaran kerja yang tidak dapat ditandingi. Perhatikan penggunaan sifat DisplayAlerts di Langkah 4. Ini secara efektif mematikan peringatan Excel supaya anda tidak perlu mengesahkan setiap padam.

Sub Macro1 () 'Langkah 1: Deklarasikan pembolehubah anda Dim ws As Worksheet' Langkah 2: Mula melengkapkan semua lembaran kerja Untuk Setiap ws Dalam ThisWorkbook. Langkah-langkah Kerja 'Langkah 3: Semak setiap nama lembaran kerja Jika ws. Nama Buku Ini. ActiveSheet. Nama Kemudian 'Langkah 4: Matikan amaran dan hapuskan Permohonan. DisplayAlerts = Palsu palsu. Padam Permohonan. DisplayAlerts = Akhir Benar Jika 'Langkah 5: Loop ke lembaran kerja seterusnya Seterusnya ws End Sub

Makro pertama mengisytiharkan objek yang disebut ws. Langkah ini mencipta wadah memori untuk setiap lembaran kerja ia melangkau.

Dalam Langkah 2, makro mula gelung, memberitahu Excel ia akan menilai semua lembaran kerja dalam buku kerja ini. Terdapat perbezaan antara ThisWorkbook dan ActiveWorkbook. Objek ThisWorkBook merujuk kepada buku kerja yang mengandungi kod. Objek ActiveWorkBook merujuk kepada buku kerja yang sedang aktif. Mereka sering mengembalikan objek yang sama, tetapi jika buku kerja yang menjalankan kod itu bukan buku kerja aktif, mereka mengembalikan objek yang berbeza. Dalam kes ini, anda tidak mahu risiko memotong helaian dalam buku kerja yang lain, jadi anda menggunakan ThisWorkBook.

Dalam Langkah 3, makro hanya membandingkan nama lembaran aktif dengan helaian yang sedang dilingkari.

Dalam Langkah 4, jika nama kunci berbeza, makro memadamkan kunci. Seperti yang dinyatakan, anda menggunakan DisplayAlerts untuk menekan sebarang cek pengesahan dari Excel. Jika anda ingin diberi amaran sebelum memadamkan helaian, anda boleh meninggalkan Permohonan. DisplayAlerts = Palsu. Mengosongkan pernyataan DisplayAlerts akan memastikan bahawa anda mendapat mesej yang ditunjukkan, yang membolehkan anda membuat keputusan untuk memadamkan lembaran kerja.

Di Langkah 5, gelung makro kembali untuk mendapatkan helaian seterusnya. Selepas semua helaian dinilai, makro berakhir.

Omit pernyataan Display-Alerts untuk melihat mesej amaran.

Cara menggunakan makro

Untuk melaksanakan makro ini, anda boleh salin dan tampalkannya ke dalam modul standard:

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

2. Klik kanan projek / nama buku kerja dalam tetingkap projek.

3. Pilih Masukkan → Modul.

4. Taip atau tampal kod dalam modul yang baru dibuat.

Apabila anda menggunakan ThisWorkbook daripada ActiveWorkbook dalam makro, anda tidak boleh menjalankan makro dari buku kerja makro peribadi. Mengapa? Kerana ThisWorkbook akan merujuk kepada buku kerja makro peribadi, bukan ke buku kerja yang makro harus digunakan.