[[20070820182115]]　『日付の桁を揃えたい』（さとちゃん）　ページの最後に飛ぶ

『日付の桁を揃えたい』（さとちゃん）

日付の表示を全角表示をするためユーザー定義に

 [DBNum3]yyyy"年"mm"月"dd"日"としています。
これだと、２００７年０８月２０日と表示とされるのですが、出来れば２００７年　８月２０日という風にゼロではなくスペースで表示したいのです。
誰か教えてください。

 このような表示方法は、ありますね。↓　(#REF!MAN)
[[20070706114120]]『TODAY()の表示方法について教えて下さい。』（REYER）

 前に書いたものですが、当該範囲を選択して実行してみて下さい。
 値を変更した場合には、再度、実行が必要です。
 空白が少しずれるかもしれません。                           (LOOKUP)
[[20050304222451]]『日付の表示について』（gori）

 Sub Macro1()

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

     For Each r In Selection

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

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

     r.NumberFormatLocal = "[DBNum3]yyyy年" & m1 & "月" & d1 & "日"

     Next

 End Sub

 シートモジュールに下記マクロをコピーし、Ａ列に適当な日付を入れて
 お試し下さい。
（純丸）(o^-')b
　
 Private Sub Worksheet_Change(ByVal Target As Range)

   Dim mym As Integer
   Dim myd As Integer

   With Target
     If .Column <> 1 Then Exit Sub
     If .Count <> 1 Then Exit Sub
     On Error Resume Next

     mym = Month(.Value)
     myd = Day(.Value)
       .NumberFormatLocal = "[DBNum3]yyyy""年""m""月""d""日"""
     If mym < 10 And myd < 10 Then
       .NumberFormatLocal = "[DBNum3]yyyy""年""  m""月""  d""日"""
     End If
     If mym >= 10 And myd < 10 Then
       .NumberFormatLocal = "[DBNum3]yyyy""年""m""月""  d""日"""
     End If
     If mym < 10 And myd >= 10 Then
       .NumberFormatLocal = "[DBNum3]yyyy""年""  m""月""d""日"""
     End If
   End With

 End Sub

みなさん、ありがとうございました。勉強になります！

コメント返信：

[ 一覧(最新更新順) ]

[[20070820182115]] 『日付の桁を揃えたい』（さとちゃん） ページの最後に飛ぶ

[[20070820182115]]　『日付の桁を揃えたい』（さとちゃん）　ページの最後に飛ぶ