ヘッダーやフッターに作成日・ファイル名・ページ番号等を設定する時には、所定のVBAコードを記述します。この参考例について紹介します。
ヘッダー及びフッターで使用するVBAコード一覧
VBAコード | 内容 |
&D | 現在の日付 |
&T | 現在の時刻 |
&A | ワークシートの見出し |
&F | ファイルの名前 |
&Z | ファイルパス |
&N | ファイルの総ページ数 |
&P | ページ番号 |
&P+数値 | ページ番号に指定した数値を加えた値 |
&Pー数値 | ページ番号に指定した数値を引いた値 |
&& | &(アンバサンド) |
[記述例]:
Sheets("Sheet1").PageSetup.RightHeader = "作成日:&D"
Sheets("Sheet1").PageSetup.RightHeader = "作成日時:&D &T"
Sheets("Sheet1").PageSetup.CenterHeader = "ファイル名:&F"
Sheets("Sheet1").PageSetup.LeftFooter = "ファイルパス:&Z"
Sheets("Sheet1").PageSetup.CenterFooter = "&P/&N"
使い方
使い方について具体的に説明します。
ヘッダーに現在の日付を表示する
ヘッダーの右側に現在の日付を表示する方法について説明します。
[プログラミング例]:
Sub ヘッダーへ日付表示()
Sheets("Sheet1").PageSetup.RightHeader = "作成日:&D"
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートのヘッダー右側に現在の日付を表示し、印刷プレビューで表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<ヘッダーへ日付表示>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、ヘッダーの右側に現在の日付が表示された事をプレビューで確認できます。
ヘッダーに現在の日付を表示する方法についての説明は以上です。
ヘッダーに現在の日時を表示する
ヘッダーの右側に現在の日時を表示する方法について説明します。
[プログラミング例]:
Sub ヘッダーへ日時表示()
Sheets("Sheet1").PageSetup.RightHeader = "作成日時:&D &T"
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートのヘッダー右側に現在の日時を表示し、印刷プレビューで表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<ヘッダーへ日時表示>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、ヘッダーの右側に現在の日時が表示された事をプレビューで確認できます。
ヘッダーに現在の日時を表示する方法についての説明は以上です。
ヘッダーにファイルの名前を表示する
ヘッダーの中央にファイルの名前を表示する方法について説明します。
[プログラミング例]:
Sub ヘッダーへファイル名表示()
Sheets("Sheet1").PageSetup.CenterHeader = "ファイル名:&F"
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートのヘッダー中央にファイルの名前を表示し、印刷プレビューで表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<ヘッダーへファイル名表示>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、ヘッダーの中央にファイルの名前が表示された事をプレビューで確認できます。
ヘッダーにファイルの名前を表示する方法についての説明は以上です。
フッターにファイルパスを表示する
フッターの左側にファイルパスを表示する方法について説明します。
[プログラミング例]:
Sub フッターへファイルパス表示()
Sheets("Sheet1").PageSetup.LeftFooter = "ファイルパス:&Z"
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートのフッター左側にファイルパスを表示し、印刷プレビューで表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<フッターへファイルパス表示>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、フッターの左側にファイルパスが表示された事をプレビューで確認できます。
フッターにファイルパスを表示する方法についての説明は以上です。
フッターにページ番号を表示する
フッターの中央にページ番号を表示する方法について説明します。
[プログラミング例]:
Sub フッターへページ番号表示()
Sheets("Sheet1").PageSetup.CenterFooter = "&P/&N"
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートのフッター中央にページ番号(ページ番号/総ページ数)を表示し、印刷プレビューで表示して下さい。」との意味になります。
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<フッターへページ番号表示>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、フッターの中央にページ番号が表示された事をプレビューで確認できます。
フッターにページ番号を表示する方法についての説明は以上です。
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
おわりに
今回はヘッダー及びフッターで使用するVBAコードを紹介しました。類似の設定内容にヘッダー及びフッターで使用する書式コードもあります。こちらも参考にしてみて下さい。