怎么让VBA每隔10秒钟运行一次某个程序并且要运行N次。这个代码怎么写。

Public N%

Sub ForTime()

'<需要运行的程序语句段或者用 Call 调用其他程序代码>

If N <100 Then Application.OnTime Now + TimeValue("00:00:10"), "ForTime"

N = N + 1

End Sub

'启动程序就自动运行100次结束，再次启动就只能运行一次

vba自动运行倒是可以的， Public n As Integer Sub test()If n <100 ThenApplication.OnTime Now + TimeValue("0:0:5"), "test"'Debug.Print nn = n + 1End IfEnd Sub

上面的意思是：凯凳念让vba每隔五秒钟运行一次共盯困一百次。自己更改一下粗肢。

---