ほどほど

掃除と家事、趣味を楽しむずぼら主婦のブログ

Excel お仕事・勉強・技術情報

ExcelVBA:マクロで全シートのフッターにページ番号をふる方法

2016/05/23

全シートのフッターにページ番号をのせるには主に二つの方法があります。

  1. 全シートを選択し、ページ設定を変更する方法
  2. 1シートずつ、ページ設定を変更する方法

1番の全シートを選択してページ設定を変更すると、フッターだけでなく、ヘッダーや果ては「印刷の向き」まで全て変更してしまいます。

ページ設定のフッター以外の項目を変更したくない場合は、2番の1シートずつ、ページ設定を変更した方がよいです。
という訳でマクロを使います。というか、VBAで。

全シートのフッターにページ番号をふるマクロのソース

Sub 全シートのフッターにページ番号をふるマクロ()
    For Each Worksheet In Worksheets
    Worksheet.PageSetup.CenterFooter = "&P / &N"
    Next Worksheet
End Sub

個人用マクロブックの標準モジュールなどに貼って使います。
ちなみにMac版エクセル2008では、マクロ機能使えないかと思います。
ごめんなさい。

余談ですが、私は、全シート処理マクロとページ番号をふるマクロと分け、全シート 処理マクロ中でページ番号をふるマクロを呼び出す方法をとっています。
ページ番号をふるだけでなく、他にも全体修正が入るだろうと見越して、です。

photo credit: My desktop via photopin (license)

-Excel, お仕事・勉強・技術情報