エクセルで通し番号を打ちたいんです

質問

イベントで使う整理券を作るのですが、通し番号を表示できるようにエクセルで作るにはどうしたらいいでしょうか？整理券は A4の紙に８枚分印刷して、後からカットします。番号は１～３２０位ですが、わざわざチケット３２０枚分コピペして番号を手打ちするのは面倒なので、８枚分（A４・１枚）エクセルで作って、３２０枚分（A4・４０枚分）を印刷できたらいいなぁ、と思います。尚且つ通し番号を打つなんてわがままなことできるんでしょうか？素人なのでわかりやすく教えていただけたら幸いです。

回答No.2

imogasi · ベストアンサー

多分ＶＢＡを使わないのでしょう。
であれば１回１ページ８チケット印刷するとして、320÷8＝40回印刷操作は覚悟してますね。
であれば
Ａ１，Ｅ１
Ａ１３，Ｅ１３
Ａ２５，Ｅ２５
Ａ３７，Ｅ３７
が番号を入れるセルとします。
どこかのセル（例Ｓ１）に1を入れます。
上記８セルに対応してそれぞれ
=($S$1-1)*8+1　=($S$1-1)*8+2
=($S$1-1)*8+3 =($S$1-1)*8+4
=($S$1-1)*8+5 =($S$1-1)*8+6
=($S$1-1)*8+7 =($S$1-1)*8+8
と入れます。
印刷するときＳ１セルに１ページ目は１、２ページ目は２
、３ページ目は３と印刷直前に入力し、印刷してください（１，２、・・のメモをとって操作すること）。
ＶＢＡでやれば操作はボタン１つになりますが。回りにＶＢＡを解説した本があることと興味があれば、１ページ内で、通し番号を表示するセルを書き上げてくだされば、補足回答しても良いです。

お礼

この方法で作ることができました。丁寧に教えていただきありがとうございました。

回答No.3

terakura

Ａ４の用紙に８枚のチケットということですから、通常のセル幅と高さですと、１枚のチケットが横Ｊ列まで、縦が７行目位の大きさになるでしょうか。
とりあえず、１枚目のチケットを作成してください。最初の番号１も入力しておいてくださいね。
２枚目以降を作ります。１枚目のチケットをコピペします。１枚目のチケット範囲がＡ１～Ｊ７だとしたら、Ａ８に貼り付けてください。
１枚目のチケットの番号が、Ｊ１に入力されているとして、２枚目の番号が入力されているセル(今回はＪ８）に次のような数式を入力してください。
=J1+1　です。２枚目のチケット番号が２に変わったと思います。
あとは簡単です。２枚目のチケットを範囲指定します。範囲指定した右下にある黒い四角■を2240行(１枚のチケットが７行だったとすると)までドラッグします。
ここまでで、３２０枚のチケットができたと思います。

印刷する時は、３２０枚のチケットの範囲指定をしてから、「印刷プレビュー」でその画面のツールバーから「改ページプレビュー」をクリックします。
画面イメージが変わって、印刷範囲が青の太線で囲まれ、ページの境目が点線で示されます。４０枚あるので多少面倒ですが、点線を任意の位置にドラッグしてうまく印刷できるように調整してください。

お礼

調整をするのが下手で、教えていただいた方法では作れませんでしたが、やり方はよくわかりました。どうもありがとうございました。

回答No.1

mammma

Ａ列の１に「１」２に「５」　Ｂ列の１に「２」２に「６」　Ｃ列の１に「３」２に「７」　Ｄ列の１に「４」２に「８」を打ち込ます。
打ち込んだ数字すべてをマウスで選択したあと、Ｄ列２の右下に小さく出た黒い四角を押したまま下へ伸ばしていくと、いくらでも続きの数字が出てきます。
あとは、２行ごとに改ページをして、文字の大きさも適度に大きくして、Ａ４でバランスよく印刷できるようにプレビューを見ながら設定すれば出来るはずです。

お礼

すぐに回答をいただきありがとうございました。あいにく私の技術不足であまり上手に調整ができずに断念しましたが、大変参考になりました。