EXEL 毎ページ 数値を増やして印刷したい

質問

EXEL2003を使っています。

今度開くイベントの入場券にシリアルナンバーを
入れたいと思っています。

そこで５０枚印刷すると、１から５０までの数字が印刷される、という形にしたいのですが、どうやったら実現できるでしょうか。

ログでも探してみたつもりなのですが、分からなかったので、分かる方がおられたらご教授お願いいたします。

回答No.6

imogasi · ベストアンサー

VBAを使えばわけなく出来ます。
A4用紙横を２つに分割して、同様のチケットの文面を左右に一対つくります。右側は左側のコピーで作れば良いです。
そして、例えば左半分A－J列の番号はC3、K列は切り取り線、L-V列の番号はN3とします。
Sub test01()
N = 1
For i = 1 To 200
Cells(3, "C") = N
Cells(3, "N") = N + 200
Range("A1:v30").PrintOut
N = N + 1
Next i
End Sub
を実行すれば、２００枚自動印刷されます。
あと印刷に関係する
（１）チケット文言
（２）レイアウト（どの行のどの列に文言を入れるか）
（３）フォント・色・フォントサイズ・罫線
（４）列幅・行高
（５）印刷のページ設定（例えばA4横の設定等）は全て、手動操作で、試行錯誤して、旨くA4横に収まるように調整します。
（６）その結果の最下行でRange("A1:v30").PrintOut
のVの３０の数字を置換えてください。
A-V列も小生の勝手な予想で、チケット２枚分の最右列でVを置換えてください。
十分２枚分の印刷レイアウトに自信が持てた後
For i = 1 To 200
をFor i = 1 To 3ぐらいにして試し印刷し、OKの後に
上記マクロで数十枚ずつ印刷します（大量失敗を防ぐため。）
番号の途中スタートはN=52
とかすれば５２番から番号を印刷します。
枚数はFor i = 1 To ○の○のところを変えます。

お礼

ありがとうございます！
これでできました。
助かりました！

回答No.5

noname#248169

＃４です。

400シートあって、全シートのA1に連続番号を‥‥なら簡単に出来ます。
実際、1000シートに連続番号振った事もあるので‥‥
でも、同じページに連続番号‥‥う～ん。ゴメンなさい。
私の知る限りでは分かりません。

お礼

いえいえ御検討下さっただけでも感謝です。
ありがとうございます。

回答No.4

noname#248169

要するに「連続データ」を入れる事になりますね。
　回答をする前に、聞きたいことは２つ有ります。
　１～５０枚という事ですが、それは、「１つのシートで５０ページ」なのか、「１～５０シート」あるのか、どちらなのでしょうか？それによって、使う機能は異なってきます。
　あと、もし１シートに５０ページだとしたら、シリアルナンバーを入れる箇所には、規則性があるのでしょうか？「ナンバーを入れるのはＡ列だけ」とか「ページの『5行目』に入れる」とか、それによっても使う機能が変わってきてしまうんですよ。

お礼

ありがとうございます。
すみません、実際は５０枚よりも多くて４００枚作りたいんです。

Ａ４一枚を左右二枚に切断して入場券を作るので、Ａ４一枚に二箇所、数字を入れたいんです。

今回は４００番までナンバを打ちたいので、左に１から、右に２０１から数字を挿入開始させて、２００枚プリントアウトさせたら４００番まで出来るのではないだろうか、なんて素人考えをしているのですが。。。

番号を打つ場所は、Ａ４半分の大きさに切断した後、ほぼ同じになるよう、右中央よりやや下のあたりに入れようと思っています。

うまく説明できているでしょうか？

回答No.3

grumpy_the_dwarf

Excelを使う必然性があるのか疑問ですね。
チケットなんかの用紙を売ってるコクヨやAOneのサイトに行くと、
用紙にあわせたレイアウトを作るソフトを無料で配布してますが、
そういうので連番を設定したのではダメですか？

お礼

そうですよね、私も不慣れなExelは使いたくないのですが、もらったデータがExel形式なのや、人のPCで作っているもので、別のソフトなどをインストールしたり使ったりという方法をできれば取りたくないので。。。でもそちらも検討してみます。ありがとうございます。

回答No.2

koma1000nin

No.#1のやり方だと、１頁に１枚の入場券しか配分できません。これだと紙が無駄です。

A4用紙１ページのサイズに入場券を12枚印刷できると仮定して、それぞれの入場券にシリアル番号欄を作成します。

最初のシリアル番号「0001」が一枚目の入場券A1セルに置かれているとして、二枚目入場券のシリアル番号欄には次の式を設定しておけばいいでしょう。
　　　=A1+1
これを次々と複写していけば印刷する前にシリアル番号欄が確認できますよ。

お礼

早速ありがとうございます。

教えていただいた方法で一枚から複数作ることはできますね。

一枚の紙A4から左右二枚の入場券を作るのですが、それが数百枚あるんです。。。
ですので二枚目の印刷には、数値を１増やしたものを挿入する、という方法をとりたいんです。

繰り返し申し訳ありませんが、もし方法をご存知でしたら教えていただけると幸いです。

回答No.1

omochi

それはページ数を入れるということでしょうか？
ファイル→ページ設定→ヘッダー/フッターで、
ヘッダーまたはフッターをクリックして
その中で、ページ番号/総ページ
と、設定します。
説明下手っぴでごめんなさい。

お礼

ありがとうございます。

できれば紙の上（ヘッダ）や下（フッタ）の方ではなく、中央あたりに数字をいれたいので、ページ数の挿入だとできないんです。。。

舌足らずで申し訳ないです。