ワークシート名を変更する

今回はワークシート名の変更についてメモしておきます。

基本

Worksheets.Nameプロパティを使用します。

実行プログラム

Sub Sample6_5_1()

    Worksheets("Sheet1").Name = "test"

End Sub

Sub Sample6_5_1()

Worksheets("Sheet1").Name = "test"

End Sub

実行前

実行後

シート名が「test」に変更されました。

同名のシート名が存在するとエラーとなります。

同名のシート名が存在しないことを確認してから変更する

実行プログラム

Sub Sample6_5_2()

    Dim strNewName   As String
    Dim i            As Integer
    
    strNewName = "test"

    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = strNewName Then
            MsgBox "存在するシート名です。"
            Exit Sub
        End If
    Next

    Worksheets("Sheet1").Name = "test"

End Sub

Sub Sample6_5_2()

Dim strNewName As String

Dim i As Integer

strNewName = "test"

For i = 1 To Worksheets.Count

If Worksheets(i).Name = strNewName Then

MsgBox "存在するシート名です。"

Exit Sub

End If

Worksheets("Sheet1").Name = "test"

End Sub

結果