[[20050304222451]]　『日付の表示について』（gori）　ページの最後に飛ぶ

『日付の表示について』（gori）

お世話になります。

日付が入ったセルで表示形式を「ggge"年"m"月"d"日"」にすると、

2005/3/4　　→　平成17年3月4日

2005/12/24　→　平成17年12月24日　となります。

このとき、「平成17年3月4日」を自動的に「平成17年 3月 4日」（一桁の時にスペースが入る）と表示する形式ってできますか。

月や日が一桁表示のセルに「ggge"年" m"月" d"日"」とスペースを入れればうまく表示されるのはわかるんですが、結構な数あるもので一括して表示形式あたりでうまくいかないかなと思いまして・・

よろしくお願いします。

 あのぉ、、あえて、、ですが、、
ggge"年"mm"月"dd"日"
これ↑以外での話ですよね？？
全然、見当違いでしたら、、ごめんなさいです。。
（SoulMan）

 当該範囲を選択して実行してみて下さい。　　　　　　　　　　　　　　　　　(LOOKUP)
 値を変更した場合には、再度、実行が必要です。

 Sub Macro1()

     Dim r As Range
     Dim e1 As String
     Dim m1 As String
     Dim d1 As String

     For Each r In Selection

     e1 = "e"
     If Left(Format(r, "ee"), 1) = "0" Then e1 = "_0" & e1

     m1 = "m"
     If Left(Format(r, "mm"), 1) = "0" Then m1 = "_0" & m1

     d1 = "d"
     If Left(Format(r, "dd"), 1) = "0" Then d1 = "_0" & d1

     r.NumberFormatLocal = "ggg" & e1 & "年" & m1 & "月" & d1 & "日"

     Next

 End Sub

 マクロのサンプルですが、どうぞ。
http://miyahorinn.fc2web.com/sample/vbastock.html
（みやほりん）

レス遅くなりました。m(_ _)m

SoulManさん、そうなんです。言葉足らずでした。
要は、他の方から回答していただいたように桁を揃えたいということだったんです。

LOOKUPさん、できました！やっぱりマクロじゃないとできないんですね。

みやほりんさん、サンプル有難うございました。
大変参考になりました。大切に使わせていただきます。

皆さん、回答有難うございました。またまた助けていただきました。

 質問要件からはそれるかもだけど、作業列を使ってよければ、って事で補足の一案。
 =TEXT(A1,"ggg")&RIGHT(TEXT(A1," e"),2)&"年"&RIGHT(TEXT(A1," m"),2)&"月"&RIGHT(TEXT(A1," d"),2)&"日"
これで出た値をコピーして使うとか。
↓と同じ考え方
[[20050304135640]]『右からRIGT関数+LEFT関数をしたい』（サチチ）
（ご近所PG）

 >LOOKUPさん、できました！やっぱりマクロじゃないとできないんですね。
 ＭＳＰゴシックやＭＳＰ明朝のフォントを使用する場合には、このように個別にセルの書式設定を
 行うことが必要のように思います。各セル、手で設定されても勿論かまいません。　　　(LOOKUP)

ご近所PGさん、有難うございます。

了解しました。頭と関数は使いようですね。作業列を非表示にすれば何の問題もなく使えそうです。

LOOKUPさん、再度のレス有難うございます。

こちらも了解しました。私の場合、「ＭＳゴシック」を結構使ってますので、その他のフォントを使う場合気をつけておきます。

いや～・・Excelって面白いですね～。

コメント返信：

[ 一覧(最新更新順) ]

[[20050304222451]] 『日付の表示について』（gori） ページの最後に飛ぶ

[[20050304222451]]　『日付の表示について』（gori）　ページの最後に飛ぶ