シート名にエクセルファイル名を設定するマクロです。
複数シートに同じシート名はつけられないので、
シートが1つの時にしか使えません。

先日の「マクロでファイル名をヘッダに設定する方法」同様、
拡張子を削除して、設定しています。

ソースは以下のとおり。 続きを読む

拡張子を表示する設定でWindowsを使っています。
そのまま、ヘッダにファイル名を設定すると、
ヘッダに拡張子（.xls）まで表示されてしまいます。
拡張子を省いた状態でヘッダにファイル名を設定するためのVBAです。

ソースは以下のとおり。 続きを読む

エクセルの各シート名とページ数を取得して、一覧表を作成するマクロです。
ページ数を目視でひとつひとつ数えると、面倒で時間がかかりますよね。
マニュアルや仕様書の目次作成なんかに役立ちました。
個人用マクロブックなどに貼ってお使いください。

ソースは以下のとおり。 続きを読む

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

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

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

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

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

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

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

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

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

最終行（下）に移動したいときは【 Command（Ctrl） + ↓ 】
最終列（右）に移動したいときは【 Command（Ctrl） + → 】
先頭行（上）に移動したいときは【 Command（Ctrl） + ↑ 】
先頭列（左）に移動したいときは【 Command（Ctrl） + ← 】

※空白セルの手前まで移動します。表の途中に空白セルがあると、そこに移動します。
※【 Shift + Command（Ctrl） + 矢印キー 】で始点から終点まで範囲選択できます。
※（）内はWindowsのキーです。