万年カレンダーについて。

エクセルで、1～6月までの万年カレンダーを作りたいのですが、関数や、コピペ(エクセル内の)を使って、作り方を教えていただけないでしょうか？教えていただけると幸いです。大変恐縮ですが。
出来れば、EOMONTH 関数や、IF関数等を使ってできないでしょうか？教えていただけると幸いです。大変恐縮ですが。

質問者からの補足コメント

• こんな感じに作りたいのですが。教えていただけると幸いです。大変恐縮ですが。

  
  No.1の回答に寄せられた補足コメントです。 補足日時：2018/08/29 19:00

• こんな感じに作りたいのですが。教えていただけると幸いです。大変恐縮ですが。

  
  No.2の回答に寄せられた補足コメントです。 補足日時：2018/08/29 19:05

• こんな感じに作りたいのですが。教えていただけると幸いです。大変恐縮ですが。はりなおします。

  
    補足日時：2018/08/29 19:23

• 

  後は、EOMONTH関数を付け加えていただければと思います。大変恐縮ですが。教えていただけると幸いです。

  No.3の回答に寄せられた補足コメントです。 補足日時：2018/08/30 06:33

• 

  もう少し簡単な数式でどうにかならないのでしょうか？
  教えていただけると幸いです。大変恐縮ですが。

    補足日時：2018/08/30 13:51

• 

  どうしても使いたいのです。すみませんが、どうにかならないのでしょうか？教えていただけると幸いです。大変恐縮ですが。

  No.6の回答に寄せられた補足コメントです。 補足日時：2018/08/31 22:00

• 

  授業で、やったので、それを使え。と先生からいわれているのです。教えていただけると幸いです。大変恐縮ですが。

  No.8の回答に寄せられた補足コメントです。 補足日時：2018/09/01 20:08

• 

  数字を変えても、変わりますか？この際長くてもいいので、式を教えていただければと思います。大変恐縮ですが。

  No.4の回答に寄せられた補足コメントです。 補足日時：2018/09/01 20:09

• 

  そうです。C1と、F1を例えば、2018年を2017年に、8月を9月に変えてもカレンダーの曜日などは、
  変わるのでしょうか？教えていただけると幸いです。大変恐縮ですが。

  No.9の回答に寄せられた補足コメントです。 補足日時：2018/09/03 11:10

No.12 回答者： mike_g 回答日時： 2018/09/03 14:37

[No.9補足]へのコメント、

そう、セル C1、F1 にそれぞれ 2017、9 を入力したら、カレンダーの曜日が変わります。
だって、万年カレンダーとまでは行かないまでも、1900/3/1 から9999/12/31 まで対応させてますから。(1900/1/1～1900/2/28の範囲では曜日に1日のズレあり。つまり嘘っぱちですね。此れは私の仕業ではありませぬ。Excelの宿命？)
ガタガタ言わずに先ずは[No.9]をそのまま実行すること！質問はそれからネ。

ちなみに、C1 に何も入力しないと空白のままだけど、2017 を入力するとアラマ「2017年」と表示されますよ。此れもやってみれば分かること。

No.11 回答者： mike_g 回答日時： 2018/09/03 13:55

[No.9補足]へのコメント、

C1、F1 にそれぞれ 2017、9 を入力したら、カレンダーの曜日が変わります。
だって、万年カレンダーとまでは行かないまでも、1900/3/1 から9999/12/31 まで対応させてますから。(1900/1/1～1900/2/28の範囲では曜日に1日のズレあり。つまり嘘っぱちですね。此れは私の仕業ではありませぬ。Excelの宿命？)
ガタガタ言わずに[No.9]をそのまま実行すれば分かること！

No.10 回答者： mike_g 回答日時： 2018/09/02 00:49

[No.9]のステップ９用の添付図です。

数式等の判読し辛い箇処はステップ9.3.1.～9.3.3.をご覧ください。
なお、そこで「9.3.2.祝祭日」としていたのは「9.3.3.祝祭日」の書き間違いでした。

No.9 回答者： mike_g 回答日時： 2018/09/02 00:41

[No.8]への補足へのコメント、

》 数字を変えても、変わりますか？
何処の「数字」のことを仰っているの？
セル C1、F1 の「数値」のことですか？
「この際」、紛らわしいので「数字」と「数値」を使い分けてくださいね。


》 この際長くてもいいので、…
何だか恩着せがましく聞こえますが、…(*^_^*)

１．G/標準"年"
￣￣に書式設定したセル C1 に数値 2018 を入力
２．セル F1 に数値 8 を入力
３．セル A3、E3 の書式を
￣￣ m
￣￣に設定
４．セル A3 に式 =DATE(C1,F1,1) を入力
５．セル E3 に式 =DATE(YEAR(A3),MONTH(A3)+1,1) を入力して、此れを
￣￣セル I3、M3、…、U3 にコピー＆ペースト
６．d
￣￣に書式設定した範囲 A5:A6 の各セルにそれぞれ次式を入力
￣￣A5: =A3
￣￣A6: =IF(A5+1>EOMONTH(A$5,0),"",A5+1)
７．aaa に書式設定したセル B5 に式 =A5 を入力し、此れをB6 にオートフィル
８．範囲 A6:B6 を下方にズズーッと(35行目まで)オートフィル
９．此処で祝日、土・日表示のための[条件付き書式]を行なう
9.1.[No.5]の添付図参照。ちなみに、範囲 Y2:Y33 に 2018年、2019年の祝日
￣￣が入力されているものとします。セル Y1 に「NHoliday」なる文字列があ
￣￣ります。
9.2.範囲 Y1:Y35 を選択 ⇒ Alt+MC ⇒ “上端行”以外のチェック外し ⇒ [OK]
9.3.範囲 A5:B35 を選択 ⇒ Alt+HLN の操作で、次回で示す添付図のような
￣￣[条件付き書式]を設定
　9.3.1.土曜日
￣￣￣￣数式: =AND(WEEKDAY(A5,2)=6,MONTH(A5)=MONTH($A$3))
￣￣￣￣書式: フォント色→白、塗りつぶし色→青
　9.3.2.日曜日
￣￣￣￣数式: =AND(WEEKDAY(A5,2)=7,MONTH(A5)=MONTH($A$3))
￣￣￣￣書式: フォント色→白、塗りつぶし色→赤
　9.3.2.祝祭日
￣￣￣￣数式: =AND(COUNTIF(NHoliday,A5),MONTH(A5)=MONTH($A$3))
￣￣￣￣書式: フォント色→自動、塗りつぶし色→緑

No.8 回答者： mike_g 回答日時： 2018/09/01 07:30

[No.6]への補足へのコメント、

》 どうしても使いたいのです
その理由を訊いているのです、「もう少し簡単な数式」を望む理由は首肯できるけど。

「月末に発生する満期日や支払日を計算する」わけでもないのに、EOMONTHを使うのは式を複雑にするのが“落ち”になるかも。

No.7 回答者： toshihiko_ooishi 回答日時： 2018/08/31 23:09

私は、日付に対して、日付のみ表示する書式設定をするのはあまり好きでない

（理由は、シート全体を選択して、間違って「，」アイコンを押すと、一気に表示がおかしくなるので…）
のですが、書式設定を使って、式を短くして、EOMONTH関数を入れました。

残った日付はA6からコピーして、曜日はB5からコピーします。

書式設定
A5 d
B5 aaa

計算式
A3 =MOD($E$1-1,12)+1&"月"
E3 =MOD($E$1,12)+1&"月"
I3 =MOD($E$1+1,12)+1&"月"
A5 =DATE($C$1,$E$1,1)
B5 =A5
E5 =DATE($C$1,$E$1+1,1)
I5 =DATE($C$1,$E$1+2,1)
A6 =IF(A5="","",IF(A5+1<=EOMONTH(A5,0),A5+1,""))

条件付き書式
B5 =EXACT(A5,"") ※表示形式を""にして、条件を満たす場合は停止にチェック
=TEXT(A5,"aaa")="土" ※青で塗りつぶす
=TEXT(A5,"aaa")="日" ※赤で塗りつぶす

No.6 回答者： mike_g 回答日時： 2018/08/31 11:36

》 出来れば、EOMONTH 関数や、…

》 後は、EOMONTH関数を付け加えていただければと…
EOMONTH関数に固執する理由は？
私は必要なしと思います、「万年カレンダー」実現が目的でしょ？

No.5 回答者： mike_g 回答日時： 2018/08/30 21:43

もうひとつ、ちなみに、

祝日表示に使用したテーブルを添付図に示しておきます、単なる参考までに。

No.4 回答者： mike_g 回答日時： 2018/08/30 21:30

添付図のようなものを作成することができました。

でも「もう少し簡単な数式でどうにかならないのでしょうか？」と言われそうなので、解説はやめておきます。

ちなみに、
土、日は白抜きフォントで、かつ、塗りつぶし色は
土→青、
日→赤、
祝→緑(土曜日が祝日のときのフォント色は白)
になります。

No.3 回答者： toshihiko_ooishi 回答日時： 2018/08/29 22:50

こんなところでどうでしょう？

画像ファイルの通り入力して、2～31日の行は、1日の行(画像では5行目)をコピーして作ります。

計算式
A3 =MOD($E$1-1,12)+1&"月"
E3 =MOD($E$1,12)+1&"月"
I3 =MOD($E$1+1,12)+1&"月"
A5 =IF(MONTH(DATE($C$1,$E$1,ROW()-ROW(A$5)+1))=MOD($E$1-1,12)+1,ROW()-ROW(A$5)+1,"")

B5 =TEXT(DATE($C$1,$E$1,A5),"aaa")
E5 =IF(MONTH(DATE($C$1,$E$1+1,ROW()-ROW(E$5)+1))=MOD($E$1,12)+1,ROW()-ROW(E$5)+1,"")
F5 =TEXT(DATE($C$1,$E$1+1,E5),"aaa")
I5 =IF(MONTH(DATE($C$1,$E$1+2,ROW()-ROW(I$5)+1))=MOD($E$1+1,12)+1,ROW()-ROW(I$5)+1,"")
J5 =TEXT(DATE($C$1,$E$1+2,I5),"aaa")

条件付き書式
B5 =TEXT(DATE($C$1,$E$1,A5),"aaa")="土" 青
=TEXT(DATE($C$1,$E$1,A5),"aaa")="日" 赤
E5 =TEXT(DATE($C$1,$E$1,E5),"aaa")="土" 青
=TEXT(DATE($C$1,$E$1,E5),"aaa")="日" 赤
J5 =TEXT(DATE($C$1,$E$1,I5),"aaa")="土" 青
=TEXT(DATE($C$1,$E$1,I5),"aaa")="日" 赤