Select Case e.Col.Name
Case "日期"
If e.row.Isnull("日期") = False
e.Value = CLDate(e.row("日期"))
End If
End Select