【エクセル】 連続印刷する際のマクロの記述について。

質問

いつも大変お世話になっております。
エクセル2003のマクロの記述についてご教示のほど
お願いいたします。

シート２にシート１の名簿から住所氏名等を落とし込み出来るように様式を作っています。

このシート３には、以下のＶＢＡが設定してあります。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Sub osieteinsatsu02()
'
Dim start As Long
Dim stp As Long
Dim i As Long

start = Range("a1")
stp = Range("c1")

For i = start To stp
Range("a1") = i

Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("sheet3").Select

Next

End Sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

↑
このシートのＡ１の値（名簿番号）～Ｃ１の値の人のデータをシート２に落とし込み、
シート２に行き様式を一枚印刷する。

このように記述してあると思います。

ところで、様式の中に複数名をまとめたいと思いますので、例えば、Ａ１の値を変えるときに４つ置きに変化させるにはどのように記述すれば良いのでしょうか？

１、６、１１、１６、、、Ｃ１の値までで止まる。
どうぞよろしくお願いします。

回答No.1

takuro-san · ベストアンサー

以下でＯＫなはずです。

For i = start To stp Step 5

以下のヘルプに記述されています。mk:@MSITStore:C:\Program%20Files\Common%20Files\Microsoft%20Shared\VBA\VBA6\1041\VBLR6.CHM::/html/vastmfor.htm

お礼

誠にありがとうございました。
効率が良くなり別の事にも活かせそうです。

回答No.2

imogasi

Sheet1のA2:A13に
氏名１
住所１
年齢１
出身地１
氏名２
住所２
年齢２
出身地２
氏名３
住所３
年齢３
出身地３
Sheet2が印刷シートとして
B2　氏名
B4　住所
B6　年齢
B8　出身地
を印刷するとします
標準モジュールに
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
d = sh1.Range("A65536").End(xlUp).Row
For i = 2 To d Step 4
sh2.Cells(2, "B") = sh1.Cells(i, "A")
sh2.Cells(4, "B") = sh1.Cells(i + 1, "A")
sh2.Cells(6, "B") = sh1.Cells(i + 2, "A")
sh2.Cells(8, "B") = sh1.Cells(i + 3, "A")
sh2.Range("A1:H10").PrintOut
Next i
End Sub
を入れ実行（テスト済み）
For i = 2 To d Step 4
With sh2
.Cells(2, "B") = sh1.Cells(i, "A")
.Cells(4, "B") = sh1.Cells(i + 1, "A")
.Cells(6, "B") = sh1.Cells(i + 2, "A")
.Cells(8, "B") = sh1.Cells(i + 3, "A")
.Range("A1:H10").PrintOut
End With
Next i
も可能。
sh1.Cells(i + 1, "A")のところで
sh1.Cells(i , "A").Offset（1,0）なども使える

お礼

ありがとうございます。大変参考になりました。