VBA シート名取得・変更

シート名の取得

Sub test()
Dim shName As String

’インデックスでシート名取得
shName = Sheets(1).Name
MsgBox "一番左のシートの名前は：" & shName

End Sub

実行結果

1 番目のシートを取得するにはSheets(1)若しくははWorksheets(1)を入力します。ほかのシート名を取得したい場合は、かっこなかのインデックスを変えればいいです。

※　Sheetsは、Worksheetsより範囲が広い、グラフシートも取得可能です。

全てのシート名を取得

Sub test2()

　　’　ループFor each で全シート名取得

Dim WS As Worksheet

    For Each WS In Sheets
        Debug.Print (WS.Name)
    Next

End Sub

Debug.Printの実行結果は、イミディエイトウィンドウに表示されます。ショートカットキーCtrl+Gで、イミディエイトウィンドウを表示できます。

実行結果

シート名の変更

Sub test3()
’　sheet1の名前を「りんご」へ変更
Sheets(1).Name = "りんご"

    ’　sheet2の名前を「なし」へ変更
    Sheets(2).Name = "なし"

’　sheet3の名前を「もも」へ変更

Sheets(3).Name = "もも"

End Sub

実行結果