Jak odkrýt listy v aplikaci Excel (vše v jednom)

Podívejte se na video - Jak odkrýt všechny listy v aplikaci Excel

V případě, že dáváte přednost čtení výukového programu před sledováním videa, níže je podrobný písemný návod k odkrývání listů v aplikaci Excel.

Při práci s daty, která jsou rozložena do více listů v aplikaci Excel, možná budete chtít skrýt několik listů. Mohlo by to být tím, že se vyhnete nepořádku nebo neukážete některá data svému klientovi/manažerovi tím, že skryjete některé listy a ponecháte viditelné pouze ty užitečné.

A v některých případech můžete mít sešit, který má nějaké skryté listy a chcete zobrazit některé nebo všechny tyto listy.

V tomto tutoriálu vám ukážu některé metody pro odkrytí listů v Excelu (ručně i automaticky pomocí VBA). Ukážu vám také, jak selektivně odkrývat listy na základě názvu nebo podmínky.

Začněme tedy!

Ruční odkrývání listů

Pokud máte jen několik listů, které jsou skryté, můžete některé nebo všechny tyto listy manuálně zrušit.

Předpokládejme, že máte sešit aplikace Excel, který má 10 listů, které jsou skryté.

Níže jsou uvedeny kroky k ručnímu odkrytí listů (po jednom):

1. Klikněte pravým tlačítkem na některou z existujících karet listu
2. Klikněte na možnost Unhide. Otevře se dialogové okno Odkrýt, které obsahuje seznam všech skrytých listů
3. V dialogovém okně Odkrýt klikněte na list, který chcete zobrazit (můžete vybrat pouze jeden po druhém).
4. Klikněte na OK.

Výše uvedené kroky by odkryly vybraný list.

Poznámka: Bohužel v aplikaci Excel není žádná vestavěná funkce pro rychlé odkrytí všech skrytých listů (nebo způsob, jak vybrat více než jeden list a zobrazit jej). V tuto chvíli musíte použít dialogové okno Zobrazit, kde můžete zobrazit pouze jeden list, který chcete zobrazit.

Pracovní listy můžete hromadně skrývat, ale hromadně je odkrývat

Pokud chcete skrýt listy, můžete vybrat více listů najednou (podržte ovládací klávesu a klikněte na název karty listu), klikněte pravým tlačítkem a klikněte na možnost Skrýt.

Bohužel v aplikaci Excel není k dispozici žádná vestavěná funkce pro rychlé odkrytí všech skrytých listů (nebo způsob, jak vybrat více než jeden list a odkrýt jej). V tuto chvíli musíte použít dialogové okno Zobrazit, kde můžete zobrazit pouze jeden list, který chcete zobrazit.

I když neexistuje žádná integrovaná funkce pro hromadné odkrytí, můžete to snadno provést pomocí jednoduchého kódu makra VBA.

Odkryjte všechny listy najednou

S VBA můžete snadno hromadně odkrývat listy.

Pokud máte například 10 skrytých listů, můžete vytvořit jednoduchý kód VBA pro odkrytí všech listů nebo je můžete odkrýt na základě podmínky (například odkrýt pouze ty, kde je v názvu konkrétní předpona nebo rok).

Poznámka: Metody obsažené v tomto kurzu nevyžadují uložení sešitu aplikace Excel ve formátu s podporou maker (.XLSM), abyste mohli používat kód VBA.

Pomocí okamžitého okna

VB Editor v aplikaci Excel má okamžité okno, kde můžete zadat řádek kódu a okamžitě jej spustit.

Níže jsou uvedeny kroky k použití výše uvedeného řádku kódu k odkrytí listů prostřednictvím okamžitého okna:

1. Klikněte pravým tlačítkem na kterýkoli z viditelných listů v sešitu
2. Klikněte na Zobrazit kód. Tím se otevře editor VB.
3. V nabídce klikněte na možnost Zobrazit a poté klikněte na okno Okamžité. Tím se okno Immediate zobrazí v editoru VB (pokud tam již není).
4. V okně Immediate zkopírujte a vložte následující řádek kódu: Pro každý list v tomto sešitu. Listy: List.Visible = True: Další list
5. Umístěte kurzor na konec řádku
6. Stiskněte klávesu Enter

A je to!

Výše uvedené kroky by okamžitě odhalily všechny listy v sešitu.

Až budete hotovi, můžete zavřít editor VB.

Nejlepší na tom je, že to můžete udělat v jakémkoli sešitu. S uložením sešitu ve formátu s povolenými makry si nemusíte dělat starosti. Stačí spustit řádek kódu a okamžitě zobrazit všechny listy v sešitu.

Dovolte mi také rychle vysvětlit níže uvedený kód VBA, který jsme použili v bezprostředním okně k odkrytí listů:

Pro každý list v tomto sešitu. Listy: List.Visible = True: Další list

Výše uvedený kód používá smyčku For Next VBA k procházení všemi listy v sešitu a nastavení vlastnosti visible na hodnotu TRUE. Jakmile se změní viditelná vlastnost všech listů, kód skončí.

Dvojtečka (:) použitá ve výše uvedeném kódu je ekvivalentní zalomení řádku. I když to vypadá jako jeden řádek kódu, má to tři části, které jsou odděleny dvěma dvojtečkami.

Pokud máte zájem dozvědět se více o okamžitém okně a o úžasných věcech, které s ním můžete dělat, zde je podrobný návod.

Přidáním makra do QAT (jedním kliknutím)

V případě, že musíte listy poměrně často odkrývat, může být dalším dobrým způsobem kód makra pro odkrytí listů v osobním sešitu maker a uložení ikony na panel nástrojů Rychlý přístup.

Jedná se pouze o jednorázový proces, a jakmile to budete mít hotové, můžete listy znovu zobrazit v libovolném sešitu pouhým kliknutím na tlačítko v QAT.

Toto je zdaleka nejefektivnější způsob odkrytí listů v aplikaci Excel (nejužitečnější, když získáte spoustu sešitů se skrytými listy a musíte je odkryt).

Zde jde o to, uložit kód pro odkrytí listů v osobním sešitu maker.

Osobní sešit maker je něco, co je vždy otevřené, když otevřete jakýkoli soubor aplikace Excel (i když ho nevidíte). Když uložíte kód makra do sešitu Personal Macro, tento kód je vám nyní vždy k dispozici. A když to přidáte do QAT a spustíte kód makra jediným kliknutím.

Níže je uveden kód, který je třeba přidat do osobního sešitu maker:

Sub UnhideAllSheets () pro každý list v listech List.Visible = True Next Sheet End Sub

Níže jsou uvedeny kroky k přidání tohoto kódu do osobního sešitu maker:

1. Klikněte na tlačítko záznamu makra (je to v levé dolní části aplikace sešit Excel)
2. V dialogovém okně Záznam makra změňte v nastavení Uložit makro na - Osobní sešit maker.
3. Klikněte na OK. Spustí se záznam makra
4. Klikněte na ikonu Zastavit nahrávání makra (vlevo dole v sešitu). Tím se zastaví nahrávání makra
5. Klikněte pravým tlačítkem na libovolnou kartu listu a poté klikněte na „Zobrazit kód“
6. V editoru VB poklepejte na objekt Module v sešitu Personal.XLSB
7. Odeberte veškerý stávající kód a zkopírujte a vložte výše uvedený kód.
8. Na panelu nástrojů klikněte na ikonu Uložit
9. Zavřete editor Vb

Výše uvedené kroky umožňují zviditelnit sešit osobního makra v editoru VB a umístit kód k odkrytí listů v něm.

Nyní stačí tento kód přidat na panel nástrojů Rychlý přístup, abyste jej mohli kdykoli použít z jakéhokoli sešitu.

Níže jsou uvedeny kroky pro přidání tohoto kódu na panel nástrojů Rychlý přístup:

1. Klikněte na ikonu Přizpůsobit panel nástrojů Rychlý přístup.
2. Klikněte na Další příkazy.
3. V dialogovém okně Možnosti aplikace Excel klikněte na rozevírací nabídku „Vybrat příkazy z“
4. Klikněte na makra. To vám ukáže seznam všech maker v sešitu (včetně těch v PERSONAL.XLSB)
5. Výběrem kódu makra odkryjte listy
6. Klikněte na tlačítko Přidat
7. Klikněte na OK.

Výše uvedené kroky by přidaly tento kód makra k odkrytí listů na panelu nástrojů Rychlý přístup.

Nyní, kdykoli získáte sešit, který má některé listy skryté, stačí kliknout na ikonu kódu v QAT a okamžitě zobrazí všechny listy najednou.

Odkryjte listy se specifickým textem v názvu

Pomocí VBA můžete také odkrýt listy podle názvu.

Předpokládejme například, že máte sešit, který obsahuje listy s názvy let a chcete zobrazit všechny ty, kde je rok 2021-2022.

Níže uvedený kód můžete použít k odkrytí všech listů s textem 2021-2022:

Sub UnhideSheetsWithSpecificText () Pro každý ws v ThisWorkbook.Worksheets If InStr (ws.Name, "2020")> 0 Then ws.Visible = xlSheetVisible End If Next ws End Sub

Výše uvedené používá smyčku For Next k procházení každého listu v sešitu. Podmínka IF Then pak zkontroluje název listu a pokud obsahuje zadaný text (což je 2021-2022 v tomto kódu), změní vlastnost visible, aby byla viditelná.

A pokud název neobsahuje zadaný text, ponechá jej tak, jak je.

Tento kód můžete také upravit tak, aby skrýval listy na základě textu v názvu.

Pokud například chcete rychle skrýt všechny listy, kde název obsahuje text „2020“, můžete použít níže uvedený kód:

Sub HideSheetsWithSpecificText () Pro každé ws v ThisWorkbook.Worksheets If InStr (ws.Name, "2020")> 0 Then ws.Visible = xlHidden End If Next ws End Sub

Poznámka: Tento kód můžete uložit do běžného modulu do editoru VB nebo jej můžete uložit do osobního sešitu maker. V případě, že jej uložíte do běžného modulu a budete ho potřebovat použít znovu později, budete muset sešit uložit jako sešit s podporou maker (formát .XLSM).

Odkrýt vybrané listy (na základě výběru uživatele)

Můžete také použít VBA, abyste uživateli poskytli flexibilitu při výběru, zda se má list zobrazit nebo ne.

To lze provést zobrazením pole se zprávou, které uživatele požádá, aby vybral, zda se má list zobrazit nebo ne. Pokud je vybrán, odkryje tento list, jinak se přesune na další.

Níže je uveden kód, který to provede:

Sub UnhideSheetsUserSelection () Pro každý sh In ThisWorkbook.Sheets If sh.Visible True Then Result = MsgBox ("Do you want to Unhide" & sh.Name, vbYesNo) If Result = vbYes Then sh.Visible = True End If Next sh End Sub

Výše uvedený kód prochází každým listem v sešitu a kontroluje, zda je již viditelný nebo ne. Pokud je skrytý, zobrazí se okno se zprávou s názvem listu.

Jako uživatel se nyní můžete rozhodnout, zda chcete tento list ponechat skrytý, nebo ho zobrazit.

To může fungovat dobře, pokud máte nějaké pracovní listy, které jsou skryté, a chcete přijmout volání pro každý list jednotlivě.

Poznámka: Tento kód můžete uložit do běžného modulu v editoru VB nebo jej můžete uložit do osobního sešitu maker. V případě, že jej uložíte do běžného modulu a budete ho potřebovat použít znovu později, budete muset sešit uložit jako sešit s podporou maker (formát .XLSM).

Zde je návod, kde ukážu, jak uložit kód do běžného modulu v Excelu (v tomto článku vyhledejte sekci „Kam tento kód vložit“)

Odkryjte všechny nebo vybrané listy pomocí vlastního zobrazení

Toto je méně známá metoda v případě, že chcete rychle zobrazit všechny listy (nebo některé vybrané listy).

„Vlastní zobrazení“ je funkce v Excelu, která vám umožňuje vytvářet a ukládat pohledy, ke kterým se můžete rychle uchýlit kliknutím na tlačítko.

Předpokládejme například, že máte sešit aplikace Excel s 10 listy. Můžete vytvořit pohled, kde je všech těchto 10 listů viditelných. Pokud máte v budoucnu nějaké listy skryté a chcete se vrátit zpět do zobrazení, kde byly viditelné všechny listy, můžete to udělat výběrem již uloženého vlastního zobrazení.

Nebojte se, neztratíte žádné změny, které jste provedli po vytvoření vlastního zobrazení. Jediné, co vlastní zobrazení dělá, je, že vás při vytváření vrátí zpět do zobrazení Excelu. Pokud by tedy byly při vytváření pohledu viditelné některé listy a byly nyní skryté, výběrem tohoto vlastního zobrazení by se tyto listy odkryly.

Účelem použití vlastního zobrazení je umožnit uživatelům vytvářet různá zobrazení. Pokud jste například analytik, můžete vytvářet různá zobrazení pro různá oddělení ve vaší organizaci. Můžete tedy mít konkrétní sadu pracovních listů (nebo buněk/řádků/sloupců) viditelnou pro jedno oddělení a jinou sadu pro jiné oddělení. Jakmile budete mít tato zobrazení, namísto ruční změny, jednoduše aktivujete zobrazení pro oddělení a zobrazí se vám pracovní listy (nebo řádky/sloupce) relevantní pouze pro ně.

Níže jsou uvedeny kroky k vytvoření vlastního zobrazení v aplikaci Excel:

1. Začněte odkrytím všech pracovních listů
2. Klikněte na kartu Zobrazit
3. Klikněte na Vlastní zobrazení
4. V dialogovém okně Vlastní zobrazení klikněte na Přidat. Otevře se dialogové okno Přidat zobrazení
5. Zadejte jakýkoli název pro toto zobrazení, kde jsou viditelné všechny listy (nebo vybrané listy)
6. Klikněte na OK.

Jakmile je zobrazení vytvořeno, můžete kdykoli požádat Excel o aktivaci tohoto zobrazení (což by umožnilo vidět všechny ty listy, které byly viditelné při vytváření pohledu).

Níže jsou uvedeny kroky k zobrazení/aktivaci vlastního zobrazení:

1. Klikněte na kartu Zobrazit
2. Klikněte na Vlastní zobrazení
3. V dialogovém okně Vlastní zobrazení vyberte zobrazení, které chcete zobrazit
4. Klikněte na tlačítko Zobrazit

To by okamžitě odkrylo listy a zobrazilo ty, které byly viditelné při vytváření tohoto vlastního zobrazení.

Odkrývání listů, které jsou „velmi skryté“

Někdy, přestože máte v sešitu nějaké skryté listy, byste jej nemohli ručně zobrazit.

Může to být proto, že tyto listy nejsou jen skryté - jsou „velmi skryté“.

Když máte v sešitu skryté listy a kliknete pravým tlačítkem na libovolný název karty, zobrazí se možnost „Odkrýt“ listy. Pokud však máte listy „velmi skryté“ nebo neexistují žádné skryté listy, pak byste tuto možnost nemohli použít (budou zašedlé).

Tyto „velmi skryté“ listy můžete stále odkrývat pomocí kódu VBA, který jsme pokryli výše.

Stačí zkopírovat a vložit níže uvedený kód do bezprostředního okna a stisknout Enter a okamžitě by se odkryly všechny listy (skryté i velmi skryté).

Pro každý list v tomto sešitu. Listy: List.Visible = True: Další list

Mám také úplný návod, jak skrýt listy a udělat je velmi skryté (v případě, že vás zajímá učení)