发布网友
共3个回答
热心网友
整段代码应该是这样的
Sub
xx()
Sheet1.Range("a1").Calculate
Application.OnTime
Now()
TimeValue("00:00:01"),
"xx"
End
Sub
Sheet1.Range("a1").Calculate这个表示计算A1单元格的值,而A1单元格是=NOW(),其单元格格式为YYYY-MM-DD
HH:MM:SS
Application.OnTime
Now()
TimeValue("00:00:01"),
"xx"这个表示当前时间加上1秒的时候就运行代码名称为“xx”的代码,这样就可以动态显示时间了。
希望我的回答你能满意。
热心网友
演示Excel怎么自动添加当前的日期
热心网友
Excel表格打印怎么自动添加时间?这个视频告诉你!