|
▼Asakiさん、IROCさん、BOTTAさん、こんにちは。
もうしわけありません。説明が足りなかったようです。
セル3に月の初日を文字列で入力するだけで、全ての日にち分が
印刷されるようにしたかったのです。BOTTAさんの回答内容でやってみたら
うまくできました。わがままついでに、もうひとつお願いがあります。
例えば、4月1日(月)と入力した場合、一番最後に、5月1日分が
入ります。これを入らないようにするにはどうしたら良いのでしょうか?
>みなさん、こんにちは。次のコードについて質問があります。
>これは、あるデータシートがあります。セル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
|
|