|
みなさん、こんにちは。次のコードについて質問があります。
これは、あるデータシートがあります。セルN3〜33まで日付が入力されており
(例えば、5月1日(土)〜5月31日(月))、この最初の日付を、セルB2へ貼り付けて印刷し、次に2番目の日付を印刷する…というような、作業内容なのですが、これを
セルN3に月の最初の日付を入力するだけで、全日分印刷できるようなコードを考えていますが、なかなかできません。以下のコードにどのように加えれば良いのか、教えていただけますでしょうか?
Sub test()
Dim RowNo As Long
Dim ColNo As Long
Application.ScreenUpdating = False
With Worksheets("Sheet1")
RowNo = 3
ColNo = 3
For RowNo = 3 To 33
If Cells(RowNo, ColNo) = "" Then
Exit For
End If
Cells(RowNo, ColNo).Copy
Range("B2").PasteSpecial
CutCopyMode = False
.PrintOut Copies:=1, Collate:=True
Next
End With
Application.ScreenUpdating = True
End Sub
|
|