[已解决]怎么用ontime在每一段时间内运行宏

qwerty6000

查了一些资料，看了ontime的用法，不过网上说可以的我一用就不行。程序是
Sub Workbook_Open()
Application.OnTime EarliestTime:=Now + TimeValue("00:00:10"), Procedure:="test"
End Sub

Private Sub test()
MsgBox Time
End Sub
想在每10秒执行一次test，不过每次只是刚打开的时候执行。不知道为什么， 请大家来帮帮我。谢谢了。

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-11 14:16

放在模块里：

Sub auto_open()
Application.OnTime Now + TimeValue("00:00:02"), "test"
End Sub

Sub test()
MsgBox Time
Call auto_open
End Sub

跳转到最佳答案楼层

knifefox

你运行了test 要重新调用ontime才行的

FookYou

Sub test()
MsgBox Time
Application.OnTime EarliestTime:=Now + TimeValue("00:00:10"), Procedure:="test"
End Sub

雨狐

放在模块里：

Sub auto_open()
Application.OnTime Now + TimeValue("00:00:02"), "test"
End Sub

Sub test()
MsgBox Time
Call auto_open
End Sub

qwerty6000

谢谢你们了。终于实现了。

zsd5237

学习[em02][em02]