シート名を取得する

今回はシート名の取得方法についてメモしておきます。

シート名の取得にはNameプロパティを使用します。

アクティブシートの名称を取得

実行プログラム

Sub Sample6_1_1()

    MsgBox ActiveSheet.Name

End Sub

Sub Sample6_1_1()

MsgBox ActiveSheet.Name

End Sub

実行前

実行後

全シート名を取得

実行プログラム

Sub Sample6_1_2()

    Dim strTemp As String
    Dim i       As Integer
    
    strTemp = ""

    For i = 1 To Worksheets.Count
        strTemp = strTemp & Worksheets(i).Name & vbCrLf
    Next

    MsgBox strTemp

End Sub

Sub Sample6_1_2()

Dim strTemp As String

Dim i As Integer

strTemp = ""

For i = 1 To Worksheets.Count

strTemp = strTemp & Worksheets(i).Name & vbCrLf

MsgBox strTemp

End Sub

実行前

実行後