Excel'de VBA Kullanarak Birden Çok Sekmeyi Dinamik Olarak Gizleme veya Gösterme

Anonim

Aynı anda birden çok sayfayı gizlemeniz ve göstermeniz gereken bir durumu düşünün. Birisi manuel olarak saklanıyor ve gösteriliyorsa, bu çok zaman alacaktır.

Bu makalede, VBA kodunu kullanarak birden çok sekmeyi dinamik olarak nasıl gizleyeceğinizi veya göstereceğinizi öğreneceksiniz.

S): Aynı anda birden çok sekmeyi gizleyecek veya gösterecek bir makro istiyorum.

Aşağıda, Sekmeleri Gizle ve Sekmeleri Göster gibi iki dinamik listenin olacağı sayfa1'in anlık görüntüsü verilmiştir.

  • Buradaki fikir, Gizle veya Göster düğmesine tıkladığımızda, listelenen sayfaların gizlenmesi veya gösterilmesi gerektiğidir.

Aşağıdaki adımları izlememiz gerekiyor:

  • Sonucu elde etmek için VB editörünü başlatmamız gerekiyor
  • Geliştirici sekmesine tıklayın
  • Kod grubundan Visual Basic'i seçin

  • Ekle'ye ve ardından Modül'e tıklayın

Bu yeni modül oluşturacaktır.

Modüle aşağıdaki kodu girin

Sub HideTabs()Dim TabNo As DoubleDim LastTab As Double

LastTab = Aralık("Hide_TabsDNR").Count

Hatada Devam Et Sonraki

TabNo için = 2'den LastTab'e

Sheets(Range("Hide_TabsDNR")(TabNo)).Visible = False

Sonraki SekmeHayır

Hatada GoTo 0

Sayfalar(1).Seç

Alt Bitiş

Alt UnHideTabs()

Dim TabNo Çift Olarak

LastTab'i Çift Olarak Dim

LastTab = Aralık("Hide_TabsDNR").Count

Hatada Devam Et Sonraki

TabNo için = 2'den LastTab'e

Sheets(Range("UnHide_TabsDNR")(TabNo)).Visible = True

Sonraki SekmeHayır

Hatada GoTo 0

Sayfalar(1).Seç

Alt Bitiş

  • Hepimiz makroyu çalıştırmaya hazırız, eğer Gizle düğmesine tıklarsak, listelenen tüm sayfalar gizlenecektir, aşağıdaki anlık görüntüye bakın

  • Aynı şekilde, Göster düğmesine tıklarsak, D sütununda belirtilen tüm gizli sayfalar gösterilecektir.

Bu şekilde, aynı anda birden fazla sekmeyi dinamik olarak gizleyebilir veya gösterebiliriz.