Excel VBA質問箱 IV

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

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


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

59078 / 76732

←次へ　｜　前へ→


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

IROC - 05/2/17(木) 9:19 -


	引用なし

	パスワード

For i = 1 To 100 Step 4
　 Range("B3").Value = Sheets("Sheet1").Range("B" & i)
　 Range("B1").Value = Sheets("Sheet1").Range("C" & i)
　Range("B2").Value = Sheets("Sheet1").Range("D" & i)

　 Range("I3").Value = Sheets("Sheet1").Range("B" & i+1)
　 Range("I1").Value = Sheets("Sheet1").Range("C" & i+1)
　Range("I2").Value = Sheets("Sheet1").Range("D" & i+1)

　 Range("B8").Value = Sheets("Sheet1").Range("B" & i+2)
　 Range("B6").Value = Sheets("Sheet1").Range("C" & i+2)
　Range("B7").Value = Sheets("Sheet1").Range("D" & i+2)
　　　：
　　　：
　　　：

Next i

0 hits

▼

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