[[20200124165707]]　『日付の連続印刷について』（いるか）　ページの最後に飛ぶ

『日付の連続印刷について』（いるか）

例えばA1セルに〇〇年●月▲日■曜日と入力し、A1セルの年、月、日、曜日から1年分または終了日時を指定して連続印刷することはできるでしょうか？A1セル以外は全て同じ内容なので年月日曜日のみを連続印刷したいと考えています。
どなたかご教授いただけると幸いです。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 こんなことでしょうか？

 Sub test()
     Dim d As Date
     Dim k As Long

     Range("A1").NumberFormatLocal = "yyyy""年""m""月""d""日""aaa""曜日"""

     d = Range("A1").Value
     For k = d To d + 365 Step 7
         Range("A1").Value = k
         'ActiveSheet.PrintOut
         Debug.Print Range("A1").Text    ' test用
     Next
 End Sub
（γ） 2020/01/24(金) 18:58

Y様

ご回答ありがとうございます！
マクロはほとんど使用したことがないのですが、明日試してみます！
（いるか） 2020/01/24(金) 19:22

この場合、仮にsheet1に2020年4月1日と入力すると、2021年3月31日分まで自動で印刷されるのでしょうか？
この通りに入力してみたところ、1枚のみの印刷になってしまい…
（いるか） 2020/01/25(土) 11:36

ああそうでしたか。
こちらの独断が不首尾に終わったようですね。
プリント命令をコメントにしておいてよかったですねえ。

マクロは使ったことがないということなら、
手作業でどのようにするお積もりなのか、
説明してもらったほうがよいかもしれません。

以下は、こちらの勝手な想像ですので、
無理に回答コメントを頂く必要もないかもしれません。

「A1セルに日曜日だけを順次一年間分入れていくことで、
印刷を53回実行すること」
と解釈したのですが、違ったのですね。

同時に、A1セルには日付型のデータを想定していました。
例えば、2020/1/26 を入力して、
表示はマクロ内で自動で、2020年1月26日日曜日とする積もりでした。

また、A1セルの初期値として、最初の日曜日を考えていました。

（γ） 2020/01/25(土) 11:59

こちらも説明不足で申し訳ありません。
今回は1年、365日分を毎日の日付、曜日で印刷できればと思っていました。
今回、試してみたのはエクセルの「表示」→マクロ→マクロの記録→表示から編集で前回の回答で教えていただいたコード？を入力しました。
またA1セルに関しては日付型での入力で問題ありません。
日付は今のところ初期値は2020年4月1日(水)で考えております。

（いるか） 2020/01/25(土) 12:13

読み違えていたようですね。
シートの印刷範囲外のところに開始日と終了日をもっておいて、
For k = Range("AA1").Value To Range("AA2").Value
などとすればよいのかもしれませんね。

どうやら不適格のようなので、別の方の回答をお待ちください。

（γ） 2020/01/25(土) 12:36

こんにちは。

＞またA1セルに関しては日付型での入力で問題ありません。
γさんのコードは、A1セルにあらかじめ日付型のデータが入っている前提です。
問題ありませんと言うことばに少し違和感があります。

しかし、１枚とはいえ印刷が出るのが分からない。。。
もしかして、手作業で印刷操作をしたら365日分の印刷が出ると思っておられますか？

（佳） 2020/01/25(土) 13:13

コメント返信：

[ 一覧(最新更新順) ]

[[20200124165707]] 『日付の連続印刷について』（いるか） ページの最後に飛ぶ

[[20200124165707]]　『日付の連続印刷について』（いるか）　ページの最後に飛ぶ