エクセルVBAについて

質問

はじめてのVBAで本を読んでも使い方がわからないので教えてほしいのですが
シート１にこのような表を作成して
　　A　　　　B　　　
１山田　　　５００
２伊藤　２００００
３佐藤　　　　５０
・
・
・
シート２に
　　　A　　　B　　　　C
１　　　　請求書
２
３　山田
４　５００円

というような請求書を印刷していくVBAを作りたいのですが人数については１０人から３００人とその時々で変化するのでデータがないときは
印刷もそこで終わりという風にしたいのですが、、、
よろしくお願いします。
エクセル２００３　XPです。

回答No.1

kimino_naha · ベストアンサー

Sub PrOutTest ()
Dim Ir as Long
with worksheets("シート２")
for Ir = 1 to worksheets("シート１").cells(65000, 1).end(xlup).row
.cells(3, 1).Value = worksheets("シート１").cells(Ir, 1)
.cells(4, 1).Value = worksheets("シート１").cells(Ir, 2)
.PrintOut
next Ir
end with
end sub

4行目後半のworksheets("シート１").cells(65000, 1).end(xlup).row
でシート１の入力されている最終行を求めています。
for to next で 1行目から最終行まで同じ処理を繰り返しています。
最終行の処理が終わるとマクロを終了します。

手元にエクセルがないので確認していませんが、コピーしていただければたぶん動くと思います。
シート１が"sheet1"であれば訂正してください。

お礼

ありがとうございます
助かりました参考にさせていただきます。

回答No.3

kimino_naha

No1 です。
セルA4に"円"がついてました。6行目を

.cells(4, 1).Value = worksheets("シート１").cells(Ir, 2).Value & "円"

と訂正いたします。

回答No.2

uro_tan

印刷するループの中で
if cells(i,1)="" then exit sub
のように終了条件を入れてあげればデータがないところで終了させることができます。