Excel VBA質問箱 IV

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

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


67234 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   みなさん、こんにちは。次のコードについて質問があります。
これは、あるデータシートがあります。セル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

2 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 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free