📋

AddNewSheet

シート管理

新規ワークシートを追加する

🎬 デモGIF準備中

📖 使い方

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

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

💻 VBAコード

' AddNewSheet
' -----------------
' Macro Name: AddNewSheet
' Description: 新規ワークシートを追加する
' Parameters: なし
' Returns: なし
' Usage: 実行するとシート名を入力するダイアログが表示され、新しいシートが作成される
' -----------------

Sub AddNewSheet()
    Dim ws As Worksheet
    Dim sheetName As String
    Dim i As Long

    On Error GoTo ErrorHandler

    sheetName = InputBox("作成するシート名を入力してください:", "新規シート作成")

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

    For Each ws In Worksheets
        If ws.Name = sheetName Then
            MsgBox "「" & sheetName & "」は既に存在します。", vbExclamation
            Exit Sub
        End If
    Next ws

    Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    ws.Name = sheetName

    MsgBox "「" & sheetName & "」を作成しました。", vbInformation
    Exit Sub

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

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