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 Sub4. 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
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...
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!
