EXCEL 年月日の表示形式についてお尋ね

いつもお世話になっています。

セルの表示形式ですが、「年月日」のばあい、「yy/mm/dd」とすると、「05/12/01」とでます。また、「yy/m/d」とすると、「05/12/1」とでます。

そこで、「05/12/ 1」と「前ゼロ」を出さない表示形式はあるものでしょうか？もちろん「時分秒」でも同じことですが・・・。「_」(アンダースコア)が使えるのかな？と思って試してみましたが、「日」が二桁のばあいは「05/12/ 12」のように、スペースが入ってしまいます。

もちろん、関数を使って他のセルに表示させるのではなく、そのセルの表示形式として実現したいのです。

自宅=98SE+office2000,会社=XP+office2003です。よろしくお願いします。

No.1 回答者： imogasi 回答日時： 2005/11/30 23:35

月日について１桁の月日の場合、スペース＋月、スペース＋日のように表示する書式を望んでおられるのでしょうか。

桁合わせのためにでしょうか。
その書式は現状エクセルにないと思います。

No.2 回答者： kaisendon 回答日時： 2005/11/30 23:36

こんばんは

時々同様の質問を見ますが、無理っぽいですねぇ。。。
（もし、方法があるならば私も知りたいです）

Excelの質問掲示板で検索をかけてみました

表示形式で月日の桁合わせをするには？
http://cgi.fuji.ne.jp/~fj2094/cgi-bin5/wwwlng.cg …

セルの書式設定（日付）について
http://hpcgi1.nifty.com/kenzo30/a_cbbs/cbbs.cgi? …

日付の表示について
http://excelfactory.net/excelboard/exgeneral/cfs …

やっぱり無理っぽいです。。。

No.3 回答者： Wendy02 回答日時： 2005/12/01 13:15

こんにちは。

ゼロサプレスで、ゼロを空白にするというのは、標準的な書式では出来ません。
以下のような、イベント・ドリブン型のマクロなら可能です。

シートタブを右クリックして、コードの表示で以下を貼り付け、Alt + Q で、画面を閉じます。
'--------------------------------------------
'<シートモジュール>
Private Sub Worksheet_Change(ByVal Target As Range)
　 Dim myFormat As String
　 '例/ A1:A2000 までの範囲の場合、書式を換える
　 If Intersect(Target, Range("A1:A2000")) Is Nothing Then Exit Sub
　 If Not IsDate(Target.Cells(1)) Then Exit Sub
　 With Target.Cells(1)
　　　myFormat = "yy/" & Space(2 - Len(Month(.Value))) & "m/" & Space(2 - Len(Day(.Value))) & "d"
　　 .NumberFormatLocal = myFormat
　 End With
End Sub

'--------------------------------------------

この回答へのお礼

みなさん、ご回答ありがとうございます。やはり、ダメのようですね。私が使うシートではなくて、余りパソコンに慣れていない人が使うものなのです。

月日を区切る「/」の桁を揃えるためにわざわざ一列設けているのです。日数計算とかに利用するのではなく、ただ単に「桁が揃う」という見栄えのために、そんな面倒なことをしていたものですから、「セルの書式設定」でできないかと思った次第です。「前ゼロ」を許せば、なんという事はないのですが・・・。

お手数をおかけして申し訳ありません。ありがとうございました。

マイクロソフトが対応してくれるのを待つしかないようですね！

お礼日時：2005/12/01 22:24

No.4 回答者： Wendy02 回答日時： 2005/12/01 23:49

こんばんは。

Wendy02です。


書式設定の日付には、以下の数字に用いる、ゼロサプレスの　0　空白のモードがありません。

あとは、3つのセルをまとめて使うか、

B1:
=IF(A1="","",TEXT(A1,"yy")&"/"&TEXT(MONTH(A1),"?#")&"/"&TEXT(DAY(A1),"?#"))

日付は、このような数式を使うかありませんね。