1. Home » 
2. Excel講座の総目次 » 
3. Excel VBA入門：目次 » 
4. 日付の表示を揃える

日付の表示を揃える:Excel VBA入門

はじめに

• 日付を並べた時、一桁のときと二桁のときに揃える例です。
• 平成21年01月02日のように頭に「0」を加えると揃うのですが、頭の「0」をスペースにしたいと思います。

日付の表示形式

• 和暦で表示する時の表示形式は　[$-411]ggge"年"m"月"d"日";@　です。
• 数字が一桁のとき前にスペースを置くには　[$-411]ggg_0e"年"_0m"月"_0d"日";@　とします。
  「_0」とすることによって数字のフォント幅分のスペースを入れます。
• これは年月日すべてが一桁の場合ですので、年が一桁の場合と二桁の場合、月も一桁の場合と二桁の場合、日も一桁の場合と二桁の場合をそれぞれ作成することにしました。
  • 一桁と二桁の判定は年は和暦の場合文字数で判定し、月と日は10未満が一桁、10以上が二桁と判定しています。

マクロ(VBA)コードの例

• fujiiさんが提供してくださったコードを利用させていただきました。ご指摘ありがとうございました。
  また、ｙｙｙｙ/ｍ/ｄタイプのコードも提供していただきましたので併せて掲載させていただきます。
• コード例
  • ワークシートのChengeイベントを使用します。
  • A1:A50セルが変更されたら表示形式を変更します。

  • Private Sub Worksheet_Change(ByVal Target As Range) 　　Dim c As Range 　　Dim fmt As String 　　　　If Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub 　　　　For Each c In Intersect(Target, Range("A1:A50")) 　　　　　　If IsDate(c.Value) Then 　　　　　　　　If Len(Format(c.Value, "e")) = 1 Then 　　　　　　　　　　fmt = "[$-411]ggg_0e年" 　　　　　　　　Else 　　　　　　　　　　fmt = "[$-411]ggge年" 　　　　　　　　End If 　　　　　　　　If Format(c.Value, "m") < 10 Then 　　　　　　　　　　fmt = fmt & "_0m月" 　　　　　　　　Else 　　　　　　　　　　fmt = fmt & "m月" 　　　　　　　　End If 　　　　　　　　If Len(Format(c.Value, "d")) < 10 Then 　　　　　　　　　　fmt = fmt & "_0d日" 　　　　　　　　Else 　　　　　　　　　　fmt = fmt & "d日" 　　　　　　　　End If 　　　　　　c.NumberFormatLocal = fmt & ";@" 　　　　　　End If 　　　　Next c End Sub

  • 実行後の状態例
    
  • ｙｙｙｙ/ｍ/ｄタイプのコード例
    

    Sub DateFormat_yyyy() '//////////////////////////////////////////////////////////// ' 選択した日付セルの表示形式を空白付の桁合せにする ' 例：2009/ 6/ 3 ' 2009/06/23 ユーザー名 : Fujii ' 　　Dim rng As Range, fmt As String 　　　　For Each rng In Selection 　　　　　　If IsDate(rng.Value) Then 　　　　　　　　fmt = "yyyy/" 　　　　　　　　If Month(rng.Value) > 9 Then 　　　　　　　　　　fmt = fmt & "m/" 　　　　　　　　Else 　　　　　　　　　　fmt = fmt & "_0m/" 　　　　　　　　End If 　　　　　　　　If Day(rng.Value) > 9 Then 　　　　　　　　　　fmt = fmt & "d" 　　　　　　　　Else 　　　　　　　　　　fmt = fmt & "_0d" 　　　　　　　　End If 　　　　　　　　rng.NumberFormatLocal = fmt 　　　　　　End If 　　　　Next rng End Sub

スポンサードリンク

PageViewCounter
　
　Since2006/2/27