Excelの日付入力

質問

Excelの日付入力で「241212」と打って「平成24年12月12日」とセルに表示され、なおかつ上のバーには2024/12/12ではなく2012/12/12ときちんと表示させる方法はありますか？

回答No.1

keithin · ベストアンサー

＞上のバーには2024/12/12ではなく2012/12/12ときちんと表示させる

エクセルには，原則として記入した内容を勝手に改変する機能はありません。（例外：小数点の位置を書き換える）
ご希望の事をやるには，マクロを使って記入内容を代理で書き換えさせるような手になります。

例えば：
Ａ列に241212と記入した場合に2012/12/12と書き換える

手順：
シート名タブを右クリック，コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　on error resume next
　application.enableevents = false
　for each h in application.intersect(target, range("A:A"))
　if h <> "" then
　　h.value = datevalue("H" & format(h.value, "00-00-00"))
　　h.numberformatlocal = "ggge年m月d日"
　end if
　next
　application.enableevents = true
end sub

ファイルメニューから終了してエクセルに戻る
Ａ列に241212のように必ず６桁にした「日付として間違いのない数字」を記入する。

＃参考
セルの表示形式のユーザー定義で
平成00年00月00日
と設定しておいて
241212
を記入した方が，遙かに簡単です。

お礼

やっぱりうまくいかないもんですね。
ありがとうございます。