エクセルで印刷時に番号が変わる方法。

質問

タイトルで少しわかりにくいかもしれませんが、内容としてはエクセルで特定のセルに数字を入力し、印刷すると自動的に数字が変わる方法があるか探しています。

要は特定のセルに例えば「１」と入力してあるとして、１０枚印刷するとページ番号みたいに「１～１０」の数字がそれぞれについていると言うことなんですが、

自分で調べたとき、下のリンクを見つけました。これでいけるのでしょうか？何度か試して上手くいかず、他の方法を探してみたのですが中々見つからず…。もしわかる方がいれば教えてください。

http://www2.odn.ne.jp/excel/waza/print.html#SEC12

回答No.1

keithin

１０枚印刷するってのは別に１から１０ページを印刷してるんじゃなく、単に同じ１ページを１０枚繰り返して印刷するだけです。ご相談のような事は全然できません。

そもそもエクセルは、画面にあるモノしか印刷できません。つまり１から１０まで印刷したければ、まず１と記入されている状態を実際に作って１枚印刷し、次は２と書かれてるのを実際に作ってまた１枚印刷するしかない、それを１０まで繰り返さなきゃ出来ないってことです。

以上のエクセルの基本が理解できたら、次はご相談でヤリタイ事を実際に実現するにはどうしたらいいかというお話です。

１．サルでも出来る基本の方法
１０枚印刷したければ、最初に作った１枚を単純にコピーして、全部で１０個実際に並べます。
通常は行コピーして複製し、あと９個下向けに並べるのが最も確実で簡単な方法です。

最初の１をＡ１セルに記入してあるとして
２枚目の例えばＡ２１セルに２が欲しければ、そこに=A1+1と数式を記入
３枚目以下も数式をコピーして３，４，５…が自動で計算で現れるように丁寧に作成し、印刷して完成です。

２．似たような別の方法
やっぱり実際に１０枚分複製して作成しておきます
ヘッダやフッタにページ番号を記入、ヘッダやフッタの高さなどを調整して、だいたい希望の位置に表示されるようにします
ヘッダやフッタは、本文領域に重なるように高さを調整する事ができます

あとは普通に印刷して完成。

３．手を動かしたら負けだと思ってる場合
最初にお話ししたように、１から１０まで印刷したければ、実際に１から１０まで１つずつ作成して印刷しなきゃなりません。

手順：
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim n as long
　dim i as long
　n = inputbox("HOW MANY COPY?")
　if n = 0 then exit sub

　for i = 1 to n
　　range("A1") = i　’たとえばＡ１セルに
　　activesheet.printout
　next i
　range("A1").clearcontents
end sub

ファイルメニューから終了してエクセルに戻る
ＡＬＴ＋Ｆ８を押してマクロを実行、１０とか入力してＯＫすれば、実際に１から１０まであなたの代わりにマクロが記入して１枚ずつ印刷してくれます。

＃回答を寄せてもらっても返答も出来ない方のご様子ですね。適切に応用して、あとは自力でやっつけてください。