ウェンディは、ワークシートの印刷物のヘッダーにページ番号を含めたいと考えていますが、ひねりを加えています。1ページの21Aページ、2ページの21Bページ、3ページの21Cページなどです。このようなページ番号を作成するにはどうすればよいか疑問に思います。スキーム。

この問題に取り組むにはいくつかの方法がありますが、それらはすべてマクロの使用を伴います。現在のワークブックのすべてのワークシートを実際に印刷する必要があり、それらのワークシートのいずれも長さが1ページを超えていない場合（印刷時）、次のマクロは要求に応じてヘッダーの中央セクションを設定します：

Sub PageNums1()

Dim sheet As Worksheet     Dim J As Integer

J = 1     On Error Resume Next     For Each sheet In Worksheets         Sheets(J).PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

J = J + 1     Next End Sub

マクロは実際には何も出力しないことに注意してください。ヘッダー情報を変更するだけです。本当に現在のワークシートのみを印刷したいが、そのワークシートで印刷に複数のページが必要な場合は、次のように問題なく機能するはずです。

Sub PageNums2()

Dim X As Integer     Dim Y As Integer     Dim Z As Integer

Z = 1     For X = 1 To ActiveSheet.HPageBreaks.Count + 1         For Y = 1 To ActiveSheet.VPageBreaks.Count + 1             ActiveSheet.PageSetup.CenterHeader = _               "Page 21" & Chr$(64 + Z)

Worksheets.PrintOut Z, Z             Z = Z + 1         Next Y     Next X End Sub

このマクロは、印刷出力の水平（HPageBreaks）および垂直（VPageBreaks）改ページの位置に基づいてページを計算します。

次のように、Pagesコレクションを操作することもできます。

Sub PageNums3()

Dim J As Integer

For J = 1 To ActiveSheet.PageSetup.Pages.Count         ActiveSheet.PageSetup.CenterHeader = "Page 21" & Chr(64 + J)

Worksheets.PrintOut J, J     Next J End Sub

選択したアプローチに関係なく、印刷に26ページ以上が必要な場合は、問題が発生することに注意してください。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ excelribbon-ExcelTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（12548）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice365のExcelに適用されます。