【VBA】ヘッダー/フッターを設定する方法(シート名も自動表示)

2024年1月25日

今回はVBAでヘッダー/フッターを設定する方法を紹介します。

報告書などを作成するときに便利なので活用してみてください。

この記事では↓の内容が分かります。

ヘッダー/フッターを設定する方法
シート名を自動表示させる方法
今日の日付を自動表示させる方法
ページ番号を自動表示させる方法

ヘッダー/フッターを設定する方法

Sub Sample1()
    ''' ヘッダー/フッターを設定するサンプルコード
    
    With ActiveSheet.PageSetup
        '左ヘッダー
        .LeftHeader = "&Z" 'ファイルパス
        
        '中央フッター
        .CenterHeader = "&F" 'ファイル名
        
        '右ヘッダー
        .RightHeader = "&D" '今日の日付
        
        '左フッター
        .LeftFooter = "&A" 'シート名
        
        '中央フッター
        .CenterFooter = "&P/&N" 'ページ番号/総ページ数
        
        '右ヘッダー
        .RightFooter = "&T" '現在の時刻
    End With
End Sub

サンプルコードとして様々な情報を自動表示させるコードを作成しました。

サンプルコードを実行すると、この画像のように上下左右6か所にヘッダー/フッターが追加されます。

不要な部分を削除して、自分専用のコードを作ってみてください。

ヘッダー/フッターを設定する仕組み

ヘッダー/フッターを設定する仕組みを簡単に説明します。

    With ActiveSheet.PageSetup

ヘッダー/フッターの設定はPageSetupオブジェクトで行っています。

まず、ActiveSheet.PageSetupとしてアクティブシートのPageSetupオブジェクトを取得しています。

このオブジェクトを取得したら後は簡単で、LeftHeaderなどの各種プロパティに値を設定することでヘッダー/フッター情報を書き換えています。

シート名などを設定する方法

特殊文字	設定される内容
&D	現在の日付
&T	現在の時刻
&A	シートの見出し
&F	ファイルの名前
&Z	ファイルのパス
&N	ファイルの総ページ数
&P	ページ番号
&P+<数値>	ページ番号に、指定した<数値>を加算した値
&P-<数値>	ページ番号に、指定した<数値>を減算した値
&G	Graphicオブジェクトに設定した画像イメージ
&&	アンパサンド