いろいろな関数　縦型の万年？暦を作る

主な項目
１．Sheet１枚で３０年暦を作る試み
２．カレンダーを作る（通称：万年カレンダー）

[MOD]関数を使って閏年２月２９日を設定する（続：画像編）

前ページ上段をコピーして、Excel[A1]セルに貼り付けてください。シート名を「月別」にしてください。
下段をコピーしてSheet２[A1]セルに貼り付け、シート名を２月にしてください。他の月は２９日の[MOD]関数をはずします。 そうして、[=TEXT(DATE($A$1,$A$2,セル番地),"aaa")]と入力します。
その上で、設定することがあリます。

年リストのデータを範囲を決めます。

1. 月別シートを選択。右端の2008（になっていますが、全てです。）〜2036まで選択し、名前を定義します。
   名前の定義には、名前ボックス▼をクリックして、「年リスト」と入力します。そうして、[Ctrl＋Enter]キーで確定します。
   「ドロップダウンリスト」を設定します（年リストがドロップダウンリストで表示させるためです。）
   入力規則を設定します。
2. 月別シートの[F1]セルを選択しておいて、メニューバー「データ」から入力規則をクリックします。
   入力規則のダイアログボックスが表示されます。
3. 入力値の種類(A)で[リスト]を選択、元の値(S)に[=年リスト]と入力します。「=」は半角です。
   次は、別なシートの操作になります。
4. ２月のシートを開いてください
5. 2008をクリック
6. 数式バーに2008と表示されますが、それを消して「 =月別!F1 」（「ドロップダウンリスト」を作成したセル番地で、 リストの最上部です。）と入力してください。

   ＊＊＊訂正とお詫び＊＊＊上の行で、「 =F1 」で記入したのは誤りです。「Sheet」を跨いで参照するには、「 =月別!F1 」の形です。 これで、Sheet１である月別の[F1]セルの「ドロップダウンリスト」とSheet2の２月の[A1]セルとの関係が保たれました。
   操作方法

7. 月別シートの[F1]セルの「ドロップダウンリスト」の▼をクリックします。
8. 開いた「ドロップダウンリスト」の中から任意の西暦年を選択します。
   （あくまでも[F1]セルのドロップダウンリスト」の中からです。F列の縦長の年ではありません。）
9. Sheet１月別でいろいろの年を選び、Sheet２の２月のシートを開いて、２９日の有無を確かめてください。
10. [MOD関数]の効果がお分かりになることと思います。

上の例では、月を２月に限って作りましたが、同表をコピーして、他の月も作ります。

Sheet１〜１３まで使用すると、１〜１２月までの暦が完成します。「月別」シートの年号をオートフィルすれば、400年に1日の暦の補正をする年まで使用できます。
このページは、２００４年１，２、４月と２００５年７月の画像です。（２００５年７月１８日作成ー訂正７月２５日）

Sheet１枚で３０年暦を作る試み

上述では、sheet１３枚を使用して、作りましが、何とか１枚で出来ないものかと模索した結果、纏まりました。 ただし、２月と大の月、小の月の後に余分の日にちが書き込まれています。消去法を模索中です。

前日模索中と書きましたが、まる、２日を費やして纏めました。インターネットでいくら探しても見当たりませんので、[IF]関数をネスト、ネストの初歩的手法で解決しました。

問題になるのは、２９（閏月の判別と以後の日の消去）、３０小の月の判別と以後の日の消去、３１日（大の月の記述）です。
２９日：=IF(OR($E$2=1,$E$2=3,$E$2=4,$E$2=5,$E$2=6,$E$2=7,$E$2=8,$E$2=9,$E$2=10,$E$2=11,$E$2=12,$E$2=13),A31+1,IF(MOD($C$2,4)=0,A31+1,""))
３０日：=IF(OR($E$2=1,$E$2=3,$E$2=4,$E$2=5,$E$2=6,$E$2=7,$E$2=8,$E$2=9,$E$2=10,$E$2=11,$E$2=12,$E$2=13),A32+1,IF(MOD($C$2,4)=0,"",IF($E$2=2,"",A32+1)))
３１日：=IF(OR($E$2=4,$E$2=6,$E$2=9,$E$2=11),"",IF(OR($E$2=1,$E$2=3,$E$2=5,$E$2=7,$E$2=8,$E$2=10,$E$2=12,$E$2=13),B33+1,IF(MOD($C$2,4)=0,"",IF($E$2=2,"",A33+1))))

下段の表をコピーして、EXCELに貼り付けると上の関数が表示されます。

もっと、効率的な関数があるかと思いますが、ネットでは見当たりませんので、試行錯誤を重ねて纏めました。 ２０日掲載の表では、閏月を２８日としましたが、間違いです。実行された方御免なさい。お詫びいたします。 この経験を生かして、７曜こよみ（縦型でない）に挑戦したいとも思っています。 この、こよみの年号をオートフィルすれば、400年に1日の暦の補正をする年まで使用できます。 また、お遊びで月数を１３月までとりましたが、翌年の１月が表示されます。下図月リスト「１３」がそれです。

カレンダーを作る（通称：万年カレンダー）

下表をコピーして、EXCELのA1セルに貼り付けて、ご使用ください。ただし、Excel表をWeb化したため、 設定が解除されたところがあります。最下段の注意書き手順で解決します。
関数の埋め込みは、そのまま生きています。
さらに、曜日の色付けが消されています。2004年の1月に「条件付書式」で土、日の色を付けてください。 １っ箇所設定すれは全部に適用されます。
なお、A列には、「DATE関数」で日付を取得するためのダミーの連番１〜３１まで入力し、隠してあります。

トップページへ戻る     ページのトップへ     EXCEL関数特集-総目次へ   いろいろな関数９へ進む