Harkitse tilannetta, jossa sinun täytyy piilottaa ja näyttää useita arkkeja kerrallaan. Jos joku piilottaa ja näyttää manuaalisesti, tämä vie paljon aikaa.
Tässä artikkelissa opit piilottamaan tai paljastamaan useita välilehtiä dynaamisesti VBA -koodilla.
K): Haluan makron, joka piilottaa tai näyttää useita välilehtiä kerrallaan.
Seuraavassa on tilannekuva taulukosta1, jossa on kaksi dynaamista luetteloa eli Piilota välilehdet ja Näytä välilehdet
- Ajatuksena on, että kun napsautamme Piilota tai Näytä, -painiketta, luetteloitujen arkkien pitäisi piiloutua tai näyttää
Meidän on noudatettava seuraavia vaiheita:
- Tuloksen saamiseksi meidän on käynnistettävä VB -editori
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- Napsauta Lisää ja sitten Moduuli
Tämä luo uuden moduulin.
Syötä seuraava koodi moduuliin
Sub HideTabs () Dim Tab (Ei välilehteä) Ei Double (Double) Dim LastTab Double (Tupla)LastTab = Alue ("Hide_TabsDNR")
Virhe Jatka seuraavaksi
TabNo = 2 - LastTab
Sheets (Alue ("Hide_TabsDNR") (TabNo)). Visible = False
Seuraava välilehti
Virhe GoTo 0
Arkit (1) Valitse
End Sub
Ala UnHideTabs ()
Dim -välilehti Ei kaksinkertaisena
Dim LastTab Double
LastTab = Alue ("Hide_TabsDNR")
Virhe Jatka seuraavaksi
TabNo = 2 - LastTab
Sheets (Alue ("UnHide_TabsDNR") (TabNo)). Visible = True
Seuraava välilehti
Virhe GoTo 0
Arkit (1) Valitse
End Sub
- Olemme kaikki valmiita suorittamaan makron, jos napsautamme Piilota -painiketta, kaikki luetellut taulukot piilotetaan alla olevan tilannekuvan alla
- Samalla tavalla, jos napsautamme Unhide -painiketta, kaikki sarakkeessa D mainitut piilotetut taulukot näkyvät.
Tällä tavoin voimme dynaamisesti piilottaa tai näyttää useita välilehtiä kerralla.