Excelで日付を自動表示させたい

質問

特定のセルにある日付を入力しすると
表の日付欄がその入力した日付で月単位に
連続に表示する方法を教えて下さい。

＜例＞
開始月日　　７月１５日

日付
７月１５日
８月１５日
９月１５日
　　・
　　・
　　・
という形です。また同様に月末日での指定方法も教えて下さい。
宜しくお願いします。

回答No.7

noname#11836 · ベストアンサー

＃４です

＃＃アドバイスを一つ

私が良く使う方法ですが
月末日を99日とします。

＜例：月末以外＞
開始月日　　2005年　4月　30日

日付
４月３０日
５月３０日
６月３０日
７月３０日
　　・
　　・
　　・

＜例：月末＞
開始月日　　2005年　4月　99日

日付
４月３０日
５月３１日
６月３０日
７月３１日
　　・
　　・
　　・

これなら、
開始年がC1（表示形式：0"年"）
開始月がD1（表示形式：0"月"）
開始日がE1（表示形式：0"日"）
に入力されているとして
日付を
A4
A5
A6
A7
・
・
に表示するとして

A4
=if(E1<>99,DATE(C1,D1+ROW()-4,E1),DATE(C1,D1+ROW()-3,0))
A5
=if(E1<>99,DATE(C1,D1+ROW()-4,E1),DATE(C1,D1+ROW()-3,0))

上記の場合
開始日が　2005年　1月　30日
の翌月は2005/3/2になります（仕様です）
他の日を表示するのかは仕様次第です。

回答No.12

noname#11836

補足要求

日付
７月１５日
８月１５日
９月１５日
　　・
　　・
　　・

この日付は何に使用するのですか？
また、月末の場合は？

回答No.11

zenjee

#10の補足回答です。
A1の日付が例えば1月30日とした場合、2月だけは28日（閏年は29日）となってよいのであれば、次の計算式をA2に入力し、あと下方向にコピーすればOKです。
「=IF(TEXT(A$1+1,"m")<>TEXT(A$1,"m"),EOMONTH(A1,1),IF(TEXT(A1,"d")<>TEXT(A$1,"d"),EDATE(A1,1)+TEXT(A$1,"d")-TEXT(A1,"d"),EDATE(A1,1)))」
（A1に2008年1月30日、又は2008年1月31日と入力して試してみてください。）
注：2月30日とか2月31日などと表示するのは無意味という前提ですから念のため。

回答No.10

zenjee

#9の補足ですが、
どうしても一つの関数で表したい場合は、
A1に最初の日付が入るとして、
A2に「=IF(TEXT(A$1,"m")<>TEXT(A$1+1,"m"),EOMONTH(A1,1),EDATE(A1,1))」
という計算式を入力し、あと下方向にコピーすれば良いと思います。
文章で説明すると、
A1の日付の「月」("m")がA1の翌日（A1+1)の「月」("m")と異なる場合はA1は月末ということになるから「EOMONTH(A1,1)」を、
同じ場合は月末でないから「EDATE(A1,1))」を選択する訳です。
ただし断っておきますが、A1の日が30日とか29日の場合は、2月30日とか31日という日はあり得ないし、またうるう年以外は2月29日もあり得ないので、この場合は答えが出ようもないことを付記しておきおきます。

回答No.9

zenjee

月末以外の日と月末とを同時にIF関数を使って一発で表わす計算式を作るとなるとかなり面倒なので、両者を必要に応じて使い分ける方がより簡単だと思いますがいかがでしょうか。
つまりスタートの日が月末の場合は、A1が仮に2月28日として、
A2に「＝EOMONTH（A1,1）」と入力し、あと下方向へコピーする。
月末でない場合A1が4月15日として、A2に「＝EDATE(A1,1）」と入力、同様に下方向にコピーすれば簡単でしょう。
（表示形式は「○月○日」とします。）
余計なことですが、後者「EDATE(A1,1）」の場合、A1が3月31日である場合は、当然のことながら翌月以降は○月30日になりますし、2月29日の場合は翌年2月以降は○月28日になりますので念のため。

回答No.8

noname#11836

＃７　ですが

A4へは
=IF($E$1<>99,DATE($C$1,$D$1+ROW()-4,$E$1),DATE($C$1,$D$1+ROW()-3,0))
と入力し、下方向へコピーでも可能です

回答No.6

noname#11836

＃４です

>2006/01/31　とした場合、
　　　　>つまり末日を指定すると（←この1行は後述）
>翌月も末日にしたいです。
１月のケースは分かっています。

それより、補足要求のとおり
2008/01/30と入力された場合の翌月
と
2005/04/30と入力された場合の翌月が
いつになるのかということです。

>つまり末日を指定すると
とありますが、
2005/4/30
と入力された場合
これを
「月末日」と判定するのか
「３０日」と判定するのかによって
翌月が
2005/05/31
か
2005/05/30
か
変わってきます。

もし「月末日」と判定する場合
毎月30日という一覧は作成できませんね。

入力された日付が月末かどうかの自動判定は
出来ないということです。

＃＃どこかに月末日フラグをつけるべきでしょうね。

回答No.5

imogasi

原理から考える説明をします。
（１）エクセルでは日付けを１９００年初からの連続日数で値として持ってます。2005/7/15と入れると／が１つないし２つあるので、エクセルは日付と解釈し、３８５４８と値をいれます（日付シリアル値といいます）
（２）（１）の値から、書式を適用し、カレンダ算式を使って平成１５年７月１５日など割り出します。
（３）この方式の利点は何日後を計算しやすいことです。また何日から何日の間隔が引き算ですむことです。
●本件は開始日は（Ａ１セルにあるとして）３８５４８として1日づつ増やすのは、＋１すればよいことが、（１）からわかります。
＝（直前のセルの値）＋１とすればよい。
これは式を複写することで簡単に実現します。
●月単位とは当月末日までということでしょうから、月末日で複写か表示をやめることをどうするか考えないといけない。
●これは（１）から数量的に考えればよくて、月末日より大きければやめればよいです。ただし式の複写をやめる行を人間がそのつど判断したくなければ、式に組み込んで、最大３１日分用意しないといけません。
●Ｃ１には=A1
Ｃ２には=IF(MONTH($A$1+ROW()-1)<>MONTH($A$1),"",$A$1+ROW()-1)
と入れて下方向に式を複写します。
直前の値Ｃ１などを使ってなくて、ＲＯＷ（）を使ったのは、８月以後を空白するのがうまくいかなかったからです。
●月末は（２）の世界の話なのですが、月を＋１した来月の前日ですから
=DATE(YEAR(A1),MONTH(A1)+1,1)-1で（日付シリアル値が）求まります・

回答No.4

noname#11836

補足要求です

2008/01/30
と
入力された場合
翌月は
2008/02/28
ですか？
2008/02/29
ですか？

また

2005/04/30
と入力された場合
翌月は
2005/05/30
ですか？
2005/05/31
ですか？

それによって回答が変わってくると思います

補足

なるほど。
2006/01/31　とした場合、つまり末日を指定すると
翌月も末日にしたいです。
とうぜん閏年にも対応したいです。
それ以外の日であれば、同日にしたいです。

これで宜しいでしょうか。

回答No.3

BLUEPIXY

最初のセルに、指定日付があるとして
（つまり開始月日がＣ１なら、Ａ１に=C1とかしてある）
次のセルから
=DATE(YEAR(A1),MONTH(A1)+1,DAY(A1))
としてしたにコピーします。

同じように、最初のセル（Ｂ１）に、指定月末日があるとすると
=DATE(YEAR(B1),MONTH(B1)+2,0)
を下に（Ｂ２以下に）コピーします。

月による年の繰り上がりをやってませんので、いい加減な方法ですので注意

回答No.2

Poer

ご質問の趣旨に合っているかどうかという点で、さほど自身はありませんが、開始月日をB1のセルに入力するとして、日付欄の最初のセルに以下の数式を入力すれば、月末日を越えない結果（例えばB1に「1/31」を入力しても、2月は28日どまり）が出てきます。後はこの数式を必要な行数だけ縦にコピーするだけです。

　　=IF(B$1="","",IF(MONTH(DATE(YEAR(B$1),MONTH(B$1)+ROW(A1),DAY(B$1)))=MONTH(DATE(,MONTH(B$1)+ROW(A2),)),DATE(YEAR(B$1),MONTH(B$1)+ROW(A1),DAY(B$1)),DATE(YEAR(B$1),MONTH(B$1)+ROW(A2),)))

　※日付の表示方法はセルの表示形式で調整してください。