シート数を確認する方法

Excel VBA でシート数を確認するには Count プロパティを使用します。次のサンプルコードでは現在使用中のエクセルファイルに存在するシート数を返します。

VBA（実行可能なサンプルコード）
1 2 3 4 5 6 7 8 9 10	Option Explicit Sub test() Dim intSheetCount As Integer ' 現在アクティブなブックのシート数を取得 intSheetCount = ActiveWorkbook.Worksheets.Count Debug.Print "現在アクティブなブックのシート数は" & intSheetCount End Sub

VBA（実行可能なサンプルコード）

Option Explicit
 
Sub test()
  Dim intSheetCount As Integer
  
  ' 現在アクティブなブックのシート数を取得
  intSheetCount = ActiveWorkbook.Worksheets.Count
 
 Debug.Print "現在アクティブなブックのシート数は" & intSheetCount
End Sub

例えばシートが 3 つあるエクセルの場合、実行結果は次の通りです。

実行結果（イミディエイトウインドウの表示内容）
1	現在アクティブなブックのシート数は3

シート数をループに活用する

シート数を使って全てのシートに対して処理をループさせることもできます。次のサンプルコードでは、エクセルブックの全シートの A1 セルに文字列をセットします。

VBA（実行可能なサンプルコード）
1 2 3 4 5 6 7 8 9 10 11 12 13	Option Explicit Sub test() Dim i As Integer ' 現在のブックのシート数を取得 For i = 1 To ThisWorkbook.Worksheets.Count Debug.Print i & "枚目のシートの処理を開始" ThisWorkbook.Worksheets(i).Range("A1") = "これは" & i & "枚目のシートです。" Next End Sub

VBA（実行可能なサンプルコード）

Option Explicit
 
Sub test()
  Dim i As Integer
  
  ' 現在のブックのシート数を取得
  For i = 1 To ThisWorkbook.Worksheets.Count
    Debug.Print i & "枚目のシートの処理を開始"
    
    ThisWorkbook.Worksheets(i).Range("A1") = "これは" & i & "枚目のシートです。"
  Next
 
End Sub

▲このページの一番上に戻る