エクセル 日付入力について

質問

日付が一覧になっているデータがあります。

S620115
H240901

です。

これをエクセルに入力する作業があるのですが、
上記の例だと
S62.1.15
H24.9.1
というように入力しています。（一つのセルに一つの日付で入力しています）

これだと、数字の他にアルファベットやピリオドも入ってくるので
入力に時間がかかってしまうので困っています。（データが大量にあるので）

できれば”620115”など、数字のみ一度に入力してしまって、
後からなんらかの操作をして”S62.1.15”の形に直して作業時間を短縮
したいのですが、良い方法ありますでしょうか。

試したのはMID関数で、”620115”を”62”、”01”、”15”と三つのセルに
分けて、後から別のセルに”＆”を使ってまとめる（その際”S”などの文字もつける）
をやってみたのですが、これだと”S62.01.15"という形になるのです。

そのセルをダブルクリックすると、”S62.1.15"に直るのですが、
データが大量にあるので、一つ一つのセルをダブルクリックすると
また時間がかかってしまい、最初から直接入力した方が早いかも

といった感じになっています。

ちなみに、日付は古い順から並んでいるので、最初にSをつけるかHをつけるか
は、途中で一箇所式を変えれば良いのでそれほど手間ではありません。

どなたか、良い方法をご教授いただけますか。
よろしくお願いいたします。

回答No.5

KURUMITO · ベストアンサー

次のような式で良いでしょう。

=VALUE(LEFT(A1,1)&TEXT(MID(A1,2,6),"0-00-00"))

セルの表示形式は和式の日付から選択します。

回答No.9

MackyNo1

>教えていただいた数式ですが、最後に1をかけるのはどうしてですか？

＆やMID関数やTEXT関数などの文字列を取得する数式で作成した場合は、表示結果の日付が「文字列」で返されます。単に日付を表示したいだけの場合は、文字列日付のままでも問題ないので1を掛ける必要はありません。

しかし、この日付をいろいろな計算に使用する場合は、一般的にシリアル値という連続数字（表示形式は自由に変更できる）に変換するほうが自由度が高くお勧めです。

そのために、数式の結果である「エクセルが日付と認識できる形で表示された」文字列日付に1を掛けて実際の「数値」型の日付に変換させています。

これはエクセルがシリアル値と認識できる形の文字列（時刻や日付）を加減乗除すると、エクセルが気を利かせて日付や時刻と判断して計算してくれる機能を利用していますので、1を掛けるのではなく、例えば0を足してもよいことになります。

回答No.8

KURUMITO

回答Ｎｏ5です。Ｎｏ5ではＡ1セルがS620115のように入力されていた場合を答えてしまいました。
単にＡ1セルに620115と入力されている場合には昭和で良いのでしょうが例えば平成24年1月15日と昭和24年1月15日の場合にはどちらも240115となって区別がつきません。
そこで区別が分かるようにもう一つ数字を頭に追加して、昭和の場合は1、平成の場合には2のように入力してはどうでしょう。
平成24年1月15日の場合には2240115、昭和24年1月15日は1240115といった入力になります。
それらの数値がＡ1セルにあるとしたらＢ1セルには次の式を入力します。

=VALUE(IF(LEFT(A1,1)="1","S","H")&TEXT(MID(A1,2,6),"0-00-00"))
又は
=(IF(LEFT(A1,1)="1","S","H")&TEXT(MID(A1,2,6),"0-00-00"))*1

この式では頭に1以外の文字が有った場合には2とは限らずに平成となります。
下の式で1を掛けているのは文字列を数値に変換するためです。ＶＡＬＵＥと同じ意味になります。
なお、回答Ｎｏ4さんの270000以上ではＳにそれより小さければＨにするとの意味は27年以上の年では昭和にして26年以下の年では平成にしなさいとの意味を含んでいます。昭和24年1月15日は平成になってしまいます。

回答No.7

chayamati

エクセルの日付はシリアルナンバーという西暦表現です。

・昭和の年を西暦にするには１９２５を加算します
・平成の年を西暦にするには１９８８を加算します

従って６ケタの数字がA1として
前半の昭和は
=DATE((LEFT(A1,2)+1925),MID(A1,3,2),RIGHT(A1,2))
後半の平成は
=DATE((LEFT(A1,2)+1988),MID(A2,3,2),RIGHT(A2,2))

如何ですか

回答No.4

keithin

=IF(A1="","",1*(IF(A1>260000,"S","H")&TEXT(A1,"0-00-00")))
セルの書式設定を和暦の日付に設定する

とかでいいです。

お礼

シンプルな数式で、大変参考になりました。
回答ありがとうございました。

よろしければ、数式の中の260000の意味と、1をかける意味を教えていただけませんか？

回答No.3

Nouble

そこまでいってるならもう終わったようなものですね
あと一歩！！
Datevalue関数で¨S62.01.15¨を
くくってみてください。
ちゃんと日付けの値にしてくれると思いますよ。

別のやり方としては
¨620115¨の場合
=DATE(year(VALUE(MID(A1,1,2))),mont(VALUE(MID(A1,3,2))),day(VALUE(MID(A1,5,2))))

620115の場合
=DATE(year(MOD(INT(A1/POWER(10,(3-1)*2),POWER(10,(3)*2))),MONTH(MOD(INT(A1/POWRE(10,(2-1)*2),POWER(10,(2)*2))),DAY(MOD(INT(A1/POWER(10,(1-1)*2),POWER(10,(1)*2))))

H62/1/15と入れても
認識してくれますよ。

お役に立てていたならば幸いです。

お礼

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

色々な方法がある事が分かり、大変参考になります。

回答No.2

MackyNo1

参考までに、

少し手間が増えるかもしれませんが、「620115」と数字が入力されているセルをまとめて直接日付シリアル値に変更したいなら以下のような操作で変換することができます。

どこかのセルに「19250000」と入力しておき、このセルをコピーし、昭和の数字のデータ範囲を選択し、右クリック「形式を選択して貼り付け」で「加算」します。
同様に平成の日付範囲を選択し「19880000」を加算して、この数字日付列を選択して「データ」「区切り位置」で「次へ」「次へ」で「日付」にチェックを入れ「完了」してください。

回答No.1

MackyNo1

例えばA1セルに日付が入力されている場合、平成2年12月25日は「21225」と入力して、昭和25年以前のデータが無い条件なら以下の式を入力して、セルの書式を日付にすればご希望の表示ができます。

=(IF(INT(A1/10000)<25,"H","S")&INT(A1/10000)&"."&MOD(INT(A1/100),100)&"."&MOD(A1,100))*1

お礼

早速のご回答、本当にありがとうございます。
この様な方法があるのかと目からウロコでした。
（もう一つの回答の方法も是非使わせていただきます。）

教えていただいた数式ですが、最後に1をかけるのはどうしてですか？
良かったら教えていただけますか？