Hur räknar man antalet synliga ark i en arbetsbok?

I en stor arbetsbok med flera ark är några ark synliga och en del ark är dolda, och i vissa fall kan du behöva räkna det totala antalet synliga ark i arbetsboken, hur kan du räkna dem på kort tid? Nu introducerar jag några knep för dig att snabbt räkna antalet synliga ark i en arbetsbok.

Räkna antalet synliga ark endast med VBA

Räkna antalet synliga ark / dolda ark / alla ark med Kutools för Excel

Räkna antalet synliga ark endast med VBA

I Excel, förutom att räkna synliga ark en efter en, finns det VBA som kan hjälpa dig att snabbt räkna antalet synliga ark.

Efter gratis installation Kutools för Excel, gör så här:

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer och klicka sedan på Insert > Modulerna för att öppna en ny modul.

2. Klistra in under VBA-koden i modulfönstret.

VBA: Räkna antalet synliga ark i en arbetsbok

Sub VisibleSheetsCount()
'UpdatebyKutoolsforExcel20150909
    Dim xSht As Variant
    Dim I As Long
    For Each xSht In ActiveWorkbook.Sheets
        If xSht.Visible Then I = I + 1
    Next
    MsgBox I & " sheets are visible", , "Kutools for Excel"
End Sub

3. Tryck Körning -knappen, sedan öppnas en dialogruta för att berätta antalet synliga ark.

Räkna antalet synliga ark / dolda ark / alla ark med Kutools för Excel

Om du inte känner till VBA kan du använda Kutools för ExcelÄr Navigeringsfönstret för att snabbt visa antalet synliga ark, dolda ark och alla ark.

Efter gratis installation Kutools för Excel, gör så här:

1. Aktivera arbetsboken som du vill räkna antalet synliga ark och klicka på Kutools > Navigering. Se skärmdump:

2. Sedan Navigeringsfönstret visas till vänster om det aktuella arket och klicka Arbetsbok och ark fliken för att gå till Arbetsbok och ark sektion. Du kan visa antalet synliga ark, dolda ark och alla ark inklusive synliga och dolda ark längst ner i rutan. Se skärmdump:

Om du vill dölja navigeringsfönstret klickar du bara på Kutools > Navigering att gömma det.

Kutools för ExcelÄr Navigeringsfönstret är kraftfull, med den kan du visa arklistan, listan över intervallnamn, kolumnrubrikerna, och du kan också lägga till intervall, bilder, formler som automatiska texter. Dessutom kan du hitta och ersätta ett ord över valda ark. Klicka här om du vill veta mer om navigeringsfönstret.