VBAでシートのインデックスを取得する

SheetsオブジェクトのIndexプロパティ

ブックにあるシートのインデックスは、SheetsオブジェクトやWorksheetsオブジェクトのIndexプロパティで取得できます。

Sheetsオブジェクトはワークシートだけでなくグラフシート、マクロシート、ダイアログシートも含みますが、Worksheetsオブジェクトはワークシートのみを対象とします。

SheetsオブジェクトとWorksheetsオブジェクトの違いについては「VBAのSheetsとWorksheetsの違い」をご参照ください。

なお、シート数はCountプロパティで取得できます。

Indexプロパティは1から始まるため、一番右のシートのインデックスはCountプロパティと同じ値になります。

ブックとシートは違います

ブックとシートの違いを聞かれることがあります。

ブックは「test.xlsx」などのファイル自体を指します。

シートはブックを開いた時に下段に表示されて、それぞれ別の用紙のように扱われ、シートごとに名前が付けられます。

ブックのインデックス、という言い方はそもそもあまりしませんが、シートのインデックスというと、通常は左から２番目のシートのインデックスは２、という意味で使われます。

上の画像で言えば、Sheet1がインデックス１、Sheet2がインデックス２、Sheet3がインデックス３になります。

さらに右にシートが１つ追加されれば、追加したシートのインデックスは４になります。

全てのインデックスを取得するサンプルコード

以下のコードはワークシート全てのインデックスを取得するサンプルです。

ループして、１シートずつインデックスとシート名を表示します。

ここではWorksheetsだけしかない場合のコードとシートの種類が複数ある場合のそれぞれについてサンプルを紹介します。

ワークシートだけの場合（Worksheetsオブジェクト）

ワークシートだけのインデックスが取得できればいい場合は、以下のようにWorksheetsオブジェクトのループを行います。

Sub SheetIndexTest()
    Dim sht As Worksheet
    
    For Each sht In Worksheets
        Debug.Print "Index=" & sht.Index & " Name=" & sht.Name
    Next
End Sub

Sub SheetIndexTest()

Dim sht As Worksheet

For Each sht In Worksheets

Debug.Print "Index=" & sht.Index & " Name=" & sht.Name

End Sub

実行結果
Sheet1、Sheet2、Sheet3の３つのシートがある場合に実行すると以下が出力されます。

Index=1 Name=Sheet1
Index=2 Name=Sheet2
Index=3 Name=Sheet3

全ての種類のシートの場合（Sheetsオブジェクト）

マクロシートなどがある場合はWorksheetsオブジェクトではなくSheetsオブジェクトのループを行います。

また、2行目のsht変数もワークシート以外のマクロシートなども対象とするために、型はObject型にします。

Sub SheetIndexTest2()
    Dim sht As Object
    
    For Each sht In Sheets
        Debug.Print "Index=" & sht.Index & " Name=" & sht.Name
    Next
End Sub

Sub SheetIndexTest2()

Dim sht As Object

For Each sht In Sheets

Debug.Print "Index=" & sht.Index & " Name=" & sht.Name

End Sub

実行結果
Sheet1、Sheet2、Sheet3、Macro1（マクロシート）の４つのシートがある場合に実行すると以下が出力されます。

Index=1 Name=Sheet1
Index=2 Name=Sheet2
Index=3 Name=Sheet3
Index=4 Name=Macro1

なお、この４シートがあるブックで、先のワークシートのみを対象とするSheetIndexTest()を実行すると、マクロシートのインデックス４はワークシートではないため出力されません。

アクティブシートのインデックス番号を取得するには

現在表示されているアクティブシートのインデックスを取得する場合は、アクティブシートを示すActiveSheetオブジェクトのIndexプロパティを取得します。

Sub ActivesheetIndexTest()
    Dim i
    
    i = ActiveSheet.Index
    
    Debug.Print i
End Sub

Sub ActivesheetIndexTest()

Dim i

i = ActiveSheet.Index

Debug.Print i

End Sub

なお、ActiveSheetオブジェクトはドット(.)を押してもプロパティ候補が出ません。

もし出したい場合は以下のようにWorksheetオブジェクトに変換すると表示されるようになります。

Sub ActivesheetIndexTest2()
    Dim i
    Dim sht As Worksheet
    
    Set sht = ActiveSheet
    i = sht.Index
    
    Debug.Print i
End Sub

Sub ActivesheetIndexTest2()

Dim i

Dim sht As Worksheet

Set sht = ActiveSheet

i = sht.Index

Debug.Print i

End Sub

SheetsオブジェクトのIndexプロパティ

ブックとシートは違います

全てのインデックスを取得するサンプルコード

ワークシートだけの場合（Worksheetsオブジェクト）

全ての種類のシートの場合（Sheetsオブジェクト）

アクティブシートのインデックス番号を取得するには

関連記事