Excelで月を入力すると、日付を自動で表示

質問

Excelで以下を実現したいのですが↓

手順１：Ａ１セルに「５」と手入力する
手順２：Ａ２～Ａ３２セルに、「５／１」～「５／３１」までの日付が自動で入力される

手順２を実現する関数を教えて下さい。
Ａ１セルに入力された「５」を読み取り、
５月の日付を自動でＡ２～Ａ３２セルに表示する関数を教えて下さい。
（※５月だけではなく、１月～１２月にも対応できる関数で）
よろしくお願いします。

回答No.7

arukamun · ベストアンサー

こんにちは

年号もという事ですね。

=IF(MONTH(DATE($A$1,$A$2,ROW()-2))=$A$2,TEXT(DATE($A$1,$A$2,ROW()-2),"m/d"),"")

全角で表示したいのであれば、

=JIS(IF(MONTH(DATE($A$1,$A$2,ROW()-2))=$A$2,TEXT(DATE($A$1,$A$2,ROW()-2),"m/d"),""))

でよろしいかと思います。

お礼

これで解決しました！
ありがとうございました。

回答No.6

imogasi

>Ａ２に５/１と入力し”は、”手入力で「2003/5/1」を入力し”ということですよね
そうです。2003/5/1と入れるのも、5/1と入れるのも、２００３年の時点では「エクセルの上では」同じだから、敢えて5/1と書きました。
＞月中日数の３１セルほど下へ
日を縦に並べるとして、Ａ２が１日なら、５月なら３１日分を引っ張れば、オートフィルで１－＞２－＞３－＞・・
３１が埋まってくれると言うことです。
＞小の月」とは何の事でしょうか
２，４、・・月の月末が３１日でない月です。
＃３の方もこの言葉を使っておられます。私だけの用語ではありません。
＞Ａ３に=DATE($A$1,$B$1,ROW()-1)を入れたのですが、そうすると、Ａ３に「2003/5/2」と表示されていますが・・・。
私はＡ２に５月１日を出す積もりで、上記のようにしました。Ａ３から５月１日を始めるのならROW()-1をROW()-2
にしてください。
＞これだと、Ａ２セルに「2003/5/1」を手入力しないといけないんですよね
これは上記のことで解決します。
＞３２行目の処理を消すというのは、どういうことでしょうか？
「３１日がない月の場合、３１日を消す」という事ですか
簡単な関数式のやり方（例えば＃１）だと３０日が月末の月の場合、３１日まで複写したセルの処理をしなければならないわけです。
そこで不満が出そうだったから、＃４の回答を追加しました。だから＃４の回答でこの問題は解決しています。
＞３１日がない月を自動で判断して表示したり、非表示にしたりができると思ってたのですが、できないのでしょうか？
＃４がそのことを解決しています。
●私の場合A1に２００３と年、B1（A2でなく）に５と月を
入れる例で説明していますので、ご注意下さい。

お礼

すみません、何度も回答して頂き、大変ありがとうございました。

回答No.5

arukamun

こんにちは

A2セルからA32セルへ

=IF(MONTH(DATE(YEAR(TODAY()),$A$1,ROW()-1))=$A$1,TEXT(DATE(YEAR(TODAY()),$A$1,ROW()-1),"m/d"),"")

をコピーして下さい。
ちょっと長めになってしまったのは、次の月が出ないようにしています。
また、全角で表示したいのであれば、

=JIS(IF(MONTH(DATE(YEAR(TODAY()),$A$1,ROW()-1))=$A$1,TEXT(DATE(YEAR(TODAY()),$A$1,ROW()-1),"m/d"),""))

を使ってみてください。

補足

教えて頂いた通りにやると、希望通りのものが出来ました！
ありがとうございます！

それと・・やはり月だけではなくて、年号も手入力するようにしたいのですが↓

Ａ１セルに、2003
Ａ２セルに、5
Ａ３セル～Ａ３３セルに、自動で日付表示

という方法の場合、Ａ３セル～Ａ３３セルに入れる式？を
教えて頂けないでしょうか・・。

度々すみませんが、よろしくお願いします！

回答No.4

imogasi

＃１のものです。Ａ１：Ａ３２まで複写すると小の月の
３２行目の処理に消すとか手作業が必要ですが、そこまで
凝るなら
=IF(DATE($A$1,$B$1,ROW()-1)>EOMONTH($A$1&"/"&$B$1&"/1",0),"",DATE($A$1,$B$1,ROW()-1))
と入れます。
但しツール－アドイン－分析ツールにチェックを入れる必要があります。
今年２月も２９日以下はブランクになりました。

補足

度々すみません・・

＞小の月の３２行目の処理に消すとか手作業が必要ですが

すみません・・「小の月」とは何の事でしょうか？
３２行目の処理を消すというのは、どういうことでしょうか？
「３１日がない月の場合、３１日を消す」という事ですか？年月を入れることによって、
３１日がない月を自動で判断して表示したり、非表示にしたりができると思ってたのですが、できないのでしょうか？

回答No.3

AQUALINE

VBAでやる方法もありますね。
標準モジュールに以下を貼り付けます。一度貼り付けておけばあとから何度でも使えます。

Sub test()
Dim i As Integer, m As Integer
m = Cells(1.1).Value

Range("A2:A32").Select
Selection.ClearContents
Selection.NumberFormatLocal = "m""月""d""日"""
Range("A1").Select
Selection.NumberFormatLocal = "G/標準"

For i = 3 To 32
Cells(2, 1) = m & "/" & 1
Cells(i, 1) = Cells(i - 1, 1) + 1
Cells(i, 2) = "=Month(A" & i & ")"
If (Cells(i, 2)) > m Then
Cells(i, 1) = ""
Range("B2:B32").ClearContents
Exit Sub
End If
Next i
Range("B2:B32").ClearContents
End Sub

A1セルに1～12の数字を入れた後、このマクロを実行すればその年の指定月のみの日付が自動表示となります。
大の月、小の月、うるう年すべて対応します。

補足

なるべくマクロは使わずに実現したいのですが、
やはりマクロでやるべき事なのでしょうか？

回答No.2

imogasi

＃１です。質問に乗せられて＃１を上げましたが、質問の
ニーズの場合、Ａ２に５/１と入力し月中日数の３１セルほど下へフィルハンドル＋を引っ張れば良くて、関数は使わなくて良いと思います。＃１及びこの方法とも、５／１のように出すためには、書式－セル－日付－３／４をクリックして書式設定してください。毎月やり直しになる点デメリットですが２ステップですしね。

補足

度々すみません・・。

＞Ａ２に５/１と入力し月中日数の３１セルほど下へフィルハンドル＋を引っ張れば良くて

の”月中日数の３１セルほど下へ”とは、どういう意味でしょうか？
”Ａ２に５/１と入力し”は、”手入力で「2003/5/1」を入力し”ということですよね？

回答No.1

imogasi

A1に５と入れる。
Ａ２に式=DATE(2003,$A$1,ROW()-1)と入れる。
Ａ３以下Ａ３２まで＋ハンドルを出して、下へ引っ張る（
式を複写する）。
１年に一回は２００３を変える必要あり。
むしろＡ１に２００３、Ｂ１に５と入れ
Ａ３に=DATE($A$1,$B$1,ROW()-1)を入れて複写するのが
お勧めです。

補足

Ａ１に２００３、Ｂ１に５を入れ
Ａ３に=DATE($A$1,$B$1,ROW()-1)を入れたのですが、そうすると、
Ａ３に「2003/5/2」と表示されていますが・・・。
「2003/5/2」からではなく、「2003/5/1」から表示させたいんです。
これだと、Ａ２セルに「2003/5/1」を手入力しないといけないんですよね？
できれば、手入力するのは、「５」と「２００３」だけにしたいのですが。
そんなことって無理なのでしょうか？