Sådan dynamisk skjuler eller viser flere faner ved hjælp af VBA i Excel

Anonim

Overvej en situation, hvor du skal skjule og fjerne flere ark ad gangen. Hvis nogen gemmer sig og skjuler sig manuelt, vil dette tage meget tid.

I denne artikel lærer du, hvordan du dynamisk skjuler eller viser flere faner ved hjælp af VBA -kode.

Sp): Jeg vil have en makro, der vil skjule eller vise flere faner ad gangen.

Følgende er et øjebliksbillede af ark1, hvor der vil være to dynamiske lister, dvs. Skjul faner og vis faner

  • Ideen er, når vi klikker på knappen Skjul eller Skjul, så skal de listede ark blive skjult eller skjule

Vi skal følge nedenstående trin:

  • For at få resultatet skal vi starte VB -editor
  • Klik på fanen Udvikler
  • Vælg Visual Basic fra kodegruppen

  • Klik på Indsæt derefter modul

Dette vil oprette et nyt modul.

Indtast følgende kode i modulet

Sub HideTabs () Dim TabNo As DoubleDim LastTab As Double

LastTab = Range ("Hide_TabsDNR"). Antal

Ved fejl Genoptag næste

For TabNo = 2 Til LastTab

Sheets (Range ("Hide_TabsDNR") (TabNo)). Synlig = falsk

Næste fane Nej

Ved fejl GoTo 0

Ark (1) .Vælg

Afslut Sub

Sub UnHideTabs ()

Dim TabNo As Double

Dim LastTab som dobbelt

LastTab = Range ("Hide_TabsDNR"). Antal

Ved fejl Genoptag næste

For TabNo = 2 Til LastTab

Sheets (Range ("UnHide_TabsDNR") (TabNo)). Synligt = sandt

Næste fane Nej

Ved fejl GoTo 0

Ark (1) .Vælg

Afslut Sub

  • Vi er alle klar til at køre makroen, hvis vi klikker på Skjul -knappen, vil alle de listede ark blive skjult, se nedenfor snapshot

  • På samme måde, hvis vi klikker på knappen Skjul, vil alle de skjulte ark, der er nævnt i kolonne D, blive vist.

På denne måde kan vi dynamisk skjule eller fjerne flere faner ad gangen.