こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

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

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

投稿日時 - 2005-06-23 12:29:38

QNo.1467879

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

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

なぜかというと、

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

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

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

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

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

投稿日時 - 2005-06-23 15:15:45

ANo.1

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

以下は、セル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

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

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

投稿日時 - 2005-06-23 13:29:34

あなたにオススメの質問