エクセルの日付表示の書式設定

質問

こんにちはお世話になっております

教えていただきたいのは、エクセルの日付表示についてです。

条件としてはセルに日付を入力したときに以下のように表示したいです。
８／１と入力したとき　　２００６年　８月　 1日
８／１３と入力したとき　２００６年　８月１３日
１０／３と入力したとき　２００６年１０月　３日

様はセルの中で数字が１桁でも２桁でも位置が会うようにしたいです。
配置で均等とかにしてもずれてしまうので、何か言い方法があればと思うのですが、教えてください
なお、年月日になるようにするのはセルの書式設定でユーザー定義で[DBNum3]ggge"年"m"月"d"日"の設定で表示させています。
mmやddにしてしまうと０８などになってしまうので、そうではなく　８と表示させたいです。
分かりにくい説明ですが、教えてください。

回答No.1

noname#37676 · ベストアンサー

こんにちは。
関数で別セルに置くのであれば、ムリヤリですが、
「=JIS(IF((MONTH(A2)<10),(IF((DAY(A2)<10),TEXT(A2,"yyyy年 m月 d日"),TEXT(A2,"yyyy年 m月d日"))),(IF((DAY(A2)<10),TEXT(A2,"yyyy年m月 d日"),TEXT(A2,"yyyy年m月d日")))))」
かなりファイルが重たくなりますが・・・
ほかに、VBAでできると思います。以前、どこかのHPに載っていたような気がしますが、私自身がVBに関して勉強中のため、サンプルコードなどは作成できません。
もし見つかったら、また連絡しますね。

回答No.2

noname#204879

=TEXT(A1,"yyyy")&"年"&IF(MONTH(A1)<10," "&MONTH(A1),MONTH(A1))&"月"&IF(DAY(A1)<10," "&DAY(A1),DAY(A1))&"日"

または

=TEXT(A1,"yyyy")&"年"&IF(MONTH(A1)<10,JIS(MONTH(A1)),MONTH(A1))&"月"&IF(DAY(A1)<10,JIS(DAY(A1)),DAY(A1))&"日"

お礼

最初の方法でうまくいきました
ありがとうございました