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.

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: