ヘルプナビ


概要

オコモトットの個人的な日記。釣りとメロとWebな日々。


2010-04-04

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

企業実習で仕様書作成のお手伝いをしています。
そこで役立ったマクロをご紹介します。

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

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

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

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

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

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

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

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

関連広告

Category:
オコモトットとプログラム
Tags:
, , ,

コメント/トラックバック (1件)

トラックバックURL

http://okomotot.com/wp-trackback.php?p=1500


ページの先頭へ戻る