Kako dinamično skriti ali razkriti več zavihkov z uporabo VBA v Excelu

Anonim

Razmislite o situaciji, v kateri morate skriti in razkriti več listov hkrati. Če se nekdo skriva in razkriva ročno, bo to trajalo veliko časa.

V tem članku se boste naučili, kako dinamično skriti ali razkriti več zavihkov s kodo VBA.

V): Želim makro, ki bo v enem trenutku skril ali razkril več zavihkov.

Sledi posnetek lista 1, v katerem bosta dva dinamična seznama, to je Skrij zavihke in Razkrij zavihke

  • Ideja je, da ko kliknemo gumb Skrij ali Razkrij, se morajo navedeni listi skriti ali razkriti

Slediti moramo naslednjim korakom:

  • Za dosego rezultata moramo zagnati urejevalnik VB
  • Kliknite zavihek Razvijalec
  • V skupini Koda izberite Visual Basic

  • Kliknite Vstavi in ​​nato Modul

To bo ustvarilo nov modul.

V modul vnesite naslednjo kodo

Sub HideTabs () Dim TabNo kot DoubleDim LastTab As Double

LastTab = Obseg ("Hide_TabsDNR"). Count

On Napaka Nadaljuj Naprej

Za TabNo = 2 do LastTab

Listi (obseg ("Skrij_TabsDNR") (TabNo)). Vidno = Napačno

Naslednji zavihek št

Pri napaki Pojdi na 0

Listi (1). Izberite

End Sub

Sub UnHideTabs ()

Zatemni zavihekNi kot dvojno

Zatemni LastTab kot dvojno

LastTab = Obseg ("Hide_TabsDNR"). Count

On Napaka Nadaljuj Naprej

Za TabNo = 2 do LastTab

Preglednice (obseg ("UnHide_TabsDNR") (TabNo)). Vidno = True

Naslednji zavihek št

Pri napaki Pojdi na 0

Listi (1). Izberite

End Sub

  • Vsi smo pripravljeni za zagon makra, če kliknemo gumb Skrij, bodo vsi navedeni listi skriti, glej spodnji posnetek

  • Na enak način, če kliknemo gumb Skrij, se bodo vsi skriti listi, omenjeni v stolpcu D, razkrili.

Na ta način lahko dinamično skrijemo ali razkrijemo več zavihkov hkrati.