Ako dynamicky skryť alebo odkryť viac kariet pomocou jazyka VBA v programe Excel

Anonim

Uvažujte o situácii, v ktorej musíte skryť a odkryť viacero hárkov naraz. Ak sa niekto skrýva a odkrýva ručne, bude to trvať veľa času.

V tomto článku sa naučíte, ako dynamicky skryť alebo odkryť viacero kariet pomocou kódu VBA.

Otázka): Chcem makro, ktoré skryje alebo odkryje viacero kariet naraz.

Nasleduje snímka listu1, v ktorej budú dva dynamické zoznamy, tj. Skryť karty a Odkryť karty

  • Ide o to, že keď klikneme na tlačidlo Skryť alebo Odkryť, potom by sa uvedené listy mali skryť alebo odkryť

Musíme postupovať podľa nasledujúcich krokov:

  • Aby sme dosiahli výsledok, musíme spustiť editor VB
  • Kliknite na kartu Vývojár
  • Zo skupiny kódov vyberte Visual Basic

  • Kliknite na Vložiť a potom na Modul

Tým sa vytvorí nový modul.

Do modulu zadajte nasledujúci kód

Sub HideTabs () Dim TabNo As DoubleDim LastTab As Double

LastTab = Rozsah ("Hide_TabsDNR"). Počet

Pri chybe Pokračovať Ďalej

Pre TabNo = 2 na LastTab

Tabuľky (Rozsah („Hide_TabsDNR“) (TabNo)). Visible = False

Nasledujúca tab

Pri chybe GoTo 0

Listy (1). Vyberte

Koniec pod

Sub UnHideTabs ()

Dim TabNo As Double

Dim LastTab ako dvojitý

LastTab = Rozsah ("Hide_TabsDNR"). Počet

Pri chybe Pokračovať Ďalej

Pre TabNo = 2 na LastTab

Tabuľky (Rozsah („UnHide_TabsDNR“) (TabNo)). Visible = True

Nasledujúca tab

Pri chybe GoTo 0

Listy (1). Vyberte

Koniec pod

  • Všetci sme pripravení spustiť makro, ak klikneme na tlačidlo Skryť, všetky uvedené hárky budú skryté, pozrite sa na snímku nižšie

  • Rovnakým spôsobom, ak klikneme na tlačidlo Odkryť, potom sa všetky skryté listy uvedené v stĺpci D odkryjú.

Týmto spôsobom môžeme dynamicky skryť alebo odkryť viacero kariet naraz.