印刷時に週間予定表の日付を自動で

質問

お世話になります。Excel2010です。単純な週間予定表です。手書きで使っています。
Sheet１に１枚だけ作り、例えば半年分30枚印刷などしています。画像

このような表に、日付を自動で印刷することはできないでしょうか。
印刷開始ページの最初の日付をどこかに書いておくと日付が表示され、
2枚目を印刷するときには翌週の日付が印刷される、というようなことです。

差し込み印刷など調べてみましたが、順次日付が変わる辺りがわかりませんでした。

日付を自動で表示させる方法はなんとなくわかりましたが、
それだと1年分、Sheet60まであらかじめ作らなければなりませんよね？

１Sheetに60週分つなげて作ることはできそうですが、Ａ４最大に印刷しているので、
うまくページが分かれてくれるのかどうか。改ページでやればできるのか。

もし方法があれば、1Sheetで印刷時に日付が変わるといいのですが。
祝日は自分で印をつけますからなくてもいいです。
マクロはわかりません。

回答No.3

SI299792 · ベストアンサー

マクロ無しですか。作るのに手間がかかります。
１番上が月曜固定ですね。

まず、上に１行挿入します。その後、以下の様に入力します。
A1 1/1
A3 =A1-WEEKDAY(A1-1)+1
A5 =A3+1
A7,A9,A11,A13,A15へコピペ。
３～16行をA17 へコピペ。
A15 をA17 へコピペ。
A17 に改ページをいれる。
17～30行をA31 へコピペ
この操作を、A367まで繰り返す。

A3:E380 を選択
ページレイアウトタブ、印刷範囲、印刷範囲の設定。
印刷タイトル、シートタブ、
タイトル行に「$2:$2 」を入れる。
OK
（これで、各ページに必ず２行目が印刷されます。）

ファイル、印刷プレビューで、余白調整して、１ページに１週間が収まるようにする。
又は、各月曜日に、改ページを入れる。

操作が難しいので、サンプルを載せます。
プリンターによる差を防ぐため、各月曜日に改ページを入れる方式です。
https://www.datadeliver.net/receiver/file_box.do?fb=82985a54b0664e2f9025c77ccbeb3445&rc=aff7fc1f75034d418125eb769109c6c7&lang=ja
預かりは３日です。

お礼

うわっ、途中まで作ってくださったんですね。すみません、ありがとうございました。
マクロだと印刷時に制御できるんでしょうか。やれたらいいですねえ。

回答No.6

chayamati

セルA2に日付を入力すると
　その日から54週分（378日）の「日付」と「曜日」が入れ替わります
　従って、予定表が月曜日なら入力する日付は月曜日です

お礼

ありがとうございました。

回答No.5

chayamati

今晩は、期間は1年分とします。
改頁を自動にするため、添付のように1日分を1行としました
１．印刷用紙をA4縦、余白を既定の最小の狭い
２．1日を1行にし、7日で自動改頁されるように行の高さを決める
　366÷7＝52.28　切り上げて53+1　54週：54×7=378行
　列は年月、日(曜日）、午前、午後、夜の5列
2-1.378行×5列のセルに格子罫線を入れ、A1～A7へ月火水木金土と入力
2-2.行の高さ求める
　・列名A→ホームリボン→書式→行の高さ→110→プレビュー
　　→書式→行の高さ→...→プレビューを
　　繰り返して1週間表示出来る高さを決める
　　こちらのプリンターでは113かな
2-3.A列、B列をセルの書式設定→配置→縦方向
2-4.ページレイアウトリボン→印刷タイトル→シートタグ
　→タイトル行→1行目　$1:$1
2-5.ヘッダー/フッタータグ→
尻切れですが

補足

ありがとうございます。印刷時に日付が切り替わるのでしょうか。

回答No.4

SI299792

このままでA1に日付を入れて印刷すれば、半年分印刷できますよ。
印刷プレビューでも確認して下さい。

お礼

ありがとうございます。印刷しました。
半年分を2回印刷すれば1年分ですよね。

回答No.2

kon555

>>縦に60週分
　別に縦でも横でもいいです。ただエクセルの仕様上、一方向にした方が使いやすいとは思います。
　また60週分といっても、１週間分が作れたらコピーペーストすれば2週分に増えますし、2週分をコピーペーストで4週分・・・と倍々で増やせばあっという間です。

お礼

ありがとうございます。やはりつなげて作っておくしかないようですね。

回答No.1

kon555

日付の最初の欄にスタートの日付を入力します。
　例えば今日なら「2020/1/21」です。これがA2セルとします。
　2日目の日付欄に「=Ａ2+1」と入力すれば、初期欄の翌日の日付になります。
　さらに3日目の日付は、2日目の日付欄を参照して+1、さらに4日目は3日目の・・・・・・と繰り返せばどこまでも作れます。

　1シートにまとめたいなら、まず余白等を全て調整した上で1シートぴったりのレイアウトを作り、後は延々下にコピーして任意の枚数にすればいいです。その時も順繰りに参照した形を崩さなければ、日付入力は最初の1つだけで済みます。

補足

ありがとうございます。やはり縦に60週分作ることになるでしょうか。