Hoe snel het aantal verborgen werkbladen in Excel tellen?

Als u een grote werkmap heeft met honderden werkbladen, en sommige werkbladen zijn verborgen. Om aan een aantal speciale behoeften te voldoen, wilt u het aantal verborgen werkbladen in de werkmap weten, hoe kunt u dit doen in plaats van ze een voor een te tellen? Nu zal ik twee trucs introduceren om snel de verborgen werkbladen tegelijk te tellen.

Tel verborgen bladen met VBA

Tel verborgen / zichtbare bladen met Kutools voor Excel

Verwijder verborgen bladen of maak alle verborgen bladen zichtbaar met Kutools voor Excel

---

Tel verborgen bladen met VBA

Ik introduceer een VBA-code die een dialoogvenster kan openen om u het aantal verborgen werkbladen in een werkmap te vertellen.

1. druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module, en plak onderstaande code in het nieuwe Module venster.

VBA: tel verborgen bladen.

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. druk op F5 toets om de code uit te voeren, en er verschijnt een dialoogvenster met het aantal verborgen werkbladen en het aantal zichtbare werkbladen.

---

Tel verborgen / zichtbare bladen met Kutools voor Excel

Als u niet bekend bent met VBA, kunt u het gratis installeren Kutools for Excel om het aantal vellen, verborgen vellen en zichtbare vellen in één oogopslag te tellen.

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. klikken Kutools > Navigatie om het paneel weer te geven. Zie screenshot:

2. Dan klikken Werkboek en blad knop om de boeken en werkbladen weer te geven, en ga naar de onderkant van het paneel, u kunt het aantal totale bladen, verborgen bladen en zichtbare bladen vinden.

Tip: Als u het navigatievenster niet meer nodig heeft, klikt u op Kutools > Navigatie opnieuw om het te verbergen.

---

Verwijder verborgen bladen of maak alle verborgen bladen zichtbaar met Kutools voor Excel

met Kutools for Excel, kunt u ook alle verborgen bladen met één klik verwijderen.

1. Als u alle verborgen bladen zichtbaar wilt maken, klikt u gewoon op Kutools > Laten zien verbergen > Maak alle verborgen bladen zichtbaar.

2. Als u alle verborgen bladen wilt verwijderen, klikt u gewoon op Enterprise > Werkblad > Verwijder alle verborgen bladen. Zie screenshot: