質問: vbaにて質問です If Range("D4").Value >= 1 Then Worksheets("ケース配り用シール").Range("A4:B4").PrintOut Copies:=Range("C4").Value, Collate:=False この作業を4の部分を1ずつ増やして400回程度繰り返したいのですが 式を教えてはいただけないでしょうか?
回答: こんにちは。 dim i for i=4 to 400 '程度? If Range("D" & i).Value >= 1 Then Worksheets("ケース配り用シール").Range("A" & i & ":B" & i).PrintOut Copies:=Range("C" & i).Value, Collate:=False みたいになります。