シリアルナンバーを付けて印刷

質問

エクセルで作ったフォームの１つのセルにシリアルナンバーを入れます。
そのシリアルナンバーを順に変化させて（例えば０００１の次は０００２、０００３・・・といったように）、そのフォームを印刷したいのですが、出来るでしょうか？

回答No.2

imogasi · ベストアンサー

＃１のものです。お礼部分に関して質問があります。
１枚目に印刷するものと２枚目に印刷するもの、３枚目・・に印刷するもので、番号以外の「変わる項目（部分）」はどう言うものでしょうか。
通常はどこかが変わるはずでしょう。その項目を人手の入力に頼るなら、自動的に放っておいても「全部が印刷されるようにすることは」出来ないのですが。
番号以外全く変わらないのなら,
番号は先頭の０つきで４桁として、１００までで
Private Sub CommandButton1_Click()
For i=1 to 100
n=trim(str(i))
n = "'" & Mid("0000", 1, 4 - Len(n)) & n
Worksheets("sheet1").Cells(1, 1) = n
Range("a1:j20").PrintOut
Next i
End Sub

お礼

ありがとうございます。
シリアルナンバー以外は変わりません。
例えばセルＡ１には製品番号，Ｂ１にはシリアルナンバー、Ｃ１には会社名という風にしておきます。
で別のセルやシートに０００１から０１００とかいう風指定した後、ボタンを押せば、１枚目は製品番号、会社名と０００１、２枚目は製品番号、会社名と０００２としたいのです。
製品番号と会社名はずっと固定です。
今回書き込みして頂いたものは、ＶＢＡに番号を書いてあるので、シリアルが変わる時（０１５０～０２００）はＶＢＡのエディタで書き換えないといけないのですよね。

回答No.1

imogasi

ＶＢＡになりますが
シリアルナンバーをいれるセルをＡ１と決めます。
表を作ります（操作とか入力＋ＶＢＡなどによって）。コマンドボタンをクリックすると１ページ印刷するようにします。本件ではフォームとはエクセルワークシートの一部で出来ているものとしています。
Private Sub CommandButton1_Click()
Worksheets("sheet1").Cells(1, 1) = Worksheets _("sheet1").Cells(1, 1) + 1
Range("a1:j20").PrintOut
End Sub
後はＰａｇｅＳｅｔｕｐなどがＰｒｉｎｔＯｕｔの前に
入りますが、骨子はこんなところだと思います。

お礼

早速の回答、ありがとうございます。
肝心な所を書いてなかったのですが、そのシリアルナンバー、例えば０００１から０１００までの１００個と指定して、コマンドボタンを１回クリックすると全部が印刷されるようにすることは出来ますか？