Excel でセルの値をヘッダーまたはフッターに表示するにはどうすればよいですか？

著者Xiaoyang変更日2025-07-10

Microsoft Excel では、ファイルパスやファイル名、現在の日付など、組み込みの情報をネイティブ機能でヘッダーやフッターに簡単に挿入できます。しかし、特定のセルの実際の内容をヘッダーやフッターとして使いたい場合もあるでしょう。この機能は Excel の標準インターフェースでは直接提供されておらず、「ワークシートのヘッダーやフッターにセルの値を挿入するにはどうすればよいのか？」という疑問が生じます。多くのユーザーは、クライアント名やカスタム日付などの動的情報を印刷時のヘッダーやフッターに反映させたいレポート、フォーム、データエクスポートを作成する際に、この要件に直面します。これにより、各印刷物にシート自体から最新のコンテキストが含まれるようになります。以下に示す解決策はこのニーズに対応しており、VBA とサードパーティ製ツールの両方のアプローチを紹介し、それぞれが最も適している状況について説明しています。

VBA コードでワークシートのヘッダーまたはフッターにセルの値を表示する

VBA コードで全ワークシートのヘッダーまたはフッターにセルの値を表示する

ファイル情報の挿入を Kutools for Excel でヘッダー／フッターに挿入

セルの内容を手動でヘッダー／フッターダイアログにコピーする

VBA コードでワークシートのヘッダーまたはフッターにセルの値を表示する

特定のセルの内容を現在のワークシートのヘッダーまたはフッターに表示したい場合、Excel の標準ヘッダー／フッターインターフェースでは対応できません。ただし、簡単な VBA マクロを使えば、この機能を簡単に実現できます。

VBA コードを実行する前に、必ずワークブックを保存してください。マクロはオブジェクトを変更するため、元に戻す操作はできません。また、Excel の設定でマクロの実行が許可されていることもご確認ください。

1。ヘッダーまたはフッターにセルの値を表示したいワークシートをアクティブにして、ALT + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2。「挿入」>「モジュール」をクリックし、新しいモジュールウィンドウに次のコードを貼り付けてください。

VBA コード：ワークシートのヘッダーに指定したセルの値を表示する

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3。F5キーを押す（または実行ボタンをクリック）すると、ヘッダーに使用するセルを選択するよう促すダイアログボックスが表示されます。
ヘッダーに挿入したいセルを選択するダイアログ

4。セルを選択してOKをクリックすると、選択したセルの値がアクティブワークシートのヘッダーに左側から挿入されます。ヘッダーを確認するには、ファイル>印刷（または)ページレイアウト表示）に移動してください。以下の例をご覧ください。
セルの値がヘッダーに挿入されました

注記：

ヘッダーではなくフッターにセルの内容を表示したい場合は、次のコードをご利用ください。操作手順は同じで、このコードをモジュールに貼り付けて実行するだけです。

VBA コード：ワークシートのフッターに指定したセルの値を表示する

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

位置を変更するには、コード内のLeftHeaderまたはLeftFooterを、必要に応じてCenterHeader、RightHeader、CenterFooter、またはRightFooterに置き換えてください。たとえば、ヘッダーの中央に値を挿入するには、LeftHeaderをCenterHeaderに変更します。
スクリプトを実行する前に、セル参照が有効かどうか必ずご確認ください。空白のセルを参照すると、ヘッダー／フッターも空白になってしまいます。
マクロ実行後は、元のセルを変更してもヘッダー／フッターは自動で更新されません。表示情報を最新の状態にするには、再度マクロを実行してください。
この VBA メソッドは、セルからヘッダーへの操作を自動化したいものの頻繁な更新は不要な場合や、印刷のたびに動的な内容を含むテンプレートを作成したい場合におすすめです。
「マクロが無効になっています」という警告が表示されたら、ファイル > オプション > トラストセンターでマクロ設定が有効になっているかご確認ください。

VBA コードで全ワークシートのヘッダーまたはフッターにセルの値を表示する

特定のセルの値をワークブック内のすべてのシートのヘッダーまたはフッターに適用する必要がある場合、前のコードを各ワークシートごとに個別に実行するのは非常に手間がかかります。こうしたケースでは、選択したセルの内容を一括で全ワークシートのヘッダーまたはフッターに挿入できる別の VBA マクロをご利用いただけます。これは、一貫性のあるヘッダー／フッター情報を全ページにわたって表示するレポートを配布する際によく使われる方法です。

1。変更を適用したいワークブックを開き、ALT + F11キーを押して、Visual Basic for Applicationsウィンドウを起動します。

2。VBA エディターで、挿入＞モジュールをクリックし、次のマクロをモジュールウィンドウにコピー＆ペーストしてください。

VBA コード：全ワークシートのフッターに指定したセルの値を表示する

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3。F5キーを押してこのマクロを実行すると、対象セルを選択して各ワークシートのフッターに表示する値を指定するダイアログボックスが表示されます。

フッターに挿入したいセルを選択するダイアログ

4。セルを選択してOKをクリックすると、このセルの値がワークブック内のすべてのワークシートのフッター（左）に挿入されます。フッターの割り当ては、ファイル>印刷に移動して確認できます。
セルの値がフッターに挿入されました

注記：

すべてのワークシートのヘッダーにセルの値を使用するには、代わりに以下のコードを適用してください。コードの入力および実行手順は同じです。

VBA コード：全ワークシートのヘッダーに指定したセルの値を表示する

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

ヘッダー／フッターの中央または右側に値を挿入するには、スクリプト内のLeftHeader／LeftFooterを、CenterHeader／CenterFooterまたはRightHeader／RightFooterに置き換えるだけです。
VBA マクロを使用して行った変更には「元に戻す（Undo）」操作が適用されませんので、ご注意ください。結果が予期しないものになった場合に備え、事前にドキュメントを保存しておくことをおすすめします。
この方法は、すべてのシートで共通のヘッダー／フッターが必要なワークブックに最適です。各シートで異なる内容が必要な場合は、シートごとに個別のマクロを実行することをご検討ください。
ヘッダー／フッターが期待どおりに更新されない場合は、シート保護またはワークブック保護が有効になっていないかをご確認ください。

ファイル情報の挿入を Kutools for Excel でヘッダー／フッターに挿入

ワークシート名、ブック名、ファイルパスなどのファイル関連情報をヘッダーまたはフッターに素早く・柔軟に挿入したいなら、Kutools for Excelの専用ユーティリティ「ブック情報の挿入」がぴったりです。このツールは、コードを使わずに処理したいとき、複数のドキュメントプロパティを一括で挿入したいとき、あるいは手動入力によるミスやエラーのリスクを避けたいときに特に役立ちます。VBA に手を出したくない方や、ワークブックのメタデータに基づいてヘッダー／フッターを定期的に更新する必要がある方に最適なソリューションです。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。 無料トライアル。。。

無料でインストール後、次の手順に従ってください。

1。KUTOOLS PLUSタブに移動し、ワークブック > ブック情報の挿入を選択します。
リボンの Kutools タブにあるワークブック情報の挿入オプション

2。ブック情報の挿入ダイアログボックスで、情報セクションから挿入したい項目（例：ブックのパス、ファイル名、ワークシート名など）を選択し、ヘッダーまたはフッターのどちらに挿入するかをチェックボックスで指定します。

ヒント：ヘッダーやフッター内の配置（左寄せ、中央揃え、右寄せ）は、「位置」オプションで簡単に選べます。たとえば、ファイルパスを左側に、シート名を中央に配置するなど、見やすい構造化レイアウトが実現できます。
ワークブック情報の挿入ダイアログ

3。OKをクリックして設定を適用してください。結果を確認するには、表示＞ページレイアウトに切り替えるか、ファイル＞印刷プレビューをご利用ください。
ファイル情報が挿入されたヘッダー

このブック情報の挿入機能を使えば、セルやセル範囲に情報を直接挿入することも可能。数式での利用、表示、さらには自動化タスクにも活用できます！このユーティリティの詳細については、こちらをクリックしてください。

この方法は、マクロや数式を使わずにドキュメントプロパティに簡単にアクセスしたいユーザーに特に適しています。手動編集と比べて、Kutools は一貫性を保証し、特にドキュメント参照を定期的に更新する必要があるユーザーにとって大幅な時間節約になります。

ヘッダーやフッターの情報が自動的に更新されない場合は、ワークブックが「手動計算」モードになっていないかご確認ください。一部のヘッダー／フッターは最新のデータを表示するため、ドキュメントの再読み込みが必要です。

セルの内容を手動でヘッダー／フッターダイアログにコピーする

VBA やアドインを使わず、たまにだけセルの内容をヘッダーやフッターに反映したい場合は、セルの値をコピーして、ヘッダー／フッターダイアログに手動で貼り付けることができます。ページレイアウトビューでヘッダー／フッター部分をダブルクリックし、Ctrl+Vでセルの値を貼り付けましょう。ただし、この操作は手動のため、セルの値が変わるたびに更新が必要になる点にご注意ください。

手動または印刷タイトルによる方法は、「真の」ヘッダー／フッター配置にはあまり動的ではなく、基になる情報が変更されるたびに操作が必要です。一方、VBA マクロやKutools のようなツールは、大規模なワークブックや自動レポート作成に特に役立つ、効率的で繰り返し可能なワークフローを提供します。VBA で予期しない動作やエラーが発生した場合は、必ずマクロのセキュリティ設定を確認し、ロックされているセルやワークシートの保護がないかを調べてください。サードパーティ製アドインを使用する前には、信頼できる出所からのものであり、使用中のExcel バージョンと互換性があることを確認してください。機密性や重要度の高いファイルを扱う際は、マクロを実行する前にバックアップを保存するのが望ましい習慣です。

デモ：ブック情報の挿入をセル／ヘッダー／フッターに挿入

Kutools for Excel：300 個を超える便利なツールがすぐそこへ！AI 搭載の機能で、よりスマートでスピーディーな作業をぜひお楽しみください！今すぐダウンロード！

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 の詳細はこちら。。。無料ダウンロード。。。