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

シートのインデックスを取得

Sub test()

　　　　' 左からの見出し位置を取得する
　　　　Msgbox Worksheets("Sheet2").Index

End Sub

実行結果

Indexでワークシートの左からの見出し位置を取得できます。一番左から数えた順番が帰って来ます。一番左が1になります。ただ、非表示のシートがあれば、それを含めた順位となります。ご注意ください。

特定シートのインデックスを取得

実務では、複数のシートなか、ある文字列を含めたシートを特定する場合があったりします。その時、シートのインデックス取得を通じて実現できます。

Sub test2()

’シート名にSIZEを含む場合、そのシートインデックスを取得

    Dim WS As Worksheet

    For Each WS In Sheets

        If WS.Name Like "*SIZE*" Then
            MsgBox WS.Index & "番目シート名は：" & WS.Name
        End If
    Next
End Sub

実行結果