エクセル９７で年月日を入力したら各月日が自動入力

質問

ＡＢＣＤＥ　　　　　　　　　　　ＭＮＯＰＱ
１　2002/11/1
２　　　11月　　　　　　　　　　　　　12月
３　１２３４５～　　　　　　　　　　１２３４５～
４　金土日月火　計　累計　　　日月火水木　　計　累計
５　３ １ ５ ２ ３　14　14

上記のように、毎月の人数の集計表で横並びに毎月の集計
表があります
A1のセルに2002/11/1と入力したら、毎月の表の最初の列
以降に、その月の日と曜日が横並びに表示され、その上に
その月が自動的に入力出来る方法が分かりません
特に次の月からがどうすれば出来るか分かりません
出来れば関数で何とか作成したいのでご教授お願いします

回答No.5

dejiji- · ベストアンサー

それぞれの月の（最初はＡ１セル、２ヶ月目はＭ２セル）1日を基準としてＡ２，Ｍ２セルの月を表示しているので、３ヶ月目は式の中の、Ａ１（これは、Ａ２としても同じ結果が得られます。）をＭ２、２００１／１２／１を基準にすれば出来ます。

以降Ａ１の部分を前月の１日のセル番号にすればＯＫ
１１月の部分のセルには１１月ではなく、２００２／１１／１が入っています。
数式バーを見れば、その月の１日の日付になっています。
１月は
＝Ａ１＋ＤＡＹ（ＤＡＴＥ（ＹＥＡＲ（Ａ１），ＭＯＮＴＨ（Ａ１）＋１，０））
を（ここではＡ１とＡ２は、同じものなのでどちらを使っても同じです。）

＝Ｍ２＋ＤＡＹ（ＤＡＴＥ（ＹＥＡＲ（Ｍ２），ＭＯＮＴＨ（Ｍ２）＋１，０））

と変更すれば１月が出ます。
なお、日付の部分に付いては、１１月はＡ１（又はＡ２）を入れますが、１２月はＭ２を基準としないと１２月の日数になりません。
＝ＩＦ（ＭＯＮＴＨ（Ａ３）＜＞ＭＯＮＴＨ（Ａ３＋２８），””，Ａ３＋２８）」 のＡ３についても、Ｍ３に変更してください。これも、上と同じ理由です。

この説明は少しわかりにくいですよね。

各月をシート毎に分け１月を一枚のシートにする方法をとれば、各シートの下のタブを６ヶ月分選択して１ページ目のシートに式を入力すれば６枚同時に入りますがいかがですか。全て横にするのは大変でしょう。（シート６枚作り１番目のシートのタブをクリックして、シフトを押しながら６枚目のシートをクリックすると、６枚全てのシートが選択されます。）シートを串刺しにして同じフォームにすることが出来ます。

これだったら、常に各シートのＡ２が「月」表示のセルになるので同じ式になり、迷い難くなります。

これで、又がんばってください。

お礼

お手数をお掛けしました
出来ました。すごいですね尊敬します
大変助かりました有り難うございました
今後ともよろしくお願いします

回答No.4

imogasi

2002/11月の例で説明します。
（１）A２に２００１／１１／１と入れます。（必ず／を使うこと）。
（２）B2に式=IF(A2+1>EOMONTH(TEXT(A2,"@"),0),"",A2+1)
　　　を入れます。C2からAE2まで式を複写します。
　　　AE２はA2より３１番目です。なぜ３１番目まで複写するかわかります　　　ね。月末の最大が３１日だからです。
　　　１１月は３０日ですが、上記に式で１１月３０日より大きいと
　　　空白を入れますので１１月３１日に当たるところは空白です。
（３）A3に＝A2と式を入れます。そしてAE3まで複写します。
（４）A3：AE3まで範囲指定し、書式－セル－ユーザー定義－aaa(aの小文字 ３文字）を入れてOKをクリック。
これでだい３行目は曜日が出ます。
「横並び」とあったので、日を横並びにしましたが、
縦並びでも複写する方向を変えれば同じことです。

お礼

お礼が遅くなりました
回答有り難うございました
参考になりました
今後ともよろしくお願いします

回答No.3

dejiji-

以降の計算式を参考に入れてみてください。（エクセル２０００ですが、変わった関数は使用していないので、これで大丈夫だとおもいます。）

Ａ１に2002/11/1を入れる。
Ａ２にセル書式でユーザー設定で「ｍｍ”月”」
Ａ３に「＝Ａ１」、セル書式でユーザー設定で「ｄｄ」
Ｂ４以降２８日まで前のセルに「＝Ａ３＋１」
Ａ２９セルに「＝ＩＦ（ＭＯＮＴＨ（Ａ３）＜＞ＭＯＮＴＨ（Ａ３＋２８），””，Ａ３＋２８）」
Ａ３０，３１にはＡ２９の式の２８をそれぞれ２９，３０に変更する。
これで１日から月末までの日付が入る。（２９日以降無い月は空欄）
毎月同じセル数（１～３１までの欄ができます）の表が出来ます。

Ａ４は日付のセルを参照（＝Ａ３）し、セル書式で「ａａａ」

次の月の初日は（Ｍ２セル）

＝Ａ１＋ＤＡＹ（ＤＡＴＥ（ＹＥＡＲ（Ａ１），ＭＯＮＴＨ（Ａ１）＋１，０））

Ａ１以降の関数はその月の日数の計算です。

合計・累計はお分かりですよね。

補足

すごいことが出来るものですね
２ヶ月までは出来たのですが、３ヶ月以降の表に下記の式を入れると同じになります。どうすれば出来るか申し訳有りませんがもう少しご教授お願いします

＞次の月の初日は（Ｍ２セル）

＞＝Ａ１＋ＤＡＹ（ＤＡＴＥ（ＹＥＡＲ（Ａ１），ＭＯＮＴＨ（Ａ１）＋１，０））

回答No.2

oresama

A2は、
=TEXT(A1,"m月")

A3は、
=TEXT(A1,"d")
B3に＝A3+1
C3以降、これをコピペ

A4は、
=TEXT(DATEVALUE(TEXT($A$1,"yyyy")&"/"&TEXT($A$1,"m")&"/"&A3),"aaa")
B4以降はコレをコピペ

M2に12月と表示させるには、

M1に、
=DATEVALUE(TEXT(A1+31,"yyyy")&"/"&TEXT(A1+31,"m")&"/"&1)

M2に、
=TEXT(A1+31,"m月")

M3に
=TEXT(M1,"d")
N3に
=M3+1
O3以降にコピペ

M4に、
=TEXT(DATEVALUE(TEXT($M$1,"yyyy")&"/"&TEXT($M$1,"m")&"/"&M3),"aaa")
N4以降、これをコピペ
これでいかがでしょう。

お礼

お礼が遅くなりました
回答有り難うございました
参考になりました
今後ともよろしくお願いします

回答No.1

qwer021

ABCDE　　　　　MNOPQ　　　　xyzxx
1 2002/11/1 　　2002/11/2　　2002/11/3
のようになれば　良いですか？

MNOPQのところで　半角の状態で　= カーソル左← +1と入力します。
B2に　=A1+1　と入ったと思います。
後は　B1をコピーして　C1以降にコピーします。
日付表示をした行をセルの書式設定　日付で　yyyy/mm/ddに変更してください。

勘違い等有りましたら　m(_ _)mごめんなさい

お礼

お礼が遅くなりました
回答有り難うございました
参考になりました
今後ともよろしくお願いします