Ｅｘｃｅｌの商品リストに使用期限を入れて、１年、６ヶ月を切った商品がわかるようにしたい。

質問

エクセルで商品管理表を作ります。表は、商品名、規格、使用期限、問屋くらいの簡単なリストなのですが、使用期限データから、検索日（たとえば今日）に１年、もしくは６ヶ月を切ってしまった商品がわかるようにする方法があったら教えてください。
基本的なエクセルは使用しますが、関数を使いこなすほど詳しくありません。よろしくお願いします。

回答No.5

hakkiriitte

hakkiriitteです。
今からしばらくgooから離れるので、ANo.3のセルの位置をいじったものをアップしておきます。
F4から下にyyyy/m形式の文字列で使用期限が入っている
L3に検索日入っているとして、
検索日の月の１日→M3
検索日の６ヵ月後の１日→N3
検索日の１年後の１日→O3
L4から下にF列を変換した日付形式のデータ
J4から下に「１年以下」「６ヶ月以下」と表示させる
というように変更します。

M3
=INT($L$3-DAY($L$3)+1)
N3
=$M$3+190-DAY($M$3+189)
O3
=$M$3+370-DAY($M$3+369)

この３つを解説しておきます。
M3のINT()関数は小数点以下を切り捨てる関数です。日付をあらわすシリアル値は、整数部で日付、小数部で時刻を表すので、NOW()関数なので取得した日付には小数がつきます。大小判定には邪魔なので、切っておきます。
DAY()関数はシリアル値から「日」だけ抜き出します。9月29日だったら29を返します。9月29日から29を引くと8月31日になります。それに1足せば、9月1日になります。与えられた月の１日のシリアル値を返す常套手段の一つです。
この応用で、与えられた日付シリアル値に例えば６ヶ月ちょっとの日数を加えて「日」を引いて１を足せば、６ヶ月後の１日になります。
N3の190と189、O3の370と369はそれぞれ６ヶ月ちょっと、１年ちょっとの日数です。ちょっとを加えるのは、大小の月やうるう年に備えるためです。
これらのセルの表示形式を日付にして、ちゃんと「１日（ついたち）」の日付になっているか確認してください。

L4～下に
=IF(ISBLANK(F4),"",DATEVALUE(F4&"/1"))
J4～下に
=IF(L4="","",IF(L4<=$N$3,"６ヶ月以下",IF(L4<=$O$3,"１年以下","")))

これも解説が必要ですね。
まず、IF()関数。書式は、IF(条件,式１,式２)。条件が真のとき式１の値を返し、偽のとき式２の値を返します。
ISBLANK()関数は、セルがブランクのとき真を返し、ブランクではないとき偽を返します。
したがって、L4～の式は、F4がブランクのときは「""」つまり空白が入り、何も表示されなくなります。
DATEVALUE()関数は、文字列を日付シリアル値に変換する関数です。F4に入っているのは、"2006/12"という月までの文字列ですから、これに"/1"をつけて、"2006/12/1"という文字列にしてDATEVALUE関数に渡せば、2006年12月1日のシリアル値が得られます。
J4～は、IF()が入れ子になっていて、L4の値がN4以下ならば「６ヶ月以下」、O4以下ならば「１年以下」と表示されるようになります。"１年以下"の次のパラメータの""をたとえば、"期限切れ"などとすれば、１年を超えた場合「期限切れ」と表示されます。
こんなところでご検討ください。

お礼

とっても詳しい説明を本当にありがとうございました。しかしながら、関数がちっともわかっていない私には、それでもむずかしすぎて・・・よけいなデータを全部取っ払って、期限データと、指定された場所（たぶん）に式をコピーしてみましたが、VALUEが出るばかり。そこで、「期限切れ」という言葉をヒントにgooのほかの質問を検索してみました。そこで、みつけました。
=IF(DATEDIF(TODAY(),F5,"M")<12,IF(MONTH(F5)-MONTH(TODAY())<12,"使用期限１年未満！",""),"")

これは、２ヶ月後が期限切れというものでしたが、３を１２にしたら、うまくいったようです。
もっともこれも、関数の意味は、わかっておりませんが、とりあえずできそうです。使用期限１年未満を○にでも変更すれば、素人向けには充分です。
親切なご回答ほんとうにありがとうございました。
今回教えていただいた関数については、別途勉強してみることにしました。今後役に立ちそうですから。