エクセル2003のヘッダーフッターで、ページ番号のつけ方が説明されているページを探しています。

urlはダミーです。

フッターの編集→

0&[ページ番号]と記入じゃだめなんでしょうか。（二桁以降だと010とかになるので印刷を二回に分ける必要が出ますが。）

>ページ番号のつけ方が説明されているページ

はみつけましたが、

>「01、02」で番号を振る

はみつかりませんでした・・・

残念ながら、標準機能（ヘッダ/フッタの書式指定）では「01」「02」・・「11」

のような指定は出来ないようです。

別の方法として、VBA を使用しても良いということでしたら、

以下のように、1ページ毎にページヘッダ/フッタ（例：CenterFooter）

を指定し直して、強引にページ番号を振りなおすという方法もあります。

以下、ソースです。

（はてな投稿時に一部文字、記号が全角に変換されている可能性がありますので、

　使用される場合は、上記 URL にあるソースをご利用ください。）

’ ＜使い方＞

’ 1. Excel の「Visual Basic Editor」を起動します。

’ 2. [挿入] - [標準モジュール] を選択します。

’ 3. 下記のコードを貼り付けます

’ 4. [実行] - [Sub/ユーザー フォームの実行] で

’　　SpecialPrint() プロシージャを実行します。

’　　→ ページヘッダのページ番号が「０詰め」されて印刷されます

Option Explicit

’ シート内のページ数を算出

’ ＜参考サイト＞

’ [XL2002] 印刷されるページの総数を調べる方法

’

Function GetPageCount(ByRef ws As Worksheet) As Integer

　　Dim H_Break As Integer

　　Dim V_Break As Integer

　　Dim P_Page As Integer

　　Dim A_Cell As String

　　A_Cell = ws.UsedRange.Address　　　 ’最後のセルのアドレスを取得

　　If A_Cell = ”$A$1” Then

　　　　If IsEmpty(ws.Range(A_Cell).Value) Then

　　　　　　MsgBox ”印刷するデータはありません。”

　　　　　　Exit Function

　　　　End If

　　End If

　　H_Break = ws.HPageBreaks.Count　　’横の改ページ数取得

　　V_Break = ws.VPageBreaks.Count　　’縦の改ページ数取得

　　If V_Break = 0 Then

　　　　P_Page = H_Break + 1

　　Else

　　　H_Break = H_Break + 1

　　　V_Break = V_Break + 1

　　　P_Page = H_Break * V_Break

　　End If

　　GetPageCount = P_Page

End Function

’ 特殊印刷処理

Sub SpecialPrint()

　　Dim n As Integer

　　Dim nCount As Integer

　　Dim wb As Workbook

　　Dim ws As Worksheet

　　For Each wb In Workbooks

　　　For Each ws In wb.Worksheets

　　　　’ シートのページ数を取得

　　　　nCount = GetPageCount(ws)

　　　　’ ページ数ぶんループ

　　　　For n = 1 To nCount

　　　　　　’ 中央ヘッダに「０詰め」した「ページ番号」を表示

　　　　　　ws.PageSetup.CenterFooter = Format(n, ”00”)

　　　　　　’ 指定ページを印刷（nページ目〜nページ目を印刷）

　　　　　　ws.PrintOut n, n, 1

　　　　Next

　　　Next

　　Next

End Sub