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