Excel VBA質問箱 IV

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

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


67234 / 76738 ←次へ | 前へ→

【14063】Re:日付を設定して印刷する
質問  pig  - 04/5/19(水) 17:23 -

引用なし
パスワード
   ▼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

0 hits

【14057】日付を設定して印刷する pig 04/5/19(水) 14:19 質問
【14058】Re:日付を設定して印刷する IROC 04/5/19(水) 14:41 回答
【14059】Re:日付を設定して印刷する Asaki 04/5/19(水) 14:46 回答
【14060】Re:日付を設定して印刷する BOTTA 04/5/19(水) 15:14 回答
【31186】Re:日付を設定して印刷する AO 05/11/14(月) 12:41 質問
【31206】Re:日付を設定して印刷する こたつねこ 05/11/14(月) 16:15 回答
【31207】Re:日付を設定して印刷する ichinose 05/11/14(月) 16:19 発言
【31210】Re:日付を設定して印刷する AO 05/11/14(月) 16:45 お礼
【31208】Re:日付を設定して印刷する Jaka 05/11/14(月) 16:20 回答
【14063】Re:日付を設定して印刷する pig 04/5/19(水) 17:23 質問
【14067】Re:日付を設定して印刷する BOTTA 04/5/19(水) 18:20 回答
【14068】Re:日付を設定して印刷する pig 04/5/19(水) 19:37 質問
【14069】Re:日付を設定して印刷する pig 04/5/19(水) 21:15 お礼

67234 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free