|
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
以上です。
土曜日に書き込みしたはずの内容としては、パソコンが月曜日にならないと使えませんので、月曜日に書き込みさせていただきます、と書かせていただきましたので、今日の書き込みとなりました。
何度も申し訳ありませんが、よろしくお願いします。
|
|