[[20070820182115]] 『日付の桁を揃えたい』(さとちゃん) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

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

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

 このような表示方法は、ありますね。↓ (#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

 シートモジュールに下記マクロをコピーし、A列に適当な日付を入れて
 お試し下さい。
(純丸)(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


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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.