Excel VBA 全てのシートの数を取得する-Count

Excel VBAで全てのシートの数を取得する記録です。

シートの数を取得するには「Count」関数を使います。

< スポンサーリンク >

「Count」関数構文

オブジェクトの数を表す長整数型 (Long) の値を返します。

式＝シートオブジェクトを表す変数
※ワークシートのみを数える場合は「Worksheets」、全てのシートを数える場合は「Sheets」

VBAでシート数を数える例

ワークシートの数と全てのシートの数をデバッグで表示します。

ワークシートが４、ダイアログシートが１、グラフシートが１あります。

Sub test()
    Debug.Print Worksheets.Count
    Debug.Print Sheets.Count
End Sub

Worksheets.Countは４、Sheets.Countは７になりました。

「Count」関数を使ったサンプル

ワークシートをループ

ループを使って１から全てのワークシートの数まで繰り返しながら、アクティブシートにワークシート名を入力します。

Sub test()
    Dim i As Long
    Dim gyou As Long

    With ActiveSheet
        gyou = 1
        For i = 1 To Worksheets.Count
            .Cells(gyou, 1).Value = Worksheets(i).Name
            gyou = gyou + 1
        Next i
    End With
End Sub 

全シートをループ

ループを使って１から全てのシートの数まで繰り返しながら、アクティブシートにシート名を入力します。

Sub test()
    Dim i As Long
    Dim gyou As Long

    With ActiveSheet
        gyou = 1
        For i = 1 To Sheets.Count
            .Cells(gyou, 1).Value = Sheets(i).Name
            gyou = gyou + 1
        Next i
    End With
End Sub 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします