Active Makale hariç hepsini silmek için bir Excel makrosu - zaman zaman aptallar

Bazen bir Excel çalışma kitabındaki etkin çalışma sayfasını değil hepsini silmek isteyebilirsiniz. Bu durumlarda, aşağıdaki makroyu kullanabilirsiniz.

Makro nasıl çalışır?

Burada makro çalışma sayfalarında döngü yaparak her çalışma sayfasının adını etkin sayfanın adıyla eşleştirir. Makro döngüsü her eşleşmeyen çalışma sayfasını siler. Adım 4'te DisplayAlerts özelliğinin kullanımına dikkat edin. Bu, Excel'in uyarılarını etkin bir şekilde kapatır, böylece her silme işlemini onaylamak zorunda kalmazsınız.

Sub Macro1 () 'Adım 1: Değişkenlerinizi bildirin Çalışma Sayfası Olarak Açın' 2. Adım: Bu çalışma kitabındaki her çalışma sayfası için tüm çalışma sayfalarından döngüye başlayın. Çalışma sayfaları 'Adım 3: Her çalışma sayfası adını kontrol edin. Ws. ThisWorkbook'a bir isim verin. Aktif sayfa. Adı Sonra 'Adım 4: Uyarıları kapatın ve Uygulamayı silin. DisplayAlerts = Yanlış ws. Uygulamayı Sil. DisplayAlerts = True End If 'Adım 5: Sonraki çalışma sayfasına dön Sonraki ws End Sub

Makro önce ws adlı bir nesneyi bildirir. Bu adım, döngüden geçirilen her çalışma sayfası için bir bellek konteyneri oluşturur.

Adım 2'de makro, Excel'e bu çalışma kitabındaki tüm çalışma sayfalarını değerlendireceğini söyleyerek döngü başlar. ThisWorkbook ve ActiveWorkbook arasında bir fark var. ThisWorkBook nesnesi, kodu içeren çalışma kitabını belirtir. ActiveWorkBook nesnesi şu an etkin olan çalışma kitabını belirtir. Genellikle aynı nesneyi döndürürler ancak kodu çalıştıran çalışma kitabı etkin çalışma kitabı değilse, farklı nesneler döndürürler. Bu durumda, diğer çalışma kitaplarındaki sayfaları silme riski taşımak istemediğinizden, bu WorkBook'u kullanırsınız.

3. Adımda, makro, etkin sayfa adını şu anda ilmek halindeki sayfayla karşılaştırır.

Adım 4'te, sayfa adları farklıysa, makro sayfa silinir. Belirtildiği gibi, Excel'den onay onaylarını önlemek için DisplayAlerts'ı kullanın. Sayfaları silmeden önce uyarı almak istiyorsanız, Uygulamayı atlayabilirsiniz. DisplayAlerts = Yanlış. DisplayAlerts bildirimini atlamak, çalışma sayfalarını silme kararınızı geri almanızı sağlayan, iletiyi gösterilmesini sağlar.

5. Adımda, makro, bir sonraki sayfayı almak için geri döner. Tüm sayfalar değerlendirildikten sonra makro sona erer.

Uyarı iletilerini görmek için Ekran Uyarıları bildirimini atlayın.

Makro nasıl kullanılır

Bu makroyu uygulamak için standart bir modüle kopyalayıp yapıştırabilirsiniz:

1. Alt + F11 tuşlarına basarak Visual Basic Düzenleyicisini etkinleştirin.

2. Proje penceresinde proje / çalışma kitabı adını sağ tıklatın.

3. Ekle → Modül'ü seçin.

4. Kodu yeni oluşturulan modüle yazın veya yapıştırın.

ActiveWorkbook yerine bir makroda ThisWorkbook kullandığınızda, makroyu kişisel makro çalışma kitabından çalıştıramazsınız. Niye ya? Çünkü ThisWorkbook, kişisel makro çalışma kitabını, makronun uygulayacağı çalışma kitabını değil, başvurur.