Jak rychle spočítat počet skrytých listů v aplikaci Excel?
Pokud máte velký sešit se stovkami listů a některé listy jsou skryté. Chcete-li splnit některé speciální potřeby, chcete znát počet skrytých listů v sešitu, jak to můžete udělat, místo toho, abyste je počítali jeden po druhém? Nyní představím dva triky, jak rychle spočítat skryté listy najednou.
Počítejte skryté listy pomocí VBA
Počítejte skryté / viditelné listy pomocí Kutools pro Excel
Odstraňte skryté listy nebo odkryjte všechny skryté listy pomocí Kutools pro Excel
Počítejte skryté listy pomocí VBA
Představuji kód VBA, který může otevřít dialogové okno, které vám řekne počet skrytých listů v sešitu.
1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modula vložte nový kód pod nový Modul okno.
VBA: Počítejte skryté listy.
Sub vhCount()
'Updateby20150602
Dim xWs As Worksheet
Dim xCount As Integer
For Each xWs In Application.ActiveWorkbook.Sheets
If xWs.Visible Then xCount = xCount + 1
Next
MsgBox "Visible : " & xCount & vbCrLf & _
"Hidden : " & ActiveWorkbook.Sheets.Count - xCount
End Sub
3. lis F5 klíč ke spuštění kódu a objeví se dialogové okno, které vám řekne počet skrytých listů a počet viditelných listů.
Počítejte skryté / viditelné listy pomocí Kutools pro Excel
Pokud nejste obeznámeni s VBA, můžete si nainstalovat zdarma Kutools pro Excel spočítat počet listů, skrytých listů a viditelných listů na první pohled.
Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:
1. cvaknutí Kutools > Navigace pro zobrazení podokna. Viz screenshot:
2. Pak klikněte na tlačítko Sešit a list Stisknutím tlačítka zobrazíte seznam knih a listů a ve spodní části podokna najdete počet celkových listů, skrytých listů a viditelných listů.
Tip: Pokud již navigační panel nepotřebujete, klikněte na Kutools > Navigace znovu to skrýt.
Odstraňte skryté listy nebo odkryjte všechny skryté listy pomocí Kutools pro Excel
S Kutools pro Excel, můžete také jedním kliknutím odstranit všechny skryté listy.
1. Pokud chcete zobrazit všechny skryté listy, jednoduše klikněte Kutools > Zobrazit a skrýt > Odkrýt všechny skryté listy.
2. Pokud chcete odstranit všechny skryté listy, stačí kliknout Enterprise > Pracovní list > Odstranit všechny skryté listy. Viz snímek obrazovky:
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!