Hur dynamiskt dölja eller dölja flera flikar med VBA i Excel

Anonim

Tänk på en situation där du måste dölja och dölja flera ark åt gången. Om någon gömmer sig och döljer sig manuellt kommer det att ta mycket tid.

I den här artikeln lär du dig hur du dynamiskt döljer eller visar flera flikar med VBA -kod.

F): Jag vill ha ett makro som döljer eller visar flera flikar samtidigt.

Följande är en ögonblicksbild av blad 1 där det kommer att finnas två dynamiska listor, dvs dölj flikar och dölj flikar

  • Tanken är att när vi klickar på knappen Dölj eller Ta bort ska de listade arken döljas eller visas

Vi måste följa stegen nedan:

  • För att få resultatet måste vi starta VB -editor
  • Klicka på fliken Utvecklare
  • Välj Visual Basic i kodgruppen

  • Klicka på Infoga och sedan Modul

Detta skapar en ny modul.

Ange följande kod i modulen

Sub HideTabs () Dim TabNo As DoubleDim LastTab As Double

LastTab = Range ("Hide_TabsDNR"). Räkna

Vid fel Återuppta nästa

För TabNo = 2 Till LastTab

Kalkylark (intervall ("Hide_TabsDNR") (TabNo)). Synligt = falskt

Nästa flikNej

Vid fel GoTo 0

Ark (1) .Välj

Avsluta Sub

Sub UnHideTabs ()

Dim TabNo As Double

Dim LastTab As Double

LastTab = Range ("Hide_TabsDNR"). Räkna

Vid fel Återuppta nästa

För TabNo = 2 Till LastTab

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

Nästa flikNej

Vid fel GoTo 0

Ark (1) .Välj

Avsluta Sub

  • Vi är alla inställda på att köra makrot, om vi klickar på dölj -knappen kommer alla listade blad att döljas se nedan ögonblicksbild

  • På samma sätt om vi klickar på Unhide -knappen kommer alla dolda blad som nämns i kolumn D att visas.

På så sätt kan vi dynamiskt dölja eller ta bort flera flikar samtidigt.