プロが教える店舗&オフィスのセキュリティ対策術

シート1にデータがあり、シート2にvlookup関数を使用して、
番号に対応する登録番号・所属・氏名を表示させるようにしました。

質問なのですが、
A2に番号が1~3まであり、空白(空白行)になるまで
シート2に登録番号・所属・氏名を表示させ
番号ごとに印刷をしたいと思っています。

シート2に番号1の内容(登録番号・所属・氏名)を表示させ印刷し、
印刷後、シート2に番号2の内容を表示させシート2印刷し、
印刷後、シート2に番号3の内容を表示させシート2印刷し、
番号行が空白になったらこの処理を終了するというマクロを作りたいのですが、
どのようにしたらよいですか。
初心者でよく分からないのですが。
皆さん教えて下さい。


【シート1】
番号登録番号 氏 名 所属学科職名
100001田中 健太機械工学科教授
200201音   光 機械工学科講師
301525鈴木 洋 機械工学科助手

【シート2】

番号

登録番号:
所属:
氏名:

A 回答 (1件)

Dim r As Integer


r = 1
Do
Sheet2.PrintOut Copies 1
r = r + 1
Loop Until Cells(r, 1) = ""


これを応用してみて下さい。
    • good
    • 2
この回答へのお礼

早急な解答有難うございました。
マクロを参考にさせて頂きました。
下記のように書き、うまく実行出来ました。
有難うございました。
Sub test()
i = 1
Do While i < 3
Worksheets("Sheet1").Range("b1").Value = i
i = i + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Loop
End Sub

お礼日時:2007/04/25 16:18

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています