Excel 每隔2秒执行过程怎么实现
答案:1 悬赏:70 手机版
解决时间 2021-03-21 06:49
- 提问者网友：缘字诀
- 2021-03-20 09:51
Excel 每隔2秒执行过程怎么实现
最佳答案
- 五星知识达人网友：独钓一江月
- 2021-03-20 10:03
可以是Application.OnTime事件来完成。
举个例子，比如单元格A1每隔5秒使用当前时间更新一次。该事件重复运行
Sub UpdateClock()
ThisWorkbook.Sheets(1).Range("A1") = Time
NextTick = Now + TimeValue("00:00:05")
Application.OnTime NextTick, "UpdateClock"
End Sub
''下面过程用于停止该事件
Sub StopClock()
On Error Resume Next
Application.OnTime NextTick, "UpdateClock", , False
End Sub
举个例子，比如单元格A1每隔5秒使用当前时间更新一次。该事件重复运行
Sub UpdateClock()
ThisWorkbook.Sheets(1).Range("A1") = Time
NextTick = Now + TimeValue("00:00:05")
Application.OnTime NextTick, "UpdateClock"
End Sub
''下面过程用于停止该事件
Sub StopClock()
On Error Resume Next
Application.OnTime NextTick, "UpdateClock", , False
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯