Excelにて手動でページをふりたい

質問

Excelで複数のシートがあり、各シートごとに（ A/N ）の形で
A=現在ページ、N=全ページ
あるセルに乗せたいのですが、この場合マクロを組むしかないのでしょうか？
関数でなにかありませんか。
また、マクロの場合シートの見た目順左からページを振るのはどうすればできますか？
ブック上のシート全てに番号つけます。

回答No.3

nishi6

質問の意味を正確につかんではいないかもしれませんが、以下のようなことでしょうか。

例えば、Bookが下のようになっているとします。
　　Sheet1：印刷しない
　　Sheet2：印刷する。シートを印刷すると２ページある
　　Sheet3：印刷しない
　　Sheet4：印刷する。シートを印刷すると１ページある
　　Sheet5：印刷する。シートを印刷すると3ページある

この場合、合計６ページで、各シートに
　　Sheet2：1/6、2/6
　　Sheet4：3/6
　　Sheet5：4/6、5/6、6/6
を表示したい。

この場合は、Sheet2、Sheet4、Sheet5 各々に次のような印刷設定をしておきます。
ファイル
　→印刷プレビュー
　→設定
　→ヘッダー/フッター
　→例えばフッターで　1 / ? ページ　を選択

印刷するときは、Sheet2タブをクリック、Ctrlキーを押しながらSheet4タブとSheet5タブをクリックして作業グループを作ります。この状態で印刷を行なうと例では６枚の印刷ができます。こんな簡単な話ではない？
※Ctrlキーを押しながらSheetタブをクリックすると、飛び離れた複数のシートを選択できます。連続したシートならば、Shiftキーを使います。

マクロ（VBA）でコードを書けば、あらかたなんでもできますが、印刷ページ数をつかむのは避けたいですね。（例えば下を参照して下さい）ExecuteExcel4Macro を使う手もありますが、そこまでやる必要があるかです。最初に書いた方法で解決できればいいですが。

[XL2002] 印刷されるページの総数を調べる方法
http://support.microsoft.com/default.aspx?scid=kb;ja;408042

参考URL：

http://support.microsoft.com/default.aspx?scid=kb;ja;408042

お礼

ありがとうございました。
仕様としては１シートで１ページとカウントしてシート全てに対しページを振りたいのです。
手動にしたい理由はプレビューで無いとページ数が見れないのが不便で
シート上に明示したい為です。
途中の抜けはありません。また番号を振らなくていいシートもありません。
全てに振る方法が知りたかったのです。

回答No.2

imogasi

質問の意味を整理してください。
ページを振りたい
（１）シートの見た目の上で＝＞セルの値＝＞その後見るなり、印刷なり
（２）ヘッダー・フッターに表示＝＞印刷時
（３）その他オブジェクトをシートに載せて
のどれですか。
セルの値に表示するのは手動入力では簡単ですが。
１ページ＝１シートの前提ですか。
１シート＝不定複数ページなら計算もややこしい。
ページというのは、エクセルでもワードでも曲者で、初心者は判った
つもりのようですが、ちゃんと説明するとなると難しい事項です。
改ページというのも望みの行に自由に入れられるのですし。
関数ではセルの値から、それを加工して、指定セルの値にするものです。それで質問の意図に当てはまりますか。
関数で、ヘッダーなどに値を設定できる機能はありませんからご留意ください。

お礼

１シート上には複数のページにまたがるものもありますが
１シートで１ページとカウントしたいのです。
つまり、シート数が全体ページでインデックスがページ番号ってことになります。

回答No.1

shanglee

各シートには1ページ分の情報しかないのでしょうか？
つまり「ブックのシート数＝ブック全体のページ数」という状態ですか？
それであれば、マクロを使えばページ数を振ることができると思います。

しかし、各シートに複数ページが入っているとなると難しいような・・・
例えば1枚目のシートの内容を全てプリントアウトしようとした時、
それが全部で何ページ分になるかは、使用するプリンタや用紙サイズによって異なりますよね？
この「シート単位の総ページ数」をマクロ等で取得することは出来ないような気がするのですが・・・

お礼

回答遅くなりすみませんでした。
シートには2ページに分かれて入っているものもありますが
シートで1ページとカウントしたいのです