指定した回数複数のセルの値を貼付けて印刷するマクロ

質問

以前　http://okwave.jp/qa/q7606899.html　にて
ご教授いただいたマクロについてなのですが、
複数のセルの値を、別のシートに貼り付けて印刷する事になり、
皆様に再度ご教授いただきたくよろしくお願い致します。

〇今回の質問

別のシート「印刷用シート」の左側の表に、
Sheet1のＡ２：Ｂ２　をコピーしたものを貼り付けて、
右側の表にSheet1のＤ２：Ｅ２　をコピーしたものを貼り付けて印刷。
これを３列目、４列目と繰り返して印刷したい（添付ファイルもご参照下さい）

回答No.3

keithin · ベストアンサー

まずうっかりでしたが、Ａ，Ｂ列とＤ，Ｅ列にそれぞれ転記したいのでしたね。失礼しました。
既にあなたも出来ていたようですが、

sub macro1()
　dim s as long, e as long
　dim i as long

　if application.count(range("D2:D3"))=0 then exit sub
　s = range("D2").value
　e = range("D3").value

　if s = 0 then s = e
　if e = 0 then e = s

　for i = s to e
　　worksheets("印刷対象シート")range("A12").value = cells(i, "A").value
　　worksheets("印刷対象シート")range("B12").value = cells(i, "B").value
　　worksheets("印刷対象シート")range("D12").value = cells(i, "D").value
　　worksheets("印刷対象シート")range("E12").value = cells(i, "E").value
　　worksheets("印刷対象シート").printout
　next i
end sub

といった具合です。「他のシートに転記する」「他のシートを印刷する」の書き振りは先の回答と何も変わりませんので、適宜応用してください。

で。
追加のご質問ですが
＞これをＡ２と、Ｄ２セルのみコピー、貼り付けする場合は、どのようにしたら良いのでしょうか。
＞（Ａ２を印刷用シートＡ１２へ）
＞（Ｄ２を印刷用シートＤ１２へ）

なんだかいつの間にか「３行目、４行目も…」の部分がすっかりどっかに行っちゃいましたけど？
それが今回ヤリタイ事なのでしたら、前述の「他のシートに転記する」「他のシートを印刷する」の一番単純化しただけの、ただの応用です。

sub macro2()
　worksheets("印刷対象シート")range("A12").value = range("A2").value
　worksheets("印刷対象シート")range("D12").value = range("D2").value
　worksheets("印刷対象シート").printout
end sub

お礼

おかげさまで想定していた動作ができるようになりました。
丁寧に回答いただき本当にありがとうございました。

回答No.2

keithin

＞〇今回の質問

　：
＞これを３列目、４列目と繰り返して印刷したい

今回は？Ｄ２とＤ３は使わずに、ぜんぶ印刷しちゃいたいのですか？
そうじゃなくて単に説明を手抜きしたと判断します。

Ｄ２とＤ３には、２から４のように行番号を入れたり入れなかったりする事にします
＃ぜんぶ印刷したいなら、Ｄ２とＤ３に最初と最後の数字を入れっぱなしにしとけば全部出ます。

sub macro1()
　dim s as long, e as long
　dim i as long

　if application.count(range("D2:D3"))=0 then exit sub
　s = range("D2").value
　e = range("D3").value

　if s = 0 then s = e
　if e = 0 then e = s

　for i = s to e
　　worksheets("印刷対象シート")range("A10:B10").value = cells(i, "A").resize(1, 2).value
　　worksheets("印刷対象シート").printout
　next i
end sub

お礼

毎度回答ありがとうございます。
初歩的な質問にお付き合いいただき申し訳ありません。

補足

ご回答ありがとうございます。

Sub macro1()
Dim s As Long, e As Long
Dim i As Long

If Application.Count(Range("G2:G3")) = 0 Then Exit Sub
s = Range("G2").Value
e = Range("G3").Value

If s = 0 Then s = e
If e = 0 Then e = s

For i = s To e
Worksheets("印刷用シート").Range("A12").Value = Cells(i, "A").Value
Worksheets("印刷用シート").Range("D12").Value = Cells(i, "D").Value
Worksheets("印刷用シート").PrintOut
Next i
End Sub

ここまででほぼ想定通りの動作ができたのですが、
これをＡ２と、Ｄ２セルのみコピー、貼り付けする場合は、
どのようにしたら良いのでしょうか。

（Ａ２を印刷用シートＡ１２へ）
（Ｄ２を印刷用シートＤ１２へ）

引き続きご教授いただけると幸いです。

回答No.1

noname#220943

ご自分で組んでみたマクロと、それでどううまくいかないのかも書いてもらえますか？