Zobacz kurs wideo Mistrz Excela
[ Ссылка ]

Zobacz fragment książki + 30 filmów z nim powiązanych [ Ссылка ]

Pliki do pobrania na stronie:
[ Ссылка ]

W tym wideo piszemy kod VBA do policzenia arkuszy w Excelu. Dodatkowo wprowadzamy sprawdzenie, żeby policzyć ukryte arkusze. Przyda nam się przede wszystkim pętla for each.

Sub ZliczArkusze()
Dim Arkusz As Worksheet
Dim i As Integer, h As Integer

For Each Arkusz In Worksheets

i = i + 1
If Arkusz.Visible = xlSheetHidden Then h = h + 1

Next Arkusz

MsgBox "Wszyskich arkuszy jest: " & i & vbNewLine & "a ukrytych jest: " & h

End Sub

свернуть