今日は海の日、明日はスポーツの日

さて、2020年は今日が海の日なんです。

Excelを使って、年から海の日を算出してみようかと思う。

A1セルに年、
B1セルに月で、7、
C1セルを計算で求め、
D1セルに曜日を求め、
E1には祝日名で、海の日、
とする。

C1セルは、
=IF(A1>1996,IF(A1<>2020,21-WEEKDAY(DATE(A1,B1,14),3),23))
とすることで、2020年の海の日が7月23日となります。

D1セルは、
=TEXT(DATE(A1,B1,C1),"aaa")

E1セルは、
=IF(C1,"海の日","")


さてさて、2020年は明日が体育の日を改め、スポーツの日なんです。

体育の日、スポーツの日も同様に算出してみよう。

まずは、体育の日。

B1セルは、
10

C1セルは、
=IF(AND(1965<A1,A1<2000),10,IF(AND(1999<A1,A1<2020),14-WEEKDAY(DATE(A1,B1,7),3)))

D1セルは、
=TEXT(DATE(A1,B1,C1),"aaa")

E1セルは、
=IF(C1,"体育の日","")


続いて、スポーツの日。

B1セルは、
=IF(A1=2020,7,IF(2020<A1,10))

C1セルは、
=IF(A1=2020,24,IF(2020<A1,14-WEEKDAY(DATE(A1,B1,7),3)))

D1セルは、
=TEXT(DATE(A1,B1,C1),"aaa")

E1セルは、
=IF(C1,"スポーツの日","")


取り急ぎ、こんな感じで祝日を作成して、ここをmatchやvlookupなどで参照して、カレンダーの祝日判定をするという目論見だったかと思う。

他の祝日とか、もう一度見直そうかな。


ではでは