首先将此列的时间格式设置成DateLongTime
设置PrepareEdit事件代码:
If e.col.name = "日期时间" Then e.Cancel = TrueEnd If
设置DoubleClick事件代码:
If e.col.name = "日期时间" Then e.Row("日期时间") = NowEnd If