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

新しいものを探る、 無料版 今すぐ Kutools for Outlook をお試しください!

 

Excelのヘッダー/フッターにセル値を配置するにはどうすればよいですか？

著者：シャオヤン 最終更新日：2020年05月21日

Excelの機能を使用して、ファイルパス、ファイル名、現在の日付、またはその他の情報を含むヘッダーまたはフッターを簡単に挿入できますが、Excelのヘッダーまたはフッターとしてセル値を使用したい場合があります。 セルの内容をブックのヘッダーまたはフッターに配置するにはどうすればよいですか？

VBAコードを含むワークシートのヘッダーまたはフッターにセル値を入力します

VBAコードを含むすべてのワークシートのヘッダーまたはフッターにセル値を入力します

Kutools forExcelを使用してファイル情報をヘッダー/フッターに挿入します 良いアイデア3

現在のワークシートのヘッダーまたはフッターにセルの内容を配置する場合は、次のVBAコードが役立ちます。 次の手順に従ってください。

1。 セル値を使用してヘルダーまたはフッターを挿入するワークシートをアクティブにしてから、 Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

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 このコードを実行するためのキーを押すと、ダイアログがポップアップ表示され、コンテンツをヘッダーに配置するセルを選択するように通知されます。doc-insert-cell-value-to-header1

4。 そして、 OK、この指定されたセル値は、現在のワークシートの左側のヘッダーに挿入されています。 クリックするとヘッダーを表示できます File > 印刷物。 スクリーンショットを参照してください：doc-insert-cell-value-to-header1

注意：

1.セルの内容をアクティブなワークシートのフッターとして使用する場合は、次のコードを適用できます。

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

2.セル値を右ヘッダー/フッターまたは中央ヘッダー/フッターに挿入するために上記のコードを適用することもできます。 左ヘッダー / 左フッター 　 右ヘッダー / 右フッター or センターヘッダー / センターフッター コードで。

選択したセルの内容を含むヘッダーまたはフッターを、開いているブックのすべてのワークシートに挿入したい場合があります。上記のコードを使用して、それらを何度も繰り返す必要があります。 この場合、次のVBAコードを使用すると、セルのコンテンツをブック全体のヘルダーまたはフッターに一度に追加できます。

1。 セル値を使用してヘルダーまたはフッターを挿入するワークブックをアクティブにしてから、 Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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 このコードを実行するためのキーを押すと、ワークブック全体のフッターにコンテンツを配置するセルを選択するように促すダイアログが表示されます。

doc-insert-cell-value-to-header1

4。 そして、 OK、この選択されたセル値は、すべてのワークシートの左フッターに追加されています。 クリックするとフッターを表示できます File > 印刷物。 スクリーンショットを参照してください：

doc-insert-cell-value-to-header1

注意：

1.セルの内容をブック全体のヘッダーとして使用する場合は、次のコードを適用できます。

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

2。 代替 RightHeader / Footer or CenterHeader / Footer for LeftHeader / Footer ヘッダーまたはフッターの位置を変えたい場合は、上記のコードで。

ワークシート/ワークブック名​​、ワークブックパスなどのファイラー情報をヘッダーまたはフッターに挿入する場合は、次を使用できます。 Kutools for Excelさん ワークブック情報を挿入する Kutools forExcelをインストールしている場合のユーティリティ。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 
無料ダウンロード
30 日間無料でフル機能を利用できる

後 無料インストール Kutools for Excel、以下のようにしてください：

1。 クリック クツールズプラス > ワークブック > ワークブック情報を挿入する。 スクリーンショットを参照してください：
ドキュメント 1

2。 の中に ワークブック情報を挿入する ダイアログで、下に挿入する必要のある情報を確認します ご案内 セクション、およびチェック ヘッダ or フッター 好きなように。

ヒント： ヘッダーまたはフッターのXNUMXつの場所（中央、左、または右）に情報を挿入できます。
ドキュメント挿入ワークブックパス1

3。 クリック Ok。 その後、あなたは行くことができます 表示 > ページレイアウト ヘッダーを表示します。
ドキュメント 3

[ブック情報の挿入]を使用すると、ファイル情報をセルまたはセルの範囲に挿入することもできます。 このユーティリティの詳細については、ここをクリックしてください。



ヒント。ワークブックを複数のワークブック/ pdfファイルまたはcsvファイルにすばやく分割したい場合は、Kutools forExcelを使用してみてください。 分割ワークブック 次のスクリーンショットに示すように。 30日で無制限にフル機能、 今すぐダウンロードして無料トライアルをお試しください。

ドキュメント分割ワークブック

関連記事：

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

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

最高のオフィス生産性向上ツール

🤖 Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup  |   複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー   |  ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化   |  リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット:  12 テキスト ツール (テキストを追加, 文字を削除する、...）   |   50+ チャート 種類 (ガントチャート、...）   |   40+ 実用的 式 (誕生日に基づいて年齢を計算する、...）   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...）   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...）   |   7 マージ＆スプリット ツール (高度な結合行, 分割セル、...）   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!