📋

RenameSheet

シート管理

シートの名前を変更する

🎬 デモGIF準備中

📖 使い方

VBAエディタを開く（Alt + F11）
モジュールを挿入（挿入 > モジュール）
下記VBAコードをコピー&ペースト
ブック上で実行（Alt + F8 でマクロ選択）

💡 実行例：実行すると現在のシート名と新しいシート名を入力するダイアログが表示される

💻 VBAコード

' RenameSheet
' -----------------
' Macro Name: RenameSheet
' Description: シートの名前を変更する
' Parameters: なし
' Returns: なし
' Usage: 実行すると現在のシート名と新しいシート名を入力するダイアログが表示される
' -----------------

Sub RenameSheet()
    Dim ws As Worksheet
    Dim currentName As String
    Dim newName As String
    Dim i As Long

    On Error GoTo ErrorHandler

    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = InputBox("名前を変更するシート名を入力:", "シート名変更", "Sheet1") Then
            Set ws = Worksheets(i)
            Exit For
        End If
    Next i

    If ws Is Nothing Then
        MsgBox "指定されたシートが見つかりません。", vbExclamation
        Exit Sub
    End If

    currentName = ws.Name
    newName = InputBox("新しいシート名を入力:", "シート名変更", currentName)

    If newName = "" Then
        MsgBox "キャンセルされました。", vbInformation
        Exit Sub
    End If

    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = newName And Worksheets(i).Name <> currentName Then
            MsgBox "「" & newName & "」は既に存在します。", vbExclamation
            Exit Sub
        End If
    Next i

    ws.Name = newName
    MsgBox "「" & currentName & "」を「" & newName & "」に変更しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub

🔗 同カテゴリの関連マクロ