Kuidas Excelis mitu vahekaarti dünaamiliselt peita või kuvada

Anonim

Mõelge olukorrale, kus peate mitu lehte korraga peitma ja peitma. Kui keegi peidab ja peidab käsitsi, võtab see palju aega.

Sellest artiklist saate teada, kuidas mitme vahekaardi dünaamiline peitmine või peitmine VBA -koodi abil.

K): Ma tahan makro, mis peidab või näitab mitu vahekaarti korraga.

Järgnevalt on ülevaade lehest 1, milles on kaks dünaamilist loendit, st peida vahekaardid ja ava vahelehed

  • Idee seisneb selles, et kui klõpsame nupul Peida või peida, peaksid loetletud lehed peitma või peitma

Peame järgima järgmisi samme:

  • Tulemuse saamiseks peame käivitama VB redaktori
  • Klõpsake vahekaarti Arendaja
  • Valige koodigrupist Visual Basic

  • Klõpsake nuppu Sisesta ja seejärel Moodul

See loob uue mooduli.

Sisestage moodulisse järgmine kood

Alamvahekaardid () Dim VahekaartNo As DoubleDim LastTab As Double

LastTab = Vahemik ("Hide_TabsDNR"). Loend

Vea korral Jätka järgmist

TabNo = 2 kuni LastTab

Arvutustabelid (Vahemik ("Hide_TabsDNR") (TabNo)). Visible = False

Järgmine vahelehtNo

Viga GoTo 0

Lehed (1). Valige

End Sub

Vahekaartide peitmine ()

Hämarduskaart Ei ole topelt

Dim Viimane vaheleht topelt

LastTab = Vahemik ("Hide_TabsDNR"). Loend

Vea korral Jätka järgmist

TabNo = 2 kuni LastTab

Arvutustabelid (vahemik ("UnHide_TabsDNR") (TabNo)). Visible = True

Järgmine vahelehtNo

Viga GoTo 0

Lehed (1). Valige

End Sub

  • Oleme kõik makro käivitamiseks valmis, kui klõpsame nupul Peida, siis on kõik loetletud lehed peidetud, vt allpool olevat pilti

  • Samamoodi, kui klõpsame nuppu Näita, kuvatakse kõik D veerus mainitud peidetud lehed.

Sel viisil saame korraga mitu vahekaarti dünaamiliselt peita või peita.