日付の表示を揃える: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

スポンサードリンク

よねさんのWordとExcelの小部屋｜Excel(エクセル) VBA入門：目次｜日付の表示を揃える

PageViewCounter
　 Counter
　Since2006/2/27