Note: The other languages of the website are Google-translated. Back to English

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

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、この指定されたセル値は、現在のワークシートの左側のヘッダーに挿入されています。 クリックするとヘッダーを表示できます フィレット > 印刷物。 スクリーンショットを参照してください: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、この選択されたセル値は、すべてのワークシートの左フッターに追加されています。 クリックするとフッターを表示できます フィレット > 印刷物。 スクリーンショットを参照してください:

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 便利な機能は、あなたの仕事をより簡単にします。 

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

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

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

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

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

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



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

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

関連記事:

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

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


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

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (9)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
アクティブな給与の日付範囲を複数のシートに挿入する必要がありました。 ユーザーは給与日付シートを開き、日付範囲を入力し、印刷する前にワークブックのすべてのシートを更新します。 2010互換のコードを少し減らして、範囲に複数のセルを挿入する方法は次のとおりです。Private Sub Workbook_BeforePrint(Cancel As Boolean)Dim WorkRng As Range On Error Resume Next For Each ws InApplication.ActiveWorkbook.Worksheetsws.PageSetup。 RightHeader = Range( "'Payroll Date'!A1")。Value&vbCr&Range( "'Payroll Date'!A2")。Value Next End Sub
このコメントは、サイトのモデレーターによって最小化されました
ヘッダーにXNUMXつのセルを挿入したい。このVBはXNUMXつのセル専用です。 どうすればいいですか。 ありがとう
このコメントは、サイトのモデレーターによって最小化されました
rht XNUMXセルの値をXNUMXつのセルに連結してから、そのXNUMXつのセルをヘッダーとして使用してみてください。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、適用されたフィルターを考慮したセル値を追加する方法はありますか? たとえば...A1=月曜日A2=火曜日A3=水曜日。 VBAコードを使用してセルA1を表示することは最初は機能しますが、曜日にフィルターを適用すると、「最上位」のセル値はA1ではなくなります。 変数を取得する方法はありますか? どうもありがとう、
このコメントは、サイトのモデレーターによって最小化されました
「VBAコード:すべてのワークシートのヘッダーに指定されたセル値を配置する」を使用する場合、配置される値をフォーマットする必要があります:Tahoma、太字、フォントサイズ12。
これをコードに追加するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、

これはXNUMX回だけ機能するようです。
セルの値が変化した場合はどうなりますか?
セルの値が変更されたときにヘッダーが変更されるようにセルをリンクする方法はありますか?

私はXNUMX枚のシートを持っているワークブックを持っています。

「削除シート」というラベルの付いたシート1-注文のために口蓋化する情報を含むシートを倉庫に送信します
「OA」というラベルの付いたシート2-顧客への注文確認。ヘッダーに必要な注文番号を含む、最初のシートからほとんどのデータを取得します。 そのため、最初のワークシート(「削除シート」)の(C5)から値を取得する注文番号(F7)を使用して、ヘッダーをこのページのセルにリンクしようとしています。
「請求書-請求書」というラベルの付いたシート3は、最初のシートから同じ情報のほとんどを取得します。このシートには、「削除シート」の(C5)から取得したこのシートの値(F7)を含めるヘッダーも必要です。
このコメントは、サイトのモデレーターによって最小化されました
これは動的リンクを作成しているようには見えません。つまり、セルの値が変更されても、ヘッダーに入力された値は変更されません。 では、コピー/貼り付けで同じことができる場合、VBA コードの目的は何でしょうか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ニール、
セルの値をヘッダーまたはフッターに動的にリンクする場合は、次の VBA コードを適用してください。

注意: 通常のモジュールではなく、シート コードにコードを挿入する必要があります。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


試してみてください、それがあなたを助けることを願っています
このコメントは、サイトのモデレーターによって最小化されました
マクスドニャ・バガイマナ?
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護