Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8323 / 76735

←次へ　｜　前へ→


	【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

以上です。

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

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

0 hits

▼

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