Přejít k hlavnímu obsahu

Jak skrýt všechny listy kromě zadaného nebo aktivního v aplikaci Excel?

Abyste udrželi sešit čistý a snadno se v něm pohybovali, možná budete chtít skrýt všechny listy kromě aktuálního aktivního v aplikaci Excel. V tomto článku vám ukážeme dvě metody skrytí všech listů kromě zadaného nebo aktivního v aplikaci Excel.

Skrýt všechny listy kromě uvedeného v aplikaci Excel s kódem VBA
Skrýt všechny pracovní listy kromě aktivního s Kutools pro Excel (jen několik kliknutí)


Skrýt všechny listy kromě uvedeného v aplikaci Excel s kódem VBA


Všechny listy kromě zadaného můžete skrýt pomocí kódu VBA v aplikaci Excel. Postupujte prosím následovně.

1. V aktuálně otevřeném sešitu přejděte na list, který chcete pouze zobrazit, a stiskněte Další + F11 současně otevřít Aplikace Microsoft Visual Basic okno.

2. V Aplikace Microsoft Visual Basic okno, klepněte na tlačítko Vložit > Modul. Viz snímek obrazovky:

3. Poté zkopírujte a vložte níže uvedený kód VBA do editoru kódu.

Kód VBA: skrýt všechny listy kromě zadaného

Sub SheetHidden()
	Dim xWs As Worksheet
	Dim xName As String
	xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> xName Then
			xWs.Visible = xlSheetHidden
		End If
	Next
End Sub

4. zmáčkni F5 klíč ke spuštění kódu.

5. Po spuštění kódu se zobrazí dialogové okno s aktivním názvem listu zobrazeným v Rozsah a poté klikněte na OK .

Poté jsou všechny pracovní listy okamžitě skryty, kromě aktuálního v sešitu.

Poznámka: Pro zobrazení skrytých listů zkopírujte a vložte následující kód VBA do modulu a poté jej spusťte stisknutím klávesy F5.

Kód VBA: zobrazit skryté listy

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

Skrýt všechny pracovní listy kromě aktivního s programem Kutools pro Excel (pouze jedno kliknutí)

Jediným kliknutím v aplikaci Excel můžete skrýt všechny listy kromě zadaného nebo aktivního.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. Dostaňte se do zadaného listu, který má být zobrazen pouze v aktuálním sešitu.

2. Pak klikněte na tlačítko Kutools > Zobrazit a skrýt > Skrýt nevybrané listy.

Potom jsou všechny listy v aktuálním sešitu skryty, kromě aktivního.

Poznámka: Pokud chcete zobrazit všechny skryté listy, klikněte prosím Kutools > Zobrazit / Skrýt > Odkrýt všechny listy. Viz snímek obrazovky:

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations