Excel2003で、現在のページ数を表示する関数はありますか？

質問

こんにちは。
Excel 2003を使用しています。

ある一覧表の項目見出し部分を、[ページ設定]－[印刷タイトル]に設定し、全てのページに項目見出しを表示するようにしています。

そこで質問なのですが、その項目見出し部分に、現在のページ数を表示させたいのです。

セルに入力できる関数で、現在のページ数がわかる関数などがありましたら、教えてください。
宜しくお願いします。

回答No.2

Wendy02

私には、ご質問の意味がよくわからないですね。

なぜかというと、

＞[ページ設定]－[印刷タイトル]に設定し
したら、そこの行は、標準で、第1行目ではありませんか？
それで、「現在のページ数」というのは、印刷している（しようとしている）ページのことだと思います。

misatoannaさんがお書きになったように、印刷の段階で、印刷タイトル行に表示するには、動的に、マクロでページ数を表していくしか方法がないと思います。

＞セルに入力できる関数で、現在のページ数がわかる関数などがありましたら、教えてください。

関数のように、静的表示するには、印刷に関しては、ヘッダーでページ設定以外は考えられません。

なお、その行のページ数を表す関数自体は、マクロ（正確にはVBA）を使わなくてもできますが、ご質問の趣旨とは違うように思いました。

回答No.1

misatoanna

行見出しに設定したセルに印刷時に自動的にページ番号を採番するのは、一般機能
ではできませんので、マクロを利用することになります。

以下は、セルF1にページ番号を印刷する例です。
[Alt]+[F11]で Visual Basic Editor を起動し、[挿入]-[標準モジュール]で開か
れるウィンドウに、下記のように入力します。（コピペで可）
'
Sub PagePrt()
　　Dim PG, i
　　PG = ActiveSheet.HPageBreaks.Count
　　For i = 1 To PG + 1
　　　　Range("F1") = i
　　　　ActiveSheet.PrintOut From:=i, To:=i　' , Preview:=True
　　Next
End Sub

印刷前にプレビューされる場合は、下から３行目のアポストロフィ（　'　）を削除
してください。

マクロ使用を避けたい場合は、ヘッダを用いるほかないと思います。