说实话，我没敢让宏运行，
逃。。。。。。。
但在宏没有运行的时候，改单元格格式是可以的



试试这个呢？
7  Cells(Target.Row, 3) = Date '所在行单元格获取当前年月日和时间
8  Cells(Target.Row,3).NumberFormatLocal = "yyyy-mm-dd" '日期格式

【 在 azeng 的大作中提到: 】
: 你测试正常吗？
: 我改过日期格式不管用
:
--
修改:reeqoo FROM 120.244.172.*
FROM 120.244.172.*