Luați în considerare o situație în care trebuie să ascundeți și să afișați mai multe foi la un moment dat. Dacă cineva se ascunde și se ascunde manual, atunci va dura mult timp.
În acest articol, veți învăța cum să ascundeți sau să ascundeți dinamic mai multe file folosind codul VBA.
Î): Vreau o macro care să ascundă sau să dezvăluie mai multe file la un moment dat.
Urmează un instantaneu al foii 1 în care vor exista două liste dinamice, adică Ascunde filele și Afișează filele
- Ideea este când facem clic pe butonul Ascunde sau Afișează, apoi foile listate ar trebui să se ascundă sau să se afișeze
Trebuie să urmăm pașii de mai jos:
- Pentru a obține rezultatul, trebuie să lansăm editorul VB
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Faceți clic pe Insert apoi Module
Aceasta va crea un nou modul.
Introduceți următorul cod în modul
Sub HideTabs () Dim Tab Nu ca DoubleDim LastTab Ca dubluLastTab = Range ("Hide_TabsDNR"). Număr
La eroare Reluați în continuare
Pentru TabNo = 2 To LastTab
Foi de calcul (Interval ("Hide_TabsDNR") (TabNo)). Vizibil = False
Următoarea filă Nu
La eroare GoTo 0
Foi (1). Selectați
Sfârșitul Sub
Sub UnHideTabs ()
Dim Tab Nu ca dublu
Dim LastTab ca dublu
LastTab = Range ("Hide_TabsDNR"). Număr
La eroare Reluați în continuare
Pentru TabNo = 2 To LastTab
Foi de calcul (Interval („UnHide_TabsDNR”) (TabNo)). Vizibil = Adevărat
Următoarea filă Nu
La eroare GoTo 0
Foi (1). Selectați
Sfârșitul Sub
- Suntem cu toții pregătiți să rulăm macro-ul, dacă facem clic pe butonul Ascunde, atunci toate foile listate vor fi ascunse, consultați mai jos instantaneu
- La fel, dacă facem clic pe butonul Unhide, toate foile ascunse menționate în coloana D vor fi afișate.
În acest fel putem ascunde sau dezvălui dinamic mai multe file simultan.