Excelでナンチャッテ万年カレンダーの作成

［B2］に西暦（テキスト入力）

［C2］に月（テキスト入力）

［B4］に =B8-7

［C4］に =B4+1

［B5］に =B4

［C5］に =C4

［B8］に =DATE(B2,C2,1)

［C8］に =B8+1

［B9］に =B8

［C9］に =C8

ただし、4行目、8行目（12行目、16行目，20行目，24行目）は右クリック［セルの書式設定］にて［日付＞×月×日］を指定。

5行目、9行目（13行目、17行目，21行目，25行目）は右クリック［セルの書式設定］にて［ユーザー定義＞aaa］を指定。

aaa →　月
aaaa →　月曜日
ddd →　Mon
dddd →　Monday

［B12］に =H8+1

［C13］に =B12

［B16］に =H12+1

［C17］に =B16

［B20］に =H16+1

［C21］に =B20

［B24］に =H20+1

［C25］に =B24

あとはN列までフィルの複製を行います。

全体を選択し任意の薄い色で塗りつぶします。

その月［C2］の1似野始まる行の1日の左側にある日曜日（日曜日始まりの場合）を基点として1月分のデータを選択し、塗り節を解除すれば簡易カレンダーの完成です。

［C2］の値を［5］とすれぱ5月のデータに変わるので塗りつぶし解除エリアを変更すれば5月のカレンダーとなります。

Excel 365 2020