エクセルでＡ４上下に３桁の通し番号を入れ印刷

エクセルでＡ４用紙、上下に二枚チケットを印刷し、それぞれに通し番号でチケット右上のセルに印刷枚数分連番数字をいれたいのです。こちらで検索をして連番を入れるような記事を見つけたのですが、上下に連番をする方法をおしえてください。たとえば　Ｈ２に００１、Ｈ２０に００２、５０枚印刷すると１００番まで連番で印刷されるようには出来るのでしょうか？エクセルは２００３です。よろしくお願いします。

No.1 回答者： osu_neko09 回答日時： 2011/03/03 21:26

Ｈ２に００１、Ｈ２０に００２という初期値を設定しておいて、それぞれ２づつ増加するようには出来ないのでしょうか？

毎回１づつ加算しているなら２づつ加算してやればいいですし、
「現在印刷した枚数」が取得できるなら
　　「現在印刷した枚数」+「現在印刷した枚数」+1
　　「現在印刷した枚数」+「現在印刷した枚数」+2
をそれぞれ設定してやればすむと思うのですが。

この回答へのお礼

ありがとうございました。マクロをしっかり書いてくださった方がございましたので、それを転用させていただきました。

お礼日時：2011/03/05 19:42

No.2 ベストアンサー 回答者： mar00 回答日時： 2011/03/03 22:03

1を001のように表示したいのであればH2、H20にあらかじめ

書式のユーザー定義で000などのように書式を設定してください。

Sub Macro1()
A = InputBox("開始番号を入力して下さい。")
B = InputBox("終了番号を入力して下さい。")
For INP = A To B Step 2
If INP = B Then
Exit For
Else
Range("H2") = INP
Range("H20") = INP + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next INP
End Sub

この回答へのお礼

ありがとうございました。お礼が遅くなり大変失礼いたしました。
子供会の親子イベントでおやつとおにぎりの無料チケット作りだったのですが述べ人数を把握したいと思い、デザインや、画像、連番印刷と、あれこれ検索をしていました。
これですっきりいたしました。とても丁寧に書いてくださったので、大変助かりました。

お礼日時：2011/03/05 19:40

No.3 回答者： imogasi 回答日時： 2011/03/03 22:31

ヘッダーやフッターのお世話になれないことを要求しているから、連番を入れるセルを印刷１ページの上下２箇所適当な位置を決めて１枚印刷したら２増やす（値はi　と　i+1）しか無いでしょう。

その場合A4で１回あて２ページにわたる設計にしてはだめです。
上部ページセルi
下部ページセル　i+1
Range(・・・).PrintOut
i=i+2
のくり返し。

この回答へのお礼

ありがとうございます。書き忘れておりましたが、マクロ初心者で、部分的なご指摘、ご指導で少々頭を悩ませておりました。

お礼日時：2011/03/05 19:41