メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

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

Author Xiaoyang Last modified

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

VBAコードを使用してワークシートのヘッダーやフッターにセルの値を挿入する

VBAコードを使用してすべてのワークシートのヘッダーやフッターにセルの値を挿入する

Kutools for Excelを使用してファイル情報をヘッダーやフッターに挿入する good idea3

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


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 (または「実行」ボタンをクリック)してこのマクロを実行します。選択したセルの値を使用するように求めるダイアログボックスが表示されます。
Dialog for selecting a cell that you want to put its content into the header

4セルを選択して OKをクリックすると、選択されたセルの値がアクティブなワークシートの左ヘッダーに挿入されます。ヘッダーを確認するには、以下に移動します: ファイル > 印刷 (または使用 ページレイアウト 表示)。下記の例をご覧ください:
The cell value is inserted to header

注意:

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

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を必要に応じてCenterHeaderRightHeaderCenterFooter、またはRightFooterに置き換えてください。たとえば、中央のヘッダーに値を挿入するには、LeftHeaderCenterHeaderに変更します。
  • スクリプトを実行する前に、常にセル参照が有効であることを確認してください。空白のセルを参照しようとすると、ヘッダー/フッターも空白になります。
  • マクロを実行した後、ソースセルを変更しても、ヘッダー/フッターは自動的に更新されません。表示される情報を更新するには、マクロを再度実行する必要があります。
  • この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キーを押します。各ワークシートのフッターに表示されるべきターゲットセルを選択するダイアログボックスが表示されます。

Dialog for selecting a cell that you want to put its content into the footer

4セルを選択して OKをクリックすると、このセルの値がワークブック内のすべてのワークシートの左フッターに挿入されます。フッターの割り当てを確認するには、次に移動してください: ファイル > 印刷.
The cell value is inserted to footer

注意:

  • すべてのワークシートのヘッダーにセルの値を使用するには、次のコードを適用してください。コードの入力および実行プロセスは同じです:

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マクロを使用して行った変更には元に戻しが適用されないことに注意してください。予期しない結果の場合に備えて、事前にドキュメントを保存してください。
  • このアプローチは、すべてのシートが共通のヘッダー/フッター要件を持つワークブックに最適です。シートごとに異なるコンテンツが必要な場合は、それぞれのシートで単一シート用のマクロを個別に実行することを検討してください。
  • ヘッダー/フッターが期待通りに更新されない場合は、保護されたシートやワークブック保護が有効になっていないか確認してください。

Kutools for Excelを使用してファイル情報をヘッダーやフッターに挿入する

ワークシート名、ブック名、ファイルパスなどのファイル関連情報を迅速かつ柔軟にヘッダーやフッターに挿入したい場合、Kutools for ExcelにはInsert Workbook Informationという専用ユーティリティが提供されています。このツールは、コードなしのソリューションを好む場合や、バッチ処理が必要な場合、あるいは手動入力やエラーのリスクなしにいくつかの組み込みドキュメントプロパティを挿入したい場合に特に適しています。Kutoolsは、VBAとの対話やワークブックメタデータに基づくヘッダー/フッターの定期的な更新を望まないユーザーにとってアクセスしやすいプロセスを提供します。

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

Kutools for Excelを無料インストール後に、以下の手順に従ってください:

1. 「 Kutools Plus 」タブに移動し、「 ブック > ブック情報の挿入.
Insert Workbook Information option on the Kutools tab on the ribbon

2. 「ブック情報の挿入」ダイアログボックスで、挿入したい具体的な情報(例:ブックパス、ファイル名、ワークシート名など)を「情報」セクションで選択します。次に、ヘッダーまたはフッターに挿入するかどうかを指定するために「ヘッダー」または「フッター」をチェックします。

ヒント: ヘッダーやフッター内の位置(中央、左、または右)を選択できます。これは、構造化されたレイアウトに役立ちます。例として、左側にファイルパス、中央にシート名を配置します。
Insert Workbook Information dialog

3. 「 OK 」をクリックして設定を適用します。結果を確認するには、次に移動します: 表示 > ページレイアウト または使用 ファイル > 印刷プレビュー.
Header with file info inserted

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

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

ヘッダーまたはフッターの情報が自動的に更新されない場合は、ワークブックが手動計算に設定されているか確認してください。一部のヘッダー/フッターは最新のデータを表示するために文書の更新が必要です。


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

セルの内容でヘッダーやフッターを時々更新するだけでよく、VBAやアドインを避けたい場合は、セルの値をコピーして、それを手動でヘッダー/フッターのダイアログに貼り付けることができます。「ページレイアウト」表示でヘッダー/フッターのセクションをダブルクリックし、Ctrl+Vを使用してセルの値を貼り付けます。欠点は、これは手動のプロセスであり、値が変わるたびに更新する必要があることです。


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

デモ:ブック情報をセル/ヘッダー/フッターに挿入する

 
Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結!永久無料のAI機能をお楽しみください!今すぐダウンロード!

関連記事:

Excelでファイル名またはパスをセル / ヘッダーやフッターに挿入するにはどうすればよいですか?

Excelでヘッダー、フッター、およびヘッダー画像を挿入および削除するにはどうすればよいですか?

最高のオフィス業務効率化ツール

🤖 Kutools AI Aide:データ分析を革新します。主な機能:Intelligent Executionコード生成カスタム数式の作成データの分析とグラフの生成Kutools Functionsの呼び出し……
人気の機能重複の検索・ハイライト・重複をマーキング空白行を削除データを失わずに列またはセルを統合丸める……
スーパーLOOKUP複数条件でのVLookup複数値でのVLookup複数シートの検索ファジーマッチ……
高度なドロップダウンリストドロップダウンリストを素早く作成連動ドロップダウンリスト複数選択ドロップダウンリスト……
列マネージャー指定した数の列を追加列の移動非表示列の表示/非表示の切替範囲&列の比較……
注目の機能グリッドフォーカスデザインビュー強化された数式バーワークブック&ワークシートの管理オートテキスト ライブラリ日付ピッカーデータの統合セルの暗号化/復号化リストで電子メールを送信スーパーフィルター特殊フィルタ(太字/斜体/取り消し線などをフィルター)……
トップ15ツールセット12 種類テキストツールテキストの追加特定の文字を削除など)50種類以上のグラフガントチャートなど)40種類以上の便利な数式誕生日に基づいて年齢を計算するなど)19 種類の挿入ツールQRコードの挿入パスから画像の挿入など)12 種類の変換ツール単語に変換する通貨変換など)7種の統合&分割ツール高度な行のマージセルの分割など)… その他多数
Kutoolsはお好みの言語で利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語、その他40以上の言語に対応!

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 Tabs PowerPoint
  • オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
  • 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了(MSI対応)
  • 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
  • 30日間フル機能お試し —— 登録やクレジットカード不要
  • コストパフォーマンス最適 —— 個別購入よりお得