Excelスプレッドシートの各ページに異なるヘッダーやフッターを適用するにはどうすればよいですか？

デフォルトでは、ワークシートにヘッダーやフッターを挿入すると、そのヘッダーやフッターの内容はすべてのページに適用されます。多くの場合、異なるページにはワークシート内で異なる内容が含まれているため、印刷後にヘッダーやフッターの内容でこれらのページを区別したいと考える人も多いでしょう。ワークシートの各ページに異なるヘッダーやフッターを適用するにはどうすればよいでしょうか？ この記事の方法がお役に立つでしょう。

VBAコードを使用して各ページに異なるヘッダーやフッターを適用する

VBAコードを使用して各ページに異なるヘッダーやフッターを適用する

次のVBAコードを使用すると、ワークシートの各ページに異なるヘッダーやフッターを適用できます。以下の手順に従ってください。

1. Alt + F11キーを同時に押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、[挿入] > [モジュール]をクリックします。その後、下記のVBAコードをコードウィンドウにコピーして貼り付けます。スクリーンショットをご覧ください：

VBAコード: Excelの各ページに異なるヘッダーを適用する

Sub DifferentHeaderFooter()
    Dim ws As Worksheet
    Dim vLeft As Variant, vRight As Variant, xRg As Variant
    Set ws = ActiveSheet
    On Error Resume Next
    vLeft = Array("First page", "Second page", "Third page", "fourth page")
    xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")

    Application.ScreenUpdating = False
    For i = 0 To UBound(vLeft)
        With ws.PageSetup
        .PrintArea = xRg(i)
        .LeftHeader = vLeft(i)
        End With
        ws.PrintPreview
    Next i
    Application.ScreenUpdating = True
    ws.PageSetup.PrintArea = ""
End Sub

注意:

3. F5キーを押してコードを実行します。すると、プレビュー ウィンドウがポップアップ表示されるので、印刷ボタンをクリックして、異なるヘッダーやフッターを持つページの印刷を開始してください。

注意: ワークシートに4つの指定された印刷ページがある場合、印刷を完了するには印刷ボタンを4回クリックする必要があります。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！