印刷時にExcelシートのヘッダーやフッターに背景色を追加するにはどうすればよいですか？
Excelで作業する際、ページ番号、ファイル名、または会社ロゴなどの重要な情報を含めることで、印刷されたドキュメントのプロフェッショナルな外観を向上させるためにヘッダーまたはフッターを追加することがあります。Excelの組み込み機能を使用すると、テキストや画像を挿入してヘッダーやフッターを設定できますが、読みやすさやブランド力を向上させるため、これらのセクションに背景色を追加したい場合があります。しかし、現在のExcelでは、印刷時のヘッダーやフッター領域に直接背景色を適用するオプションは提供されていません。印刷時にデータから視覚的に区別したい場合、これはフラストレーションを引き起こす可能性があります。以下では、異なるニーズや技術的な快適度に応じた、Excelの印刷物でカラーヘッダーやフッターを模倣する実用的な回避策をご紹介します。
塗りつぶし色でヘッダーやフッターに背景色を追加
この方法では、ワークシートのセルを書式設定して、カラーヘッダーやフッターを視覚的に模倣します。ページレイアウトを使用して作成された実際のヘッダーやフッターは背景色に対応していないため、上部や下部の行を書式設定することが効果的な代替手段となります。この方法は、印刷されたシートの視覚的な分離やブランド力を強化し、かつヘッダーやフッターの内容をワークシートの行に表示できる場合に最適です。
この方法の制限事項には、動的なヘッダー/フッター項目（ページ番号など）を使用できないことや、各シートで手動で同じ手順を繰り返す必要があることが含まれます。
1. クリック ページ レイアウト > ページ設定.
先に進む前に、すべての余白を「0」に設定し、使用可能なワークシートスペースを最大化し、印刷されるページの一番上または一番下に色付きのエリアがぴったり配置されるようにすることが重要です。これにより、ドキュメントを印刷した際に、本物のヘッダーまたはフッターの背景のように見せる効果が得られます。
2. ページ設定 ダイアログで、「 余白 」タブに行き、「 0 」内に 上, ヘッダー, 下、および フッター 」のテキストボックスに「0」と入力します。これにより、Excelの組み込みヘッダーやフッター用に予約されるスペースがゼロになり、ワークシートのコンテンツが印刷ページの最上部および最下部に位置するようになります。
3. クリック OK 余白の変更を適用します。ワークシートの最初の行を選択します（この行が視覚的にヘッダーとして機能します）。次に、「 ホーム > 結合して中央揃え 」を使用して、この行のすべての列を一つのセルに統合します。これにより、ヘッダーのテキストや背景色を追加するための広いエリアが確保されます。
ヒント: 複数の列を持つドキュメントの場合、正しいセル範囲を選択して統合することで、データ全体をカバーしてください。
4. 結合されたセルを選択し、「 塗りつぶし色 」ボタン（ペンキバケツアイコン）をクリックします。このボタンは、「 ホーム 」タブにあります。パレットから希望の背景色を選択します。これにより、シートの一番上にカラーバンドが追加され、ヘッダーの背景を模倣します。
5. また、色付きのフッターを追加したい場合は、印刷範囲の最後の行までスクロールし、それを選択して、結合と塗りつぶしの手順を繰り返して、ページの下部に色付きのエリアを作成します。
最も良い結果を得るには、カスタムヘッダーやフッターのテキストをこれらの色付けられた統合セルに直接追加することをお勧めします。印刷要件に合わせて、フォントサイズ、配置、形式を調整することができます。この方法では、ヘッダーやフッターは可視ワークシートエリアでのみ定義されることにご注意ください。ドキュメントが複数ページにわたる場合、これらの書式設定手順を各印刷ページに対して手動で繰り返すか、もしくは「先頭行」機能をページ設定で使用してヘッダーのみを繰り返す必要があります。
これで、 ファイル > 印刷 に行くか、または Ctrl + Pを押すと、プレビュー画面の上部（および/または下部）にカラーバンドが表示され、これがヘッダーやフッターの模擬的な背景となります。
もし印刷プレビューで期待どおりに色が表示されない場合は、プリンタ設定とワークシート範囲が一致していることを確認し、印刷範囲が書式設定された行をカバーしているかを再確認してください。
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 NextEnd Sub
3. 押す F5 または 実行 ボタンをVBAツールバーでクリックしてコードを実行します。このマクロは、設定されたページ範囲に基づいて、各ページの上部と下部に自動的に色付きの行を挿入します。 PageSize1 （1ページあたりの行数）および PageSize2 （1ページあたりの列数）に従って、それぞれの「ページ」の1行目と47行目が指定された色と事前定義されたテキストで埋められ、それが印刷プレビューやワークシートの印刷時に「偽」のヘッダーやフッターとして表示されます。
さらに、このマクロを独自の要件に合わせてカスタマイズできます。例えば、ヘッダーやフッターの内容を変更するには、以下の行のテキストを調整します：
xTopArr = Array("左上", "", "", "中央上", "", "", "", "")
xButtArr = Array("左下", "", "", "中央下", "", "", "", "")
別の背景色を使用したい場合は、ここで 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バージョン、ページレイアウト、ヘッダー/フッターの複雑さ、そして自動化とデザインコントロールのどちらが自分にとってより重要であるかを考慮し、最適な解決策を選んでください。ヘッダー/フッターのカラー化は、実際のヘッダー/フッター項目がページ間で動的に更新する必要がないプレゼンテーション、表紙、またはブランド印刷物に最適です。
最高のオフィス業務効率化ツール
| 🤖 | Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し…… |
| 人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める…… | |
| スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ…… | |
| 高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト…… | |
| 列マネージャー：指定した数の列を追加 ｜列の移動 ｜非表示列の表示/非表示の切替｜ 範囲＆列の比較…… | |
| 注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキスト ライブラリ｜日付ピッカー｜データの統合 ｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）…… | |
| トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数 |
Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...
Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に
- Word、Excel、PowerPointでタブによる編集・閲覧を実現。
- 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
- 生産性が50%向上し、毎日のマウスクリック数を何百回も削減！
全てのKutoolsアドインを一つのインストーラーで
Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。
- オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
- 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了（MSI対応）
- 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
- 30日間フル機能お試し —— 登録やクレジットカード不要
- コストパフォーマンス最適 —— 個別購入よりお得