ジャッキーは、フッターに配置されたページ番号に先行ゼロを含める方法があるかどうか尋ねました。彼女は、ページ番号を常に5文字の長さにし、必要に応じて長さを埋めるために先行ゼロを付ける必要があります。したがって、ページ番号は00001、00002などになります。

Excelは、ページ番号のフォーマットをあまり適切に提供していません。 1つの解決策（おそらく最も実行可能な方法）は、ワークシートの各ページを一度に1つずつ印刷し、ページ番号を変更することです。このマクロはそのアプローチを取ります：

Sub FormattedPageNums()

Dim iPages As Integer     Dim J As Integer     Dim sFormat As String

sFormat = "00000"

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



With ActiveSheet         For J = 1 To iPages             .PageSetup.CenterFooter = Format(J, sFormat)

.PrintOut From:=J, To:=J         Next J     End With End Sub

マクロは、プリントアウト全体に含まれるページ数を検出し、そのプリントアウトの各ページをステップスルーします。各ページを個別に印刷する前に、.CenterFooterプロパティは、先行ゼロでページ番号を表すフォーマットされた文字列と等しく設定されます。

必要に応じてマクロを変更して、フッターにさまざまな情報を配置できます。 .CenterFooterの代わりに.LeftFooterまたは.RightFooterを使用して、変更されるフッターの領域を変更することもできます。

注：

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

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

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

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

Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります：

linkページ番号の先頭のゼロ。