Hoe dynamisch meerdere tabbladen te verbergen of zichtbaar te maken met VBA in Excel

Overweeg een situatie waarin u meerdere bladen tegelijk moet verbergen en zichtbaar maken. Als iemand zich handmatig verbergt en weer zichtbaar maakt, kost dit veel tijd.

In dit artikel leert u hoe u meerdere tabbladen dynamisch kunt verbergen of zichtbaar maken met VBA-code.

V): Ik wil een macro die meerdere tabbladen op een bepaald moment verbergt of zichtbaar maakt.

Hieronder volgt een momentopname van blad1 waarin er twee dynamische lijsten zullen zijn, namelijk Tabbladen verbergen en tabbladen zichtbaar maken

Het idee is dat wanneer we op de knop Verbergen of Zichtbaar maken klikken, de weergegeven bladen moeten worden verborgen of zichtbaar gemaakt

We moeten de onderstaande stappen volgen:

Om het resultaat te krijgen, moeten we VB-editor starten
Klik op het tabblad Ontwikkelaar
Selecteer in de codegroep Visual Basic

Klik op Invoegen en vervolgens op Module

Hiermee wordt een nieuwe module gemaakt.

Voer de volgende code in de module in:

Sub HideTabs()Dim TabNo As DoubleDim LastTab As Double

LastTab = Bereik ("Hide_TabsDNR").Aantal

Bij fout Hervatten Volgende

Voor TabNo = 2 Naar LastTab

Spreadsheets (Bereik ("Hide_TabsDNR") (TabNee)). Zichtbaar = False

Volgende tabbladNee

Bij fout Ga naar 0

Bladen(1).Selecteer

Einde sub

Sub UnHideTabs()

Dim TabNee als dubbel

Dim LastTab als dubbel

LastTab = Bereik ("Hide_TabsDNR").Aantal

Bij fout Hervatten Volgende

Voor TabNo = 2 Naar LastTab

Spreadsheets(Bereik("UnHide_TabsDNR")(TabNo)). Zichtbaar = True

Volgende tabbladNee

Bij fout Ga naar 0

Bladen(1).Selecteer

Einde sub

We zijn allemaal klaar om de macro uit te voeren, als we op de knop Verbergen klikken, worden alle weergegeven bladen verborgen, zie onderstaande momentopname