|
こんにちは。
下記のマクロでSheet1からSheet2へ印刷をしていますが1枚1人分
Sheet2の用紙1枚に4人又は6人が表記させるにはどこを変更したら
良いのか教えて下さい。
(Sheet1)
A B C D
No. 氏名 郵便番号 住所
1 ○○ 100-0001 東京
2 ×× 111-0001 埼玉
3 ○× 222-0001 神奈川
4 △△ 333-0001 千葉
5
.
.
(Sheet2)
A B C D .......I J K L
1 100-0001 111-0001
2 東京 埼玉
3 ○○ ××
4
5
6 222-0001 333-0001
7 神奈川 千葉
8 ○× △△
開始No = InputBox("開始Noを入力")
再入力:
終了No = InputBox("終了Noを入力。")
Sheets("Sheet2").Select
If 開始No > 終了No Then
GoTo 再入力
End If
For I = 開始No + 1 To 終了No + 1
Range("b5") = Sheets("Sheet1").Range("B" & I)
Range("b2") = Sheets("Sheet1").Range("c" & I)
Range("b3") = Sheets("Sheet1").Range("d" & I)
ActiveSheet.PrintOut Copies:=1
Next
Sheets("Sheet1").Select
End Sub
|
|