Excel シートを印刷する際に、ヘッダーまたはフッターに背景色を追加する方法は？

著者孫変更日2025-09-01

Excel で作業する際、ページ番号やファイル名、会社ロゴなどの重要な情報をヘッダーやフッターに含めると、印刷ドキュメントのプロフェッショナルな印象がぐっと高まります。Excel の標準機能を使えば、印刷時に表示されるヘッダーやフッターにテキストや画像を簡単に挿入できますが、読みやすさやブランディングをさらに強化するために、これらのセクションに背景色を付けて目立たせたいと思うこともあるでしょう。しかし、現時点のExcel には、印刷物のヘッダーまたはフッターエリアに直接背景色を適用する機能が備わっていません。そのため、印刷時にヘッダーやフッターを本文データから視覚的に区別したい場合、これは非常に不便です。以下では、Excel の印刷物でカラフルなヘッダーやフッターを再現するための実用的な回避策を、さまざまなニーズと技術的スキルレベルに合わせてご紹介します。

塗りつぶし色を使用してヘッダーまたはフッターに背景色を追加する

VBA を使用してヘッダーおよびフッターに背景色を追加する

塗りつぶし色を使用してヘッダーまたはフッターに背景色を追加する

この方法では、ワークシートのセルに書式を設定して、色付きのヘッダーやフッターを視覚的に再現します。ページレイアウトから作成される実際のヘッダーやフッターは背景色をサポートしないため、上部および／または下部の行に書式を適用することで、効果的な代替手段となります。この手法は、印刷シート上で視覚的な区切りやブランディングを実現することを主な目的としており、ヘッダー／フッターの内容を「真の印刷ヘッダー／フッター」ではなく、ワークシート内の行として表示できる場合に最適です。

この方法の制限事項としては、ページ番号などの動的ヘッダー／フッターフィールドが利用できないことや、各シートごとにこれらの手順を手動で繰り返す必要があることが挙げられます。

1。ページレイアウト＞ページ設定をクリックします。

先に進む前に、使用可能なワークシート領域を最大化し、印刷ページの上部および／または下部に色付きエリアがぴったりと配置されるように、すべての余白を0に設定することが重要です。これにより、印刷時に本物のヘッダーまたはフッターのような背景効果を実現できます。

2。ページ設定ダイアログで、余白タブに移動し、上、ヘッダー、下、およびフッターのテキストボックスに0を入力します。これにより、Excel の組み込みヘッダーおよびフッター用に確保されるスペースがゼロになり、ワークシートの内容が印刷ページの最上部および最下部までぎりぎり配置されます。
Excel で余白を調整するための[ページ設定]ダイアログを示すスクリーンショット

3。OKをクリックして余白の変更を適用します。視覚的にヘッダーとして機能するワークシートの最初の行を選択し、次にホーム＞結合して中央揃えをクリックして、この行のすべての列を1 つのセルに結合します。これにより、ヘッダーテキストと背景色のための広々とした領域が確保されます。
[セルの結合と中央揃え]オプションのスクリーンショット

ヒント：複数列にわたるドキュメントでは、データ範囲全体を確実にカバーする正しいセル範囲を選択して結合していることをご確認ください。

4。結合されたセルが選択されている状態で、ホームタブの塗りつぶし色ボタン（ペイントバケツアイコン）をクリックし、パレットからお好みの背景色を選んでください。これにより、シート上部に視覚的に目立つ色付きの帯が追加され、ヘッダーの背景が再現されます。
Excel のヘッダーに塗りつぶし色を選択しているスクリーンショット

5。色付きのフッターも追加したい場合は、最後の行までスクロールして印刷範囲を選択し、「結合」と「塗りつぶし色」の手順を繰り返して、ページ下部に色付きエリアを作成します。

最良の結果を得るには、これらの色付きで結合済みのエリアに、カスタムヘッダーまたはフッターテキストを直接入力することをおすすめします。印刷要件に応じて、フォントサイズや配置、書式を自由に調整できます。ただし、この方法ではヘッダーおよびフッターは表示中のワークシート領域内でのみ定義されることにご注意ください。ドキュメントが複数ページにわたる場合は、各印刷ページに対してこれらの書式設定を手動で繰り返すか、ヘッダーのみにページ設定の「先頭行」機能をご利用ください。

これで、ファイル＞印刷に移動するか、Ctrl + Pを押すと、プレビューページの上部（および／または下部）に色付きの帯が表示され、ヘッダーまたはフッターの背景がシミュレートされます。
ヘッダーとフッターに色が設定された Excel ワークシートを示すスクリーンショット

印刷プレビューで色が意図したとおりに表示されない場合は、プリンター設定とワークシートの範囲が一致しているかを再度確認し、印刷範囲が書式設定された行を確実に含んでいることをご確認ください。

VBA を使用してヘッダーおよびフッターに背景色を追加する

より複雑なワークシートや複数ページに対応し、印刷ページごとに色付きのヘッダーおよびフッターエリアを自動的に作成したい場合は、VBA マクロを使ってこれらの効果をシート全体に素早く適用できます。この VBA ソリューションは、印刷時に色付きヘッダーおよびフッターのように見えるよう、各ページ範囲の先頭と末尾にあらかじめ定義された色付き行を挿入します。

このアプローチは、大規模なワークシートや従来型のレポート、および多数のページにわたり均一なスタイルが求められる状況に特に適しています。ただし、マクロ機能を有効化し、VBA インターフェースに関するある程度の経験が必要です。なお、この方法は実際のExcel ヘッダー／フッターには影響を与えず、印刷シミュレーションのためにワークシートの内容を直接変更するものです。

1。Alt + F11を押して、Microsoft Visual Basic for Applicationsエディターウィンドウを開きます。VBA を初めて使う場合は、事前に開発タブを有効にしておく必要があります。

2。VBA ウィンドウで、挿入＞標準モジュールをクリックしてください。新しいモジュールのコード領域に、次のコードをコピー＆ペーストします：

VBA：ヘッダーおよびフッターに背景色を追加する

Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
    Dim I, J As Long
    Dim xRg As Range
    Dim xRow, xCol As Long
    Dim xRows, xCols As Long
    Dim xDivRow, xDivCol As Long
    Dim xTopArr, xButtArr As Variant
    Dim PageSize1, PageSize2 As Integer

    On Error Resume Next
    xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
    xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
    PageSize1 = 46
    PageSize2 = 8

    With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .BlackAndWhite = False
    End With

    Set xRg = ActiveSheet.UsedRange
    If xRg Is Nothing Then Exit Sub
    xRows = xRg(xRg.Count).Row
    xCols = xRg(xRg.Count).Column
    If xRows < 46 Then xRows = 46
    If xCol < 8 Then xCol = 8
    xDivRow = Int(xRows / PageSize1)
    xDivCol = Int(xCols / PageSize2)
    If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
    If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
    If xDivRow = 0 Then xDivRow = 1
    If xDivCol = 0 Then xDivCol = 1
    Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
    xRow = 1
    xCol = 1
    Cells.PageBreak = xlPageBreakNone
    For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
        For J = 1 To xDivCol * PageSize2 Step PageSize2
            Cells(I, J).Resize(1, PageSize2) = xTopArr
            Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
            Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Rows(I + PageSize1 + 1).PageBreak = xlManual
            Columns(J + PageSize2).PageBreak = xlManual
        Next
    Next
End Sub

モジュールに貼り付けられた VBA コードを示すスクリーンショット

3。F5を押すか、VBA ツールバーの実行ボタンをクリックしてコードを実行すると、マクロが自動的に動作します。設定されたPageSize1（1 ページあたりの行数）およびPageSize2（1 ページあたりの列数）に基づき、各ページ範囲の先頭と末尾に色付きの行が挿入されます。「ページ」の1 行目と47 行目に指定された色と事前定義されたテキストが自動入力され、印刷プレビューまたは印刷時に「擬似」ヘッダーおよびフッターとして表示されます。
VBA を使用してヘッダーとフッターの色を適用した Excel のスクリーンショット

このマクロはさらにカスタマイズして、あなたの要件に合わせることも可能です。たとえば、ヘッダーまたはフッターの内容を変更するには、次の行のテキストを調整してください：

xTopArr = Array(「Top Left」, 「」, 「」, 「Top Center」, 「」, 「」, 「」, 「」)

xButtArr = Array(「Bottom Left」, 「」, 「」, 「Bottom Center」, 「」, 「」, 「」, 「」)

別の背景色を使用したい場合は、ここでColorIndexの値を変更してください：

Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex =34

Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex =34

マクロは標準のExcel 色コードを使用します。異なる色をプレビューするには、Microsoft の ColorIndex リファレンスをご確認いただくか、Excel のカラーピッカーを使ってブランドやデザインにぴったりの色をお選びください。

注：VBA マクロを実行する前に、必ず作業内容を保存してください。標準の「元に戻す」機能では、この操作は取り消せません。また、このマクロはワークシートの内容を変更するため、印刷範囲が正しいことを確認し、紙サイズやレイアウトに応じてPageSize1およびPageSize2パラメーターを調整してください。この方法では追加の行が挿入され、既存のデータが下にずれる可能性があるため、マクロ実行後にはレイアウトを必ずご確認ください。

印刷時に色付きエリアが期待どおりに表示されない（色が欠落したり、途中で切れたりする）場合は、プリンターの詳細設定で「背景色の印刷」が有効になっていることを確認し、ワークシートの印刷範囲が適切に設定されていることをご確認ください。塗りつぶし色および VBA のいずれのアプローチでも、セルの結合や印刷範囲の設定には特に注意が必要です。設定が不適切だと、位置ずれや部分的な着色が発生する可能性があります。

Excel のバージョン、ページレイアウト、ヘッダー／フッター要件の複雑さ、および自動化とデザイン制御のどちらを優先するかを考慮し、最適なソリューションをお選びください。ヘッダー／フッターのカラー表示は、プレゼンテーション資料、表紙、またはブランドイメージを反映した印刷物に最適ですが、ページ間でヘッダー／フッターの内容が動的に更新されない場合に限られます。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。