Excel VBA質問箱 IV

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

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


67237 / 76738 ←次へ | 前へ→

【14060】Re:日付を設定して印刷する
回答  BOTTA  - 04/5/19(水) 15:14 -

引用なし
パスワード
   pigさん、こんにちは。

こんな感じでいかが?

Sub aaa()
Dim fstDate As Date, lstDate As Date, tmpDate As Date
  fstDate = Worksheets("Sheet1").Range("N3").Value
  lstDate = DateValue(Year(fstDate) & "/" & Month(fstDate) + 1 & "/1") - 1
  For tmpDate = fstDate To lstDate
    With Worksheets("Sheet1")
      .Range("B2").Value = tmpDate
      .PrintOut Copies:=1, Collate:=True
    End With
  Next
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 お礼

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