Excel VBA質問箱 IV

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

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


8331 / 76732 ←次へ | 前へ→

【73976】日付を入れ替えて印刷する方法
質問  かず  - 13/3/30(土) 0:49 -

引用なし
パスワード
   初めまして。エクセル2010を使用しています。
VBA初心者につきご教示いただければと思います。

ある様式を一月分、日別に一枚づつ印刷します。
M列の行6から行36まで、一月の1日から31日までの日付データがあり、上から順に、G3に日付を貼り付けて、印刷していきます。
M列の日付は、あらかじめ関数で、土日祝祭日・振替休日は空白になるようにしています。従って、表示された日付だけが印刷対象の日付となります。

そこで、上記内容のモジュールを作成したところ、無反応でした。
どのように修正したらよいのかアドバイスをいただけないでしょいか。
よろしくお願いします。

なお、以下の内容はスマフォで入力していますので多少の間違いがあるかもしれません。

こんな内容でとても恥ずかしいですが、よろしくお願いします。

Dim cnt As Long

For cnt =1 to 31 Step 1
  If Cells(cnt,13).Value="" Then Exit For
  Range("G3")=Cells(cnt,13)
  ActiveWindow.SelectedSheets.PrintOut Copies:=1,Collate:=True,_IgnorePrintAreas:=False
Next cnt

264 hits

【73976】日付を入れ替えて印刷する方法 かず 13/3/30(土) 0:49 質問
【73978】Re:日付を入れ替えて印刷する方法 UO3 13/3/30(土) 6:35 発言
【73985】Re:日付を入れ替えて印刷する方法 かず 13/4/1(月) 9:22 質問
【73986】Re:日付を入れ替えて印刷する方法 UO3 13/4/1(月) 11:45 発言
【73987】Re:日付を入れ替えて印刷する方法 かず 13/4/1(月) 13:34 発言
【73988】Re:日付を入れ替えて印刷する方法 UO3 13/4/1(月) 14:09 発言
【73989】Re:日付を入れ替えて印刷する方法 かず 13/4/1(月) 14:48 発言
【73990】Re:日付を入れ替えて印刷する方法 UO3 13/4/1(月) 16:15 発言
【73991】Re:日付を入れ替えて印刷する方法 かず 13/4/1(月) 17:05 発言
【73993】Re:日付を入れ替えて印刷する方法 UO3 13/4/2(火) 15:01 発言
【73997】Re:日付を入れ替えて印刷する方法 かず 13/4/3(水) 2:07 お礼

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