Close

シート数を取得する

シート数を取得するにはCountプロパティを使用します。
e_0038

上のサンプルブックについて、以下のコードを実行してみます。

Sub Proc_シート数()
    Dim n As Integer
    n = ActiveWorkbook.Worksheets.Count
    
    Debug.Print "ワークシート数は" & n & "個です。"
End Sub

結果は以下のようになります。
e_0039

 

Share on facebook
Share on twitter
Share on linkedin