Excel makro na skrytie všetkých okrem aktívneho pracovného hárka

Možno budete chcieť skryť neaktívne pracovné hárky pomocou tohto makra. Excel vám nedovolí skryť všetky hárky v zošite; musí byť zobrazený aspoň jeden. Môžete však skryť všetky okrem aktívneho hárku.

Ako funguje makro

Makro tu prechádza pracovnými hárkami a priraďuje názvy každého pracovného hárka k názvu aktívneho hárka. Zakaždým, keď sa makro zacyklí, skryje akýkoľvek pracovný hárok, ktorý sa nezhoduje.

Pod makro1()
'Krok 1: Deklarujte svoje premenné
    Dim ws As Worksheet
'Krok 2: Začnite prechádzať všetky pracovné hárky
    Pre každé ws In ThisWorkbook.Worksheets
„Krok 3: Skontrolujte názov každého pracovného hárka
    Ak ws.Name <> ThisWorkbook.ActiveSheet.Name Then
„Krok 4: Skryte hárok
    ws.Visible = xlSheetHidden
    Koniec Ak
„Krok 5: Prejdite na ďalší pracovný hárok
    Ďalšie ws
End Sub

Krok 1 deklaruje objekt s názvom ws. Tento krok vytvorí pamäťový kontajner pre každý pracovný hárok, cez ktorý makro prechádza.

Krok 2 začína cyklovanie a hovorí programu Excel, aby vyhodnotil všetky pracovné hárky v tomto zošite. Všimnite si rozdiel medzi ThisWorkbook a ActiveWorkbook. Objekt ThisWorkBook odkazuje na zošit, ktorý obsahuje kód. Objekt ActiveWorkBook odkazuje na aktuálne aktívny zošit. Často vracajú rovnaký objekt, ale ak zošit s kódom nie je aktívnym zošitom, vrátia rôzne objekty. V tomto prípade nechcete riskovať skrytie hárkov v iných zošitoch, preto použijete ThisWorkBook.

V kroku 3 makro jednoducho porovná názov aktívneho hárka s hárkom, ktorý je momentálne v slučke.

Ak sú názvy hárkov odlišné, makro v kroku 4 hárok skryje.

V kroku 5 prejdete späť a získate ďalší hárok. Po vyhodnotení všetkých hárkov sa makro skončí.

Všimnite si, že vo svojom makre používate xlsheetHidden. Táto vlastnosť použije predvolený stav skrytia, ktorý by ste normálne dostali, keď kliknete pravým tlačidlom myši na hárok a vyberiete možnosť Skryť. V tomto predvolenom stave skrytia môže používateľ kliknúť pravým tlačidlom myši na ľubovoľnú kartu a vybrať možnosť Odkryť, čím sa zobrazia všetky skryté hárky. Ale iný skrytý stav je tajnejší ako predvolený. Ak na skrytie hárkov použijete xlSheetVeryHidden, používatelia ich vôbec neuvidia – aj keď kliknú pravým tlačidlom myši na kartu a vyberú možnosť Odkryť. Jediný spôsob, ako odkryť hárok skrytý týmto spôsobom, je použiť VBA.

Ako používať makro

Ak chcete implementovať toto makro, môžete ho skopírovať a prilepiť do štandardného modulu:

Aktivujte Editor jazyka Visual Basic stlačením Alt+F11.

Kliknite pravým tlačidlom myši na názov projektu/zošita v okne projektu.

Vyberte Vložiť → Modul.

Zadajte alebo prilepte kód do novovytvoreného modulu.


Ako zablokovať Microsoft Word otváranie súborov v režime iba na čítanie v systéme Windows

Ako zablokovať Microsoft Word otváranie súborov v režime iba na čítanie v systéme Windows

Ako zablokovať Microsoft Word otváranie súborov v režime len na čítanie v systéme Windows Microsoft Word otvára súbory v režime len na čítanie, takže ich nie je možné upravovať? Nebojte sa, metódy sú uvedené nižšie

Ako opraviť nesprávnu tlač dokumentov Microsoft Word

Ako opraviť nesprávnu tlač dokumentov Microsoft Word

Ako opraviť chyby pri tlači nesprávnych dokumentov Microsoft Word Chyby pri tlači dokumentov Word so zmeneným typom písma, chaotickými odsekmi, chýbajúcim textom alebo strateným obsahom sú pomerne časté. Avšak, nie

Vymažte kresby perom a zvýrazňovačom na svojich PowerPointových snímkach

Vymažte kresby perom a zvýrazňovačom na svojich PowerPointových snímkach

Ak ste použili pero alebo zvýrazňovač na kreslenie na powerpointové snímky počas prezentácie, môžete si kresby uložiť pre ďalšiu prezentáciu alebo ich vymazať, aby ste pri ďalšom zobrazení začali s čistými powerpointovými snímkami. Ak chcete vymazať kresby perom a zvýrazňovačom, postupujte podľa týchto pokynov: Vymazanie riadkov jedna na […]

Obsah knižnice štýlov v SharePointe 2010

Obsah knižnice štýlov v SharePointe 2010

Knižnica štýlov obsahuje súbory CSS, súbory XSL (Extensible Stylesheet Language) a obrázky používané preddefinovanými vzorovými stránkami, rozloženiami strán a ovládacími prvkami v SharePointe 2010. Ak chcete nájsť súbory CSS v knižnici štýlov publikačnej lokality: Vyberte Akcie lokality→Zobraziť Všetok obsah stránky. Zobrazí sa obsah stránky. Knižnica štýlov sa nachádza v […]

Formátovanie čísel v tisíckach a miliónoch v správach Excel

Formátovanie čísel v tisíckach a miliónoch v správach Excel

Nezahlcujte svoje publikum obrovskými číslami. V programe Microsoft Excel môžete zlepšiť čitateľnosť svojich tabúľ a zostáv formátovaním čísel tak, aby sa zobrazovali v tisíckach alebo miliónoch.

Ako zdieľať a sledovať lokality SharePoint

Ako zdieľať a sledovať lokality SharePoint

Zistite, ako používať nástroje sociálnych sietí SharePoints, ktoré umožňujú jednotlivcom a skupinám komunikovať, spolupracovať, zdieľať a spájať sa.

Ako previesť dátumy do Julianových formátov v Exceli

Ako previesť dátumy do Julianových formátov v Exceli

Juliánske dátumy sa často používajú vo výrobných prostrediach ako časová pečiatka a rýchla referencia pre číslo šarže. Tento typ kódovania dátumu umožňuje maloobchodníkom, spotrebiteľom a servisným zástupcom identifikovať, kedy bol produkt vyrobený, a teda aj vek produktu. Juliánske dátumy sa používajú aj v programovaní, armáde a astronómii. Rôzne […]

Ako vytvoriť Access Web App

Ako vytvoriť Access Web App

V Accesse 2016 môžete vytvoriť webovú aplikáciu. Čo je to teda webová aplikácia? Web znamená, že je online a aplikácia je len skratka pre „aplikáciu“. Vlastná webová aplikácia je online databázová aplikácia, ku ktorej sa pristupuje z cloudu pomocou prehliadača. Vytvárate a udržiavate webovú aplikáciu vo verzii pre počítače […]

Panel rýchleho spustenia v SharePointe 2010

Panel rýchleho spustenia v SharePointe 2010

Väčšina stránok v SharePointe 2010 zobrazuje zoznam navigačných prepojení na paneli Rýchle spustenie pozdĺž ľavej strany stránky. Panel Rýchle spustenie zobrazuje prepojenia na odporúčaný obsah lokality, ako sú zoznamy, knižnice, lokality a publikačné stránky. Panel Rýchle spustenie obsahuje dva veľmi dôležité odkazy: Odkaz na celý obsah lokality: […]

Čo znamenajú chybové hlásenia v programe Excel?

Čo znamenajú chybové hlásenia v programe Excel?

Pre jednoduché problémy Riešiteľ v Exceli zvyčajne rýchlo nájde optimálne hodnoty premennej Riešiteľ pre cieľovú funkciu. V niektorých prípadoch má však Riešiteľ problém nájsť hodnoty premennej Riešiteľ, ktoré optimalizujú cieľovú funkciu. V týchto prípadoch Riešiteľ zvyčajne zobrazí hlásenie alebo chybové hlásenie, ktoré popisuje alebo diskutuje problém, ktorý […]