Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59088 / 76738

←次へ　｜　前へ→


	【22363】Re:１ページに複数分印刷

koshimizu

- 05/2/17(木) 8:47 -


	引用なし

	パスワード

IROC さん　おはようございます。
アドバイスいただきありがとうございます。
ためしましたが、うまく出来ません。

>>For I = 開始No + 1 To 終了No + 1
>ループ間隔を　Step 4　にし、
>
>
>>　　 Range("b5") = Sheets("Sheet1").Range("B" & I)
>>　　 Range("b2") = Sheets("Sheet1").Range("c" & I)
>>　　 Range("b3") = Sheets("Sheet1").Range("d" & I)　　　
>ここをシートのレイアウトに応じて変更して下さい。

For i = 開始No + 1 To 終了No + 1
　　For n = 開始No + 1 To 終了No + 1 Step 4
　　 Range("b5") = Sheets("Sheet1").Range("b" & n)
　　 Range("b2") = Sheets("Sheet1").Range("c" & n)
　　Range("b3") = Sheets("Sheet1").Range("d" & n)
Next
　For b = 2 To 3 Step 1
　　Range("i5") = Sheets("Sheet1").Range("b" & b)
　　 Range("i2") = Sheets("Sheet1").Range("c" & b)
　　 Range("i3") = Sheets("Sheet1").Range("d" & b)
Next
For c = 3 To 4 Step 1
　　Range("b13") = Sheets("Sheet1").Range("b" & c)
　　 Range("b10") = Sheets("Sheet1").Range("c" & c)
　　 Range("b11") = Sheets("Sheet1").Range("d" & c)
　Next
　For d = 4 To 5 Step 1
　　Range("i13") = Sheets("Sheet1").Range("b" & d)
　　 Range("i10") = Sheets("Sheet1").Range("c" & d)
　　 Range("i11") = Sheets("Sheet1").Range("d" & d)
Next
Next

For　Nextの使用方法とネスト？？が理解できないためだと思います。
宜しくお願いします。

0 hits

▼

【22323】１ページに複数分印刷 koshimizu 05/2/16(水) 11:18