Kaip dinamiškai slėpti arba rodyti kelis skirtukus naudojant „Excel“ naudojant VBA

Anonim

Apsvarstykite situaciją, kai reikia slėpti ir rodyti kelis lapus vienu metu. Jei kas nors slepiasi ir slepiasi rankiniu būdu, tai užtruks daug laiko.

Šiame straipsnyje jūs sužinosite, kaip dinamiškai slėpti arba rodyti kelis skirtukus naudojant VBA kodą.

Kl.) Noriu makrokomandos, kuri vienu metu paslėps arba parodys kelis skirtukus.

Toliau pateikiamas lapo1 momentinis vaizdas, kuriame bus du dinaminiai sąrašai, ty Slėpti skirtukus ir Rodyti skirtukus

  • Idėja yra ta, kad kai paspaudžiame mygtuką Slėpti arba Rodyti, tada išvardyti lapai turėtų būti paslėpti arba neparodyti

Turime atlikti šiuos veiksmus:

  • Norėdami gauti rezultatą, turime paleisti VB redaktorių
  • Spustelėkite skirtuką Kūrėjas
  • Iš kodų grupės pasirinkite „Visual Basic“

  • Spustelėkite Įterpti, tada - Modulis

Tai sukurs naują modulį.

Į modulį įveskite šį kodą

Sub HideTabs () Dim TabNe As DoubleDim LastTab As Double

LastTab = Diapazonas ("Hide_TabsDNR"). Skaičius

Dėl klaidos Tęsti toliau

„TabNo“ = 2 iki „LastTab“

Skaičiuoklės (diapazonas („Hide_TabsDNR“) (skirtuko Nr.)). Matomas = klaidingas

Kitas skirtukas Nr

Klaida „GoTo 0“

Lakštai (1). Pasirinkite

Pabaiga Sub

Sub UnhideTabs ()

„Dim Tab“ Ne kaip dvigubas

„Dim LastTab“ kaip dvigubas

LastTab = Diapazonas ("Hide_TabsDNR"). Skaičius

Dėl klaidos Tęsti toliau

„TabNo“ = 2 iki „LastTab“

Skaičiuoklės (diapazonas („UnHide_TabsDNR“) (skirtuko Nr.)). Matomas = tiesa

Kitas skirtukasNr

Klaida „GoTo 0“

Lakštai (1). Pasirinkite

Pabaiga Sub

  • Mes visi pasiruošę paleisti makrokomandą, jei spustelėsime Slėpti mygtuką, visi išvardyti lapai bus paslėpti, žr.

  • Lygiai taip pat, jei spustelėsime mygtuką „Nerodyti“, visi paslėpti lapai, paminėti D stulpelyje, bus nepaslėpti.

Tokiu būdu galime vienu metu dinamiškai slėpti arba rodyti kelis skirtukus.