Jak vypsat všechny viditelné nebo skryté listy ze sešitu?
Pokud máte velký sešit, který obsahuje některé skryté listy, musíte nyní v seznamu zobrazit všechny viditelné a skryté listy samostatně, jak ukazuje následující snímek obrazovky. V tomto článku budu hovořit o tom, jak vypsat všechny viditelné a skryté listy v aplikaci Excel.
Seznam všech viditelných a skrytých listů samostatně s kódem VBA
Seznam všech viditelných listů v aplikaci Excel pomocí Kutools pro Excel
Seznam všech viditelných a skrytých listů samostatně s kódem VBA
Chcete-li zobrazit seznam viditelných a skrytých názvů karet v listu, následující kód VBA vám může udělat laskavost, udělejte to takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Seznam všech viditelných a skrytých listů samostatně:
Sub NameSheets()
'Updateby Extendoffice
Dim x As Long, y As Long, z As Long
Dim ws As Worksheet
Dim shtCnt As Integer
x = 1
y = 1
z = 1
shtCnt = ThisWorkbook.Sheets.Count
On Error Resume Next
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To shtCnt
If Sheets(i).Visible = xlSheetHidden Then
Cells(x, 2) = Sheets(i).Name
x = x + 1
End If
If Sheets(i).Visible = xlSheetVisible Then
Cells(y, 1) = Sheets(i).Name
y = y + 1
End If
If Sheets(i).Visible = xlSheetVeryHidden Then
Cells(z, 3) = Sheets(i).Name
z = z + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, všechny viditelné, skryté, velmi skryté listy jsou uvedeny v novém listu samostatně, jak je znázorněno na následujícím snímku obrazovky:
Seznam všech viditelných listů v aplikaci Excel pomocí Kutools pro Excel
Pokud máte Kutools pro Excel, S jeho Vytvořte seznam názvů listů Díky této funkci můžete rychle zobrazit seznam všech viditelných listů aktuálního sešitu pomocí hypertextových odkazů na jednotlivé karty.
| Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, postupujte následovně:
1, klikněte Kutools Plus > Pracovní list > Vytvořte seznam názvů listů, viz screenshot:
2. V Vytvořte seznam názvů listů dialogové okno:
(1.) Vyberte Obsahuje seznam hypertextových odkazů pod Styly indexů listů sekce;
(2.) Zadejte název listu pro index listu.
(3.) Určete umístění indexu listu.
(4.) Určete, kolik sloupců chcete zobrazit názvy listů v indexu listu.
3. A pak klikněte na tlačítko Ok tlačítko, všechny viditelné listy byly uvedeny do nového listu, kromě skrytých listů, viz screenshot:
Klikněte na Stáhnout a vyzkoušejte zdarma Kutools pro Excel hned!
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!
