条件付き書式設定マクロ

和暦の年、月、日のそれぞれで、数字が１桁のとき、
例えば、５月のとき、平27.05.17 とせずに、
空白を付加して　　　平27. 5.17 とします。
列の日付が0埋めでなく、揃って表示されます。

Option Explicit

Sub 和暦条件付き書式設定マクロ()
Dim i　　　As Long
Dim j　　　As Long
Dim MaxCol As Long
Dim MaxRow As Long
Cells(1, 1).Select
MaxCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
MaxRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For j = 1 To MaxCol
　For i = 1 To MaxRow
　　If IsDate(Cells(i, j)) Then
　　　With Cells(i, j)
　　　　.FormatConditions.Delete
　　　　.FormatConditions.Add Type:=xlExpression, _
　　　　　　　　　　　　　　　Formula1:="=AND(VALUE(TEXT(RC[],""e""))>9,MONTH(RC[])>9,DAY(RC[])>9)"
　　　　.FormatConditions.Add Type:=xlExpression, _
　　　　　　　　　　　　　　　Formula1:="=AND(VALUE(TEXT(RC[],""e""))>9,MONTH(RC[])>9,DAY(RC[])<10)"
　　　　.FormatConditions.Add Type:=xlExpression, _
　　　　　　　　　　　　　　　Formula1:="=AND(VALUE(TEXT(RC[],""e""))>9,MONTH(RC[])<10,DAY(RC[])>9)"
　　　　.FormatConditions.Add Type:=xlExpression, _
　　　　　　　　　　　　　　　Formula1:="=AND(VALUE(TEXT(RC[],""e""))>9,MONTH(RC[])<10,DAY(RC[])<10)"
　　　　.FormatConditions.Add Type:=xlExpression, _
　　　　　　　　　　　　　　　Formula1:="=AND(VALUE(TEXT(RC[],""e""))<10,MONTH(RC[])>9,DAY(RC[])>9)"
　　　　.FormatConditions.Add Type:=xlExpression, _
　　　　　　　　　　　　　　　Formula1:="=AND(VALUE(TEXT(RC[],""e""))<10,MONTH(RC[])>9,DAY(RC[])<10)"
　　　　.FormatConditions.Add Type:=xlExpression, _
　　　　　　　　　　　　　　　Formula1:="=AND(VALUE(TEXT(RC[],""e""))<10,MONTH(RC[])<10,DAY(RC[])>9)"
　　　　.FormatConditions.Add Type:=xlExpression, _
　　　　　　　　　　　　　　　Formula1:="=AND(VALUE(TEXT(RC[],""e""))<10,MONTH(RC[])<10,DAY(RC[])<10)"
　　　　.FormatConditions(1).NumberFormat = "gge.m.d;@"
　　　　.FormatConditions(2).NumberFormat = "gge.m._0d;@"
　　　　.FormatConditions(3).NumberFormat = "gge._0m.d;@"
　　　　.FormatConditions(4).NumberFormat = "gge._0m._0d;@"
　　　　.FormatConditions(5).NumberFormat = "gg_0e.m.d;@"
　　　　.FormatConditions(6).NumberFormat = "gg_0e.m._0d;@"
　　　　.FormatConditions(7).NumberFormat = "gg_0e._0m.d;@"
　　　　.FormatConditions(8).NumberFormat = "gg_0e._0m._0d;@"
　　　End With
　　End If
　Next i
Next j
End Sub