Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAで全ワークシートの印刷範囲を確認する

VBAで全ワークシートの印刷範囲を確認する

動作検証バージョン:Windows 11 Home + 64bit Excel バージョン 2503(ビルド18623.20156クイック実行)

全ワークシートの印刷範囲をクリアするExcel VBAのコードをご紹介しています。

[スポンサードリンク]

全ワークシートの印刷範囲を確認するサンプルマクロ

クリアする前に、どのワークシートにどのような印刷範囲が設定されているのかを確認したいというニーズもありそうです。

Sub 全ワークシートの印刷範囲を確認する()

 Dim sht As Worksheet
 For Each sht In Worksheets
  Debug.Print _
    sht.Name; vbTab; _
    sht.PageSetup.PrintArea
 Next

End Sub

上記のExcelマクロを実行すると、アクティブなブックの全ワークシートの、シート名と印刷範囲がイミディエイトウィンドウに出力されます。

サンプルマクロで行っている処理内容

行っている処理はクリアするマクロとよく似ています。

全ワークシートに対してFor Each~Nextループを回して、

 For Each sht In Worksheets

Worksheet.Nameプロパティ・PageSetup.PrintAreaプロパティで取得できる文字列を

イミディエイトウィンドウに出力しています。

  Debug.Print _
    sht.Name; vbTab; _
    sht.PageSetup.PrintArea
[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAで全ワークシートの印刷範囲を確認する

Copyright © インストラクターのネタ帳 All Rights Reserved.

.