2010-04-04
ExcelVBA:マクロで全シートのフッターにページ番号をふる方法
企業実習で仕様書作成のお手伝いをしています。
そこで役立ったマクロをご紹介します。
全シートのフッターにページ番号をのせるには主に二つの方法があります。
- 全シートを選択し、ページ設定を変更する方法
- 1シートずつ、ページ設定を変更する方法
1番の全シートを選択して、ページ設定を変更すると
フッターだけでなく、ヘッダーや果ては「印刷の向き」まで
全て変更してしまいます。
ページ設定のフッター以外の項目を変更したくない場合は、
2番の1シートずつ、ページ設定を変更した方がよいです。
という訳でマクロを使います。というか、VBAで。
全シートのフッターにページ番号をふるマクロのソース
Sub 全シートのフッターにページ番号をふるマクロ()
For Each Worksheet In Worksheets
Worksheet.PageSetup.CenterFooter = "&P / &N"
Next Worksheet
End Sub
個人用マクロブックの標準モジュールなどに貼って使います。
ちなみにMac版エクセル2008では、マクロ機能使えないかと思います。
ごめんなさい。
余談ですが、私は、全シート処理マクロとページ番号をふるマクロと分け、
全シート 処理マクロ中でページ番号をふるマクロを呼び出す方法をとっています。
ページ番号をふるだけでなく、他にも全体修正が入るだろうと見越して、です。
関連記事
関連広告
- Category:
- オコモトットとプログラム
- Tags:
- Excel, VBA, エクセル, 職業訓練

[...] This post was mentioned on Twitter by オコモトット. オコモトット said: → ExcelVBE:マクロで全シートのフッターにページ番号をふる方法 http://bit.ly/cMhIqA [...]