Kako dinamički sakriti ili sakriti više kartica pomoću VBA u Excelu

Anonim

Razmislite o situaciji u kojoj morate sakriti i otkriti više listova odjednom. Ako se netko skriva i otkriva ručno, to će potrajati puno vremena.

U ovom ćete članku naučiti kako dinamički sakriti ili otkriti više kartica pomoću VBA koda.

P): Želim makronaredbu koja će sakriti ili otkriti više kartica u jednom trenutku.

Slijedi snimak lista 1 na kojem će se nalaziti dva dinamička popisa, tj. Sakrij kartice i Otkrij kartice

  • Ideja je kad kliknemo gumb Sakrij ili Otkrij tada bi se navedeni listovi trebali sakriti ili otkriti

Moramo slijediti korake u nastavku:

  • Da bismo dobili rezultat, moramo pokrenuti VB editor
  • Kliknite karticu Developer
  • Iz grupe kodova odaberite Visual Basic

  • Pritisnite Umetni pa Modul

Ovo će stvoriti novi modul.

Unesite sljedeći kôd u Modul

Sub HideTabs () Dim TabNo As DoubleDim LastTab As Double

LastTab = Raspon ("Hide_TabsDNR"). Count

Uključeno Slijedi nastavak greške

Za TabNo = 2 do LastTab

Tablice (raspon ("Sakrij_TabsDNR") (TabNo)). Vidljivo = Netačno

Sljedeći TabNo

Uključeno Greška Idi na 0

Listovi (1) .Odaberite

Kraj podm

Sub UnHideTabs ()

Tablica Dim Dim No Double

Zatamni LastTab kao dvostruko

LastTab = Raspon ("Hide_TabsDNR"). Count

Uključeno Slijedi nastavak greške

Za TabNo = 2 do LastTab

Tablice (raspon ("UnHide_TabsDNR") (TabNo)). Vidljivo = Istina

Sljedeći TabNo

Uključeno Greška Idi na 0

Listovi (1) .Odaberite

Kraj podm

  • Svi smo spremni za pokretanje makronaredbe, ako kliknemo na gumb Sakrij tada će svi navedeni listovi biti skriveni, pogledajte donju snimku

  • Na isti način ako kliknemo na gumb Otkrij tada će se svi skriveni listovi koji su spomenuti u stupcu D otkriti.

Na taj način možemo dinamički sakriti ili otkriti više kartica odjednom.