VBAを使用してフッターを設定します。プロシージャの処理内容に応じて動的に設定できるので非常に便利です。
構文
記述方法は以下の通りとなります。
Sheets("[シート名]").PageSetup.LeftFooter = [表示内容]
Sheets("[シート名]").PageSetup.CenterFooter = [表示内容]
Sheets("[シート名]").PageSetup.RightFooter = [表示内容]
[説明]:
フッターの左側に表示するには
「Sheets("[シート名]").PageSetup.LeftFooter = [表示内容]」
と記述し、フッターの中央に表示するには
「Sheets("[シート名]").PageSetup.CenterFooter = [表示内容]」
と記述し、フッターの右側に表示するには
「Sheets("[シート名]").PageSetup.RightFooter = [表示内容]」
と記述します。
[シート名] | フッターを表示するシート名を記述します。 ※「”」(ダブルクォーテーション)で囲みます。 |
[表示内容] | フッターに表示する内容を記述します。 ※文字列の場合は「”」(ダブルクォーテーション)で囲みます。 |
また、フッターを取得・設定するプロパティは以下の通りです。
プロパティ | 場所 |
LeftFooter | 左側のフッター |
CenterFooter | 中央部のフッター |
RightFooter | 右側のフッター |
[記述例]:
Sheets("Sheet1").PageSetup.LeftFooter = "&P/&N"
Sheets("Sheet1").PageSetup.CenterFooter = ""
Sheets("Sheet1").PageSetup.RightFooter = ""
使い方
使い方について具体的に説明します。
フッターの左側へ表示する
フッターの左側へ表示する方法について説明します。
[プログラミング例]:
Sub 左側フッター()
Sheets("Sheet1").PageSetup.LeftFooter = "&P/&N"
Sheets("Sheet1").PageSetup.CenterFooter = ""
Sheets("Sheet1").PageSetup.RightFooter = ""
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートのフッター左側へVBAコードの”&P/&N”を表示し、印刷プレビューで表示して下さい。」との意味になります。(※フッターの中央と右側にはスペースをセットしています。)
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<左側フッター>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、フッターの左側に「(ページ番号)/(総ページ数)」の文字が表示された事をプレビューで確認できます。
フッターの左側へ表示する方法についての説明は以上です。
フッターの中央へ表示する
フッターの中央へ表示する方法について説明します。
[プログラミング例]:
Sub 中央フッター()
Sheets("Sheet1").PageSetup.LeftFooter = ""
Sheets("Sheet1").PageSetup.CenterFooter = "&P/&N"
Sheets("Sheet1").PageSetup.RightFooter = ""
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートのフッター中央へVBAコードの”&P/&N”を表示し、印刷プレビューで表示して下さい。」との意味になります。(※フッターの左側と右側にはスペースをセットしています。)
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<中央フッター>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、フッターの中央に「(ページ番号)/(総ページ数)」の文字が表示された事をプレビューで確認できます。
フッターの中央へ表示する方法についての説明は以上です。
フッターの右側へ表示する
フッターの右側へ表示する方法について説明します。
[プログラミング例]:
Sub 右側フッター()
Sheets("Sheet1").PageSetup.LeftFooter = ""
Sheets("Sheet1").PageSetup.CenterFooter = ""
Sheets("Sheet1").PageSetup.RightFooter = "&P/&N"
Sheets("Sheet1").PrintPreview
End Sub
内容は、「Sheet1シートのフッター右側へVBAコードの”&P/&N”を表示し、印刷プレビューで表示して下さい。」との意味になります。(※フッターの左側と中央にはスペースをセットしています。)
※上記のプログラミング例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。
[実行例]:
①Sheet1シートのA1セル~G8セルにデータが入力されています。<右側フッター>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)
②結果は以下の様になり、フッターの右側に「(ページ番号)/(総ページ数)」の文字が表示された事をプレビューで確認できます。
フッターの右側へ表示する方法についての説明は以上です。
[サンプル]:
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。
おわりに
今回はフッターを設定する方法について説明しました。類似の設定内容にヘッダーを設定する方法もあります。こちらも参考にしてみて下さい。