Call Application.SetTimer(0,5*100)
if time>"23:30:40" then
call Application.KillTimer(0)
end if
End Sub
//学习下VBA里面的时间函数
感谢回复!因为是初学VBA,所以很多未能够灵活应用,感谢耐心指点。
设计的意图是每10分钟进入定时器,比如检查帐户状态、并发送QQ信息等等,所以定时器 SetTimer放在 VbaStart事件,但是每次启动软件的时间是不一样的,这样就很难做到整点的间隔了,比如9:00,9:10……目前只能做到的是根据启动金字塔的时间定时10分钟,这个每次都不一样。
Call Application.SetTimer(0,5*100)
if time>"10:00:00" then
call Application.KillTimer(0)
end if
End Sub
Sub APPLICATION_TIMER(id)
//这里面跟触发事件
End Sub
//你设置定时器整点启动,然后对应10分钟间隔即可