很简单，如果你是直接在EXCEL的UserForm里面做的，那么就一句代码：
Private Sub CommandButton1_Click()
Cells(1, "A") = Format(Now(), "yyyy-mm-dd,hh:mm:ss") '在A1写入年-月-日，时：分：秒
Range("A2") = Format(Now(), "yyyy-mm-dd") '在A2写入年-月-日
Cells(3,1) = format(Now(),"hh:mm:ss") '在A3写入时：分：秒
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024