３ヵ月後の日付を自動計算しようと思っているのですが、上手くいかなかった

３ヵ月後の日付を自動計算しようと思っているのですが、上手くいかなかったのでご質問させていただきます。
３ヵ月後の日付をエクセルで自動的に計算させようと思って、いろいろ試行錯誤しているのですが、上手くいかなかったので、ここに質問させていただきました。よろしくお願いいたします。

で、単純に３ヵ月後を計算させようと思い、ＥｘｃｅｌのＷｏｒｋｄａｙ関数等を利用して、以下のような式を考えました。
=WORKDAY(DATE(YEAR(A１),MONTH(A１)+3,DAY(A１)-1),1,B1:B38)
ここで、セルＡ１には基準日を入力し、セルＢ１からＢ３８には国民の祝日を入力しています。

で、これでほとんどの場合で上手くいったんですが、例えば明日８月３１日を基準日とした場合、３ヵ月後を、基準日が月末なので３ヵ月後も月末で揃える格好で日付を指定したいと考えており、エクセル関数の組み合わせでとまってしまいました。
つまり８月３１日を基準日としたような場合は、求める日付として１１月３０日（１１月３０日が土日や祝日の場合は、更にさかのぼって１１月２９日だったり、１１月２８日が求める日付）となるようにしたいと考えております。
どなたか、お知恵を拝借できればと思っております。よろしくお願いいたします。

No.5 ベストアンサー 回答者： don9don9 回答日時： 2010/08/31 16:15

No.1,2です。

基準日の3ヶ月後が土日祝日の場合、前にずらすのか後ろにずらすのか？
質問文の例だと前にずらすとしか解釈できませんでしたので、No.2では

=WORKDAY(EDATE(A1,3)+1,-1,B1:B38)

と回答しました。
これは、3ヶ月後の日付が土日祝日でなければそのまま3ヶ月後の日付
土日祝日の場合は前にずらした日付、となります。

ここで+1と-1を変えて

=WORKDAY(EDATE(A1,3)-1,1,B1:B38)

とすれば、逆に後ろにずらした日付も計算できます。

「基本は後ろにずらすが、後ろにずらすと月をまたいでしまう場合のみ、前にずらす」
ということでよろしいのでしょうか？

一つの式でやるとややこしくなるので作業列を使いますが
C1に
=WORKDAY(EDATE(A1,3)+1,-1,B1:B38)
D1に
=WORKDAY(EDATE(A1,3)-1,1,B1:B38)
E1に
=MONTH(C1)
F1に
=MONTH(D1)
G1に
IF(E1<>F1,C1,D1)

この回答へのお礼

度々の回答、有難うございました。
「基本は後ろにずらすが、後ろにずらすと月をまたいでしまう場合のみ、前にずらす」
という一文が、私の質問に抜けていたため、お手間を取らせてしまい、申し訳ありませんでした。
Ｉｆ文で、基本の場合（後ろにずらす）と、例外（月をまたぐので前にずらす）の場合わけをして、処理されている点と、同僚が見てもこちらの方が分かりやすいということでベストアンサーに選ばせていただきました。

また、なにか相談するようなときは、よろしくお願いします。
今回は有難うございました。

お礼日時：2010/09/01 11:48

No.4 回答者： KURUMITO 回答日時： 2010/08/31 15:03

８月３１日の３ヶ月後に日付を１１月３０日にしたいとのことですと、８月３０日の３ヶ月後と同じになりますがそれでもよいのでしたら次のような式になりますね。

=IF(A1=EOMONTH(A1,0),WORKDAY(DATE(YEAR(A1),MONTH(A1)+4,0)-1,1,B1:B38),WORKDAY(DATE(YEAR(A1),MONTH(A1)+3,DAY(A1)-1),1,B1:B38))

１１月３０日の３ヶ月後は２０１１年２月２８日になりますね。

この回答へのお礼

回答誠に有難うございました。
基準日が月末の場合、４ヵ月後から計算し、月末で無い場合は、（通常通り）３ヵ月後を計算するという趣旨だと拝察しました。
ベストアンサーに選ぼうかとも思いましたが、同僚と相談して別の方にさせていただきましたが、私の中では、Ｍｙベストアンサーです。
大変有難うございました。また何か相談した時は、よろしくお願いします。

お礼日時：2010/09/01 11:43

No.3 回答者： yosifuji2002 回答日時： 2010/08/30 19:56

まず、確実に月末を求める考え方ですが、これは3ヵ月後の月末を直接求めるのではなく、4ヵ月後の初日の前日というように考えます。

　　　　A列　　　　B列　　　　　　　　B列の式
A5　　年月日　　　2010/8/31
A6　　年　　　2010　　　　　=YEAR(B5)
A7　　月　　　8　　　　　　　=MONTH(B5)
A8　　日　　　31　　　　　　=DAY(A1)
A9　　4月後の1日2010/11/1　　=DATE(B6,B7+3,1)
A10 　3月後の月末2010/10/31　　=B9-1


ただし、10月以後は3月後は翌年になりますのでYEAR関数だけではうまくいきません。この解決は考えてください。

週末の判定は上記の月末の日が求められたら、WEEKDAY関数でその月末日の曜日がわかります。
これにIF関数を組み合わせれば、その結果から1日前か2日前をとることができます。

以上が考え方ですが、後はご自分で工夫してください。


関数はいかに使える関数を組み合わせるかがポイントで、頭の体操としてはなかなか面白いと思います。ひとつわかれば次のアイデアが出てきますので、是非がんばってください。

この回答へのお礼

ご回答ありがとうございます。

『関数はいかに使える関数を組み合わせるかがポイントで、頭の体操としてはなかなか面白いと思います。』という部分には、非常に共感できますので、頑張っておりますが、正直申し上げてご紹介いただいた方法は、一番最初に試したもので、、、、、、、、、ちょっと評価は・・・・・・とさせて下さい。

質問には詳しく書いていなかったので、こういうことを招いたんだと思いますが、ご紹介いただいた方法を実は一番最初に試して、上手くいかなかったので分析ツールのＷｏｒｋｄａｙ関数を引っ張ってきて、現在に至る、という流れになっております。

もし、この先のアイデア等ございましたら、またご回答いただければと存じます。

今回はありがとうございました。

お礼日時：2010/08/31 11:04

No.2 回答者： don9don9 回答日時： 2010/08/30 18:18

No.1です。

考えてみたら、WORKDAY関数を使っているということは
分析ツールのアドインを有効にしているんですよね。
でしたらEDATE関数が使えますね。
その場合は以下のような式になります。

=WORKDAY(EDATE(A1,3)+1,-1,B1:B38)

No.1の回答は忘れてください。失礼しました。

この回答へのお礼

早速の、ご回答ありがとうございます。
すぐさま試してみたところ、たしかに８月３１日の３ヵ月後が１１月３０日になりました。

が、私の説明が拙かったせいもあるのかと思いますが、普通の３ヵ月後、例えば８月１３日の３ヵ月後を考えた場合、１１月１５日が求めたい日付なのですが、１１月１２日が計算されるようで、上手くいっておりません。
というわけで、お返事が遅くなりましたが、依然として試行錯誤中です。
もし、なにか良いアイデア等あれば、またご回答いただければと存じます。

今回はありがとうございました

お礼日時：2010/08/31 10:57

No.1 回答者： don9don9 回答日時： 2010/08/30 18:06

=WORKDAY(IF(MONTH(DATE(YEAR(A1),MONTH(A1)+3,DAY(A1)))<>MONTH(A1)+3,DATE(YEAR(A1),MONTH(A1)+4,0),DATE(YEAR(A1),MONTH(A1)+3,DAY(A1)))+1,-1,B1:B38)

こんな感じでどうでしょうか。

3ヶ月後の日付を「DATE(YEAR(A1),MONTH(A1)+3,DAY(A1))」
で計算してしまうと、3ヵ月後の同じ日付がない場合に
さらに翌月の日付になってしまうので
（8月31日の3ヵ月後は、12月1日になってしまいますよね）
IFで条件分岐して「DATE(YEAR(A1),MONTH(A1)+3,DAY(A1))」の月部分と
A1の月部分+3を比較して、一致しない場合は
「DATE(YEAR(A1),MONTH(A1)+4,0)」で3ヵ月後の月末日付
一致する場合はそのまま3ヵ月後の日付
これに1日をプラスした日付をWORKDAY関数の開始日として、日数を-1とする