Jak dynamicky skrývat nebo odkrývat více karet pomocí VBA v aplikaci Excel

Anonim

Zvažte situaci, ve které potřebujete skrýt a zobrazit více listů najednou. Pokud se někdo skrývá a odkrývá ručně, bude to trvat hodně času.

V tomto článku se dozvíte, jak dynamicky skrývat nebo odkrývat více karet pomocí kódu VBA.

Otázka): Chci makro, které skryje nebo odkryje více karet najednou.

Následuje snímek listu1, ve kterém budou dva dynamické seznamy, tj. Skrýt karty a Zobrazit karty

  • Myšlenka je, když klikneme na tlačítko Skrýt nebo Odkrýt, pak by se uvedené listy měly skrýt nebo zobrazit

Musíme postupovat podle následujících kroků:

  • Abychom získali výsledek, musíme spustit editor VB
  • Klikněte na kartu Vývojář
  • Ze skupiny kódů vyberte Visual Basic

  • Klikněte na Vložit a poté na Modul

Tím se vytvoří nový modul.

Do modulu zadejte následující kód

Sub HideTabs () Dim TabNo As DoubleDim LastTab As Double

LastTab = Range ("Hide_TabsDNR"). Počet

Při chybě Pokračovat Další

Pro TabNo = 2 na LastTab

Listy (Rozsah („Hide_TabsDNR“) (TabNo)). Visible = False

Další tab

Při chybě GoTo 0

Listy (1). Vyberte

End Sub

Sub UnHideTabs ()

Dim TabNo As Double

Dim LastTab jako dvojitý

LastTab = Range ("Hide_TabsDNR"). Počet

Při chybě Pokračovat Další

Pro TabNo = 2 na LastTab

Listy (Rozsah („UnHide_TabsDNR“) (TabNo)). Visible = True

Další tab

Při chybě GoTo 0

Listy (1). Vyberte

End Sub

  • Všichni jsme připraveni spustit makro, pokud klikneme na tlačítko Skrýt, všechny uvedené listy budou skryty, viz snímek níže

  • Stejným způsobem, pokud klikneme na tlačítko Zobrazit, všechny skryté listy uvedené ve sloupci D se odkryjí.

Tímto způsobem můžeme dynamicky skrývat nebo zobrazovat více karet najednou.