📋

ClearPrintArea

シート管理

印刷範囲をクリアする

🎬 デモGIF準備中

📖 使い方

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

💡 実行例：実行するとアクティブシートの印刷範囲がクリアされる

💻 VBAコード

' ClearPrintArea
' -----------------
' Macro Name: ClearPrintArea
' Description: 印刷範囲をクリアする
' Parameters: なし
' Returns: なし
' Usage: 実行するとアクティブシートの印刷範囲がクリアされる
' -----------------

Sub ClearPrintArea()
    Dim ws As Worksheet

    On Error GoTo ErrorHandler

    Set ws = ActiveSheet

    If ws.PageSetup.PrintArea = "" Then
        MsgBox "印刷範囲は設定されていません。", vbInformation
        Exit Sub
    End If

    ws.PageSetup.PrintArea = ""

    MsgBox "印刷範囲をクリアしました。", vbInformation
    Exit Sub

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

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