ExcelVBA ページ番号をヘッダーやフッターに自動的に設定する方法

以下のようなシーンで利用で表示します。

1.報告書や会議資料の作成
ページ番号を付けて分かりやすい資料を作成する。

2.大量のデータ出力
印刷ページが複数に分かれる場合、ページ番号を付けることで参照しやすくする。

3.自動化された印刷レイアウト
手動設定の手間を削減して、統一されたページ番号を付ける。

Excel VBA ページ番号をヘッダーやフッターに自動的に設定｜使い方とポイント

Option Explicit

Sub SetPageNumberFooter()
    Dim ws As Worksheet
    
    ' 対象シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' ページ番号を中央フッターに設定
    With ws.PageSetup
        .CenterFooter = "ページ &P / &N" ' 現在のページ番号と総ページ数
    End With
    
    MsgBox "ページ番号を設定しました！"
End Sub

すべてのシートにページ番号を適用

Option Explicit

Sub ApplyPageNumbersToAllSheets()
    Dim ws As Worksheet
    
    ' すべてのシートをループして設定
    For Each ws In ThisWorkbook.Sheets
        With ws.PageSetup
            .CenterFooter = "ページ &P / &N"
        End With
    Next ws
    
    MsgBox "すべてのシートにページ番号を設定しました！"
End Sub

カスタムページ番号（フッターの左側に表示）

Option Explicit

Sub CustomPageNumber()
    Dim ws As Worksheet
    
    ' 対象シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' フッター左にページ番号を設定
    With ws.PageSetup
        .LeftFooter = "レポート: ページ &P / &N"
    End With
    
    MsgBox "カスタムページ番号を設定しました！"
End Sub

ヘッダーにページ番号を設定

Option Explicit

Sub SetPageNumberInHeader()
    Dim ws As Worksheet
    
    ' 対象シートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' ヘッダーにページ番号を設定
    With ws.PageSetup
        .CenterHeader = "レポート ページ &P / &N"
    End With
    
    MsgBox "ヘッダーにページ番号を設定しました！"
End Sub

ExcelVBAを活用してページ番号をヘッダーやフッターに設定すれば、資料作成や印刷作業を効率化できます。&P（現在のページ番号）や  &N （総ページ数）を活用して、目的に応じた番号付けを行いましょう。