Excel VBA質問箱 IV

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

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


8320 / 76732 ←次へ | 前へ→

【73987】Re:日付を入れ替えて印刷する方法
発言  かず  - 13/4/1(月) 13:34 -

引用なし
パスワード
   U03さん

こんにちは。
またもや説明が足りす申し訳ありませんでした。

まず、G3を4月1日にした場合、印刷されるのは、4月1日、4月2日、4月4日、4月8日、4月15日、4月23日、5月2日、5月13日、5月27日、6月11日、6月27日、7月16日、8月5日、8月26日、9月17日、10月10日、11月5日、12月2日、12月30日分で計19枚です。

M6〜M36には順番に4月1日、2、3、4、5、(空白)、(空白)、8、9、10、11、12、(空白)、(空白)、15、16、17、18、19、(空白)、(空白)、22、23、24、25、26、(空白)、(空白)、(空白)、30日、(空白)が表示されており、空白は関数で空白となっています。

次にモジュールです。

Sub test ()

Dim Cnt As Long

For Cnt =6 To 36 Step 1

If Cells(cnt, 13).Value <> "" Then  Range("G3") = Cells(cnt, 13) ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End If

Next Cnt

End Sub

以上です。

土曜日に書き込みしたはずの内容としては、パソコンが月曜日にならないと使えませんので、月曜日に書き込みさせていただきます、と書かせていただきましたので、今日の書き込みとなりました。

何度も申し訳ありませんが、よろしくお願いします。

228 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 お礼

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