if time=0:00:00 then
sheets("a00").select
application.ontime timevalue("0:00:00"),"micro"
end if
Public N%Sub ForTime()
'<需信培者要运行的程序语句段或者中友用 Call 调滑薯用其他程序代码>
If N <100 Then Application.OnTime Now + TimeValue("00:00:10"), "ForTime"
N = N + 1
End Sub
'启动程序就自动运行100次结束,再次启动就只能运行一次
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)