エクセル2000・シートごとのページ番号とページ数、ブック全体のページ番号と総ページ数

Question

エクセル２０００についてお尋ねします。

ヘッダの右側に
　　　（［シート毎のページ番号］／［シート毎のページ数］）
フッタの中央に
　　　（［ブック全体の通しページ番号］／［ブック全体の総ページ数］）
を入力・印刷したいのです。

今までは手入力でフッタのページ番号のうしろに「＋前のシートまでのページ数」、［ブック全体の総ページ数］の代わりに数値を直接入力していたのですが、１つのブックにつきシート数が２０～６０程度ある上にページの追加・削減があるので、もっと簡単なやり方があったら教えてほしいです。

ＶＢＡは、まだ勉強を始めたばかりで、ネット上で使えそうなＶＢＡをコピーして自分のエクセルに貼ることしか出来ません^^;
どうか、よろしくお願いします。

papayuka · Accepted Answer

こんにちは。

こんな感じでしょうか？
必ずコピー等を取ったテスト用ブックで試して下さい。

ページ数によって、結構処理時間が掛かります。

'---------------------------------------------------------------------
Sub Test()
Dim ws As Worksheet
Dim AllCnt As Integer, pCnt As Integer

　AllCnt = 0
　For Each ws In Worksheets
　　　AllCnt = AllCnt + PageCnt(ws)
　Next ws

　pCnt = 0
　For i = 1 To Worksheets.Count
　　Set ws = Worksheets(i)
　　ws.PageSetup.RightHeader = "&P / &N "
　　If i = 1 Then
　　　 ws.PageSetup.CenterFooter = "&P / " & AllCnt
　　Else
　　　 pCnt = pCnt + PageCnt(Worksheets(i - 1))
　　　 ws.PageSetup.CenterFooter = "&P+" & pCnt & " / " & AllCnt
　　End If
　Next i
　Set ws = Nothing
End Sub
'---------------------------------------------------------------------
Function PageCnt(ws As Worksheet) As Integer
Dim h As Integer, v As Integer
　　PageCnt = 0
　　If ws.UsedRange.Address = "$A$1" Then
　　　　If IsEmpty(ws.Range("A1").Value) Then
　　　　　 Exit Function
　　　　End If
　　End If
　　h = ws.HPageBreaks.Count
　　v = ws.VPageBreaks.Count
　　If v = 0 Then
　　　　PageCnt = h + 1
　　Else
　　　　PageCnt = (h + 1) * (v + 1)
　　End If
End Function
'---------------------------------------------------------------------

papayuka · Answer

こんにちは。

> 改ページプレビューでは確認しなかったんですが、
> シートを全選択して印刷プレビューで見た限りでは、
> ヘッダー部分の総ページ数コマンドで入力されてい
> る部分は「３１」になっていました。

ちなみに、全選択して印刷プレビューを見てはダメです。
シート毎に見ないとまったく関係無い数値が出ます。

&P / &N　を全てのシートヘッダーにいれ、&P+x / ax　を各ページに入れてます。
ax は全てのシートをループして各ページの改ページをカウントしていった合計で、x は前のページの改ページ数です。

シート1のページ数　1　（改ページ数　0）
シート2のページ数　5　（改ページ数　4）
シート3のページ数　8　（改ページ数　7）

だとすると、フッターは下記のような感じになります。

→　1 / 14
→　1+1 / 14　～　5+1 /14　まで
→　1+6 / 14　～　8+6 /14　まで

これを全選択して印刷プレビューし、最終ページを見ると、ヘッダーは 14 / 14 でフッターは 20 / 14 になります。

印刷プレビューとは、ページの数え方が違い、同じ数え方をVBAでやる方法は私には解かりません。

あと、このマクロは改ページを数えているので、印刷範囲にない場所に改ページがあっても数えてしまいます。

Sheet1が1ページしかないのに、Sheet2の通し番号が5から始まるというのは、印刷範囲外に使われていない（印刷範囲の中に無い）改ページがあるのでは？
どこかのセルで右クリックして、「すべての改ページを解除」して試して見てください。

また、新規ブックに適当にデータを入れて試しても、おかしな結果しか出ないようならご使用を中止してください。

こちらでは、印刷範囲以外に改行がある時以外は問題なく動作します。

papayuka · Answer

こんにちは。

> 総ページ数が３１ページのものが「６２」に、

メニューの表示－改ページプレビューで見ると何ページになってますか？ひょっとして、本来データがあるのに印刷範囲にしてない行や列がありますか？

> 最初の方に表紙・目次など、カウントしたくないシートが入った時に、何か設定を変えるなどして、飛ばすことは可能でしょうか？

これは、ヘッダーフッターに入れるのであれば、不可能だと思います。

エクセル2000・シートごとのページ番号とページ数、ブック全体のページ番号と総ページ数

こんにちは。

この回答への補足

こんにちは。

こんにちは。

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング