ワークシート数を取得する

今回はワークシート数の取得についてメモしておきます。

全シート数をカウントする

実行プログラム

Sub Sample6_3_1()

    MsgBox "ワークシート数:" & CStr(Worksheets.Count)
    
End Sub

Sub Sample6_3_1()

MsgBox "ワークシート数:" & CStr(Worksheets.Count)

End Sub

実行前

実行後

Long型の値を返します。
非表示のシートもカウントされます。

表示されているシートのみをカウントする

実行プログラム

Sub Sample6_3_2()
    
    Dim intCnt As Integer
    Dim i      As Integer
    
    For i = 1 To Worksheets.Count
        If Worksheets(i).Visible Then intCnt = intCnt + 1
    Next
    
    MsgBox "表示ワークシート数:" & CStr(intCnt)

End Sub

Sub Sample6_3_2()

Dim intCnt As Integer

Dim i As Integer

For i = 1 To Worksheets.Count

If Worksheets(i).Visible Then intCnt = intCnt + 1

MsgBox "表示ワークシート数:" & CStr(intCnt)

End Sub

実行前

実行後

「Sheet3」が非表示になっていることを確認。