VBA　ヘッダーフッターの編集




ステートメント構文など
Worksheets.PageSetup.ヘッダーフッター

印刷時に反映するヘッダーとフッターを編集する方法についてです。
ヘッダー、フッターのフォントの変更や表示する文字などが出来ます。



オブジェクトメンバー（編集場所）
名前 説明
LeftHeader 左ヘッダー
CenterHeader 真ん中のヘッダー
RightHeader 右のヘッダー
LeftFooter 左のフッター
CenterFooter 真ん中のフッター
RightFooter 右のフッター


指定できる書式コード
名前 説明
&L このコードに続く文字列を左詰めに配置
&C このコードに続く文字列を中央揃えに配置
&R このコードに続く文字列を右詰めに配置
&X 上付き文字を印刷
&Y 下付き文字を印刷
&B 太字
&I 斜体
&U 下線（アンダーライン）
&S 取り消し線
&"フォント名" 指定したフォントに変更
（フォント名は半角の二重引用符 (") で囲む）
&nn(数字) 指定したフォントサイズに変更
（nnはポイント数を表す2桁の数値）
&color 色の変更（Kの後に16進数で指定）
&"+" 現在のテーマの[見出し]フォント
&"-" 現在のテーマの[本文]フォント
&D 現在の日付
&T 現在時刻
&F ファイル名
&A シート名
&P ページ番号
&P+<数値> ページ番号に指定した<数値>を足した値
&P-<数値> ページ番号から指定した<数値>を引いた値
&N 全ページ数
&& アンド(&)文字
&Z ファイルパス


サンプルコード
Sub headfoot()
    With ActiveSheet.PageSetup
        'ファイル名を太字
        .LeftHeader = "&B&F"
        '下線＋指定文字列
        .CenterHeader = "&U" & "タイトルとか"
        '今日の日付をMeiryo UI、サイズ12
        .RightHeader = "&""Meiryo UI""&12 " & Date
            '注　フォント指定の次に半角数字がくる場合は半スペース空ける
                
        'シート名を赤字
        .LeftFooter = "&Kff0000&A"
            '注　色はKの後に16進数の色コード
        '現在時刻
        .CenterFooter = "&T"
        'ページ番号/全ページ数
        .RightFooter = "&P" & "/" & "&N"
        
    End With
End Sub


実行結果イメージ

関連・類似ページ
印刷範囲の設定
印刷を一枚に納める

PageSetupオブジェクトは印刷設定に関するプロパティがいろいろ含まれています
ラベル: