入力した日付を起点にカレンダーを作成する

お遊びで、日付を入力したセル(1つ)を選択して実行すると、カレンダーになるマクロを作ってみた。思ったより、長々としたものになってしまった。 Option Explicit Sub MakeCalender(target_range As Range) ' 選択範囲判定。 ' 複数セルが選択されている場合、処理を終了する。 If target_range.Count > 1 Then Exit Su…