安曇野ライク・ブログ

本日から師走です。当ブログの画面トップに表示されるヘッダー画像ですが、自前の写真に切替えてから２巡目の冬を迎えました。いつものパターンで昨シーズンに撮った写真の中から季節感のあるものを選び、ヘッダー画像の大きさ、940×198ピクセルに切り取ってweb登録しました。本日から以下の８枚のヘッダー画像が任意に切り替わります。来年の春バージョンの切替えまで、第２巡目の冬バージョン・ヘッダー画像をよろしくご承知おき願います。

掲題シリーズ、第３弾はカレンダーの暦の日付を自動表示させるものです。（その１）で土用の丑の日の計算式を示しましたが、今回はその他の暦の日付を含めて以下の画像のように自動表示化しました。ネットで調べると、春分、夏至、秋分と冬至のそれぞれの日付は年度の関数として下図のごとく計算式があることがわかりました。式も簡易で下表、青色のセルの年度を入力するとたちどころに数値（日付）が求まります。一方、立春や立秋、立冬は計算式は存在しないのだそうで、仕方なく各年度の日付をデータベース化し、これを読み取ることにしました。出来上がったExcelシートで一例を下表に示します。土用の丑の日は（その１）で解説した「余り＝１１」の日付を拾ってくれば良いのですが、意外と抽出するのに骨が折れました。最初は７月を第１土用、８月を第２とすれば、下表のNo.の列で１と２を予め固定できるので抽出が楽なのですが、2009年のように第２丑の日が７月の場合もあるので、厄介なことになりました。一つの手法として、１〜１１の「余り」が１巡目か、２巡目かをNo.の列で自動識別させることで解決しました。第１土用は余りが１１でかつNo.が１を満たす日付、第２土用はNoが2の中で余り１１の月日欄を抽出するで解決です。以上でそれぞれの暦を一堂に列挙したのが黄色のセルです。ところで、立春は２月４日の固定日だと思っていたのですが、どうやら日付が異なる年もあることを知りました。直近では2021年が２月３日になるようです。よって、その年の節分は２月２日となり、この日が豆マキかと思うと、どうもシックリきません。元日のように固定日の方が迷いがなくていいですね。

今日のブログは掲題シリーズの２回目、自作カレンダーの完全自動化の課題で核心の日付の下に祝日や暦の文字列を自動挿入する挑戦についてです。何ぶん、完全自動化で唯一、やることは開いたExcelファイルで右の画像のように、左上のセルに作成したい年を入力するだけで１２カ月のカレンダーを作ることにあります。その中で、祝日などの特定日のセルには日付の下に文字列を入れることを今回のメーンテーマにしています。従来の方法は日付と同じセルの中で改行して２行目に文字列を手動で入力していました。これを自動化するには、同じセルの中で２行を処理することはできないので、文字列の行を新たに挿入することにしました。後は上の画像の例の通り、１月であれば１を「元日」、７を「七草の日」．．、とカレンダー日付の特定日の数値を見つけてそれに対応し新たに追加した行の対象セルに文字を挿入することです。こうして出来上がった例を以下に示します。
上の画像の左、2016年は成人の日の11日が「鏡開き」と一致したもので、ちょっと工夫して２つの文字列を１つのセルに入れることができました。残念なのは「鏡開き」の文字だけ黒にしたかったのですが、祝日の文字列はセル内の色が赤で統一となっています。次に上の右画像は2017年の例で、２日が「振替休日」になっているのが分かります。最後に苦労したのが、その月が何週あるかで罫線を自動で調整することです。上左が６週分、右が５週分で罫線がそれぞれに見合って引かれるようにしました。このロジックはExcelの「条件付き書式」で、６週目の日付欄が空欄であれば５週目の最下行を実線の罫線で綴じ、空欄でなければ６週目にも罫線を引くように設定しました。かなり、アクロバチックながら何とかものになりました。これで、自動化作戦もかなり進みました。

そろそろ来年のカレンダーを作成する時期となりました。ここ数年、Excelでカレンダーを自動作成するファイルを試行錯誤し、昨年末にファイル公開しました。このファイルを使って来年のカレンダーを一通り作ることができるのですが、今年は更にバージョンアップを図ることにしました。従来のファイルでは、年号を入れるだけで月日の曜日割り振りや祝日の赤字表示まで自動で処理できます。しかしながら、祝日や夏至など暦の名前をその日付の下に自動表示するところまで至っていません。今年は是非これを自動処理できるよう、挑戦することにしました。幾つかの関門の中で、一番難しそうなのは土用の丑の日を自動で求めることです。本日、ネットであれこれ調べたところ、関係する計算式があるのを見つけました。早速、Excelでこの計算式をもとに検証してみました。ロジックは下記の計算式で修正ユリウス日を求めて、これを１２で割り余りの値がそれぞれの干支に相当するのだそうです。これより2018年の土用の丑の日は7月20日と8月1日となり、来年の暦通りでした。一通り他の年度の丑の日を見ても、このロジックが正しいことが分かりました。年によって土用の丑の日は１日であったり、２日であったり、中には７月に２回の丑の日があって、これらはすべてこの計算式からの結果と一致しました。しめシメです。これで一歩、完全自動化に近づきました。