動作検証バージョン: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
上記のExcelマクロを実行すると、アクティブなブックの全ワークシートの、シート名と印刷範囲がイミディエイトウィンドウに出力されます。
サンプルマクロで行っている処理内容
行っている処理はクリアするマクロとよく似ています。
全ワークシートに対してFor Each~Nextループを回して、
For Each sht In Worksheets
Worksheet.Nameプロパティ・PageSetup.PrintAreaプロパティで取得できる文字列を
イミディエイトウィンドウに出力しています。
Debug.Print _ sht.Name; vbTab; _ sht.PageSetup.PrintArea
[スポンサードリンク]
- Newer:Excel VBAでWordを読み取り専用で開く
- Older:VBAで特定のセル範囲内にあるかどうかを判定する
Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » VBAで全ワークシートの印刷範囲を確認する