drawcell事件
If e.col.name = "开始日期" AndAlso e.text > "" Then
e.text = format(cdate(e.text), "yyyy年MM月dd日")
End If