Hvordan skjule eller skjule flere faner dynamisk ved hjelp av VBA i Excel

Anonim

Vurder en situasjon der du må skjule og skjule flere ark om gangen. Hvis noen gjemmer seg og skjuler seg manuelt, vil dette ta mye tid.

I denne artikkelen lærer du hvordan du dynamisk skjuler eller viser flere faner ved hjelp av VBA -kode.

Sp): Jeg vil ha en makro som vil skjule eller vise flere faner på et tidspunkt.

Følgende er et øyeblikksbilde av ark1 der det vil være to dynamiske lister, dvs. Skjul faner og Vis faner

  • Tanken er at når vi klikker på Skjul eller Skjul -knappen, skal de listede arkene skjule eller skjule

Vi må følge trinnene nedenfor:

  • For å få resultatet må vi starte VB -editor
  • Klikk på kategorien Utvikler
  • Velg Visual Basic fra kodegruppen

  • Klikk på Sett inn og deretter modul

Dette vil opprette en ny modul.

Skriv inn følgende kode i modulen

Sub HideTabs () Dim TabNo As DoubleDim LastTab As Double

LastTab = Range ("Hide_TabsDNR"). Antall

Ved feil Fortsett neste

For TabNo = 2 To LastTab

Ark (område ("Hide_TabsDNR") (TabNo)). Synlig = usant

Neste fane Nei

Ved feil GoTo 0

Ark (1) .Velg

Slutt Sub

Sub UnHideTabs ()

Dim TabNo As Double

Dim LastTab As Double

LastTab = Range ("Hide_TabsDNR"). Antall

Ved feil Fortsett neste

For TabNo = 2 To LastTab

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

Neste fane Nei

Ved feil GoTo 0

Ark (1) .Velg

Slutt Sub

  • Vi er klare til å kjøre makroen. Hvis vi klikker på Skjul -knappen, blir alle de listede arkene skjult, se under øyeblikksbildet

  • På samme måte hvis vi klikker på Unhide -knappen, vil alle de skjulte arkene som er nevnt i kolonne D bli vist.

På denne måten kan vi dynamisk skjule eller vise flere faner samtidig.