共3 条记录, 每页显示 10 条, 页签: [1]

标题：请教，如何整点运行VBA程序

1楼

liwei_bj 发表于：2011/4/20 11:10:41

我想让选股程序在整点运行，比如09：30，10：30，14：00等，我是设置了一个30秒的timer，然后在timer事件中判断时间是否为整点，请问是否有更简单的方法？就像VBA里面的Application.OnTime TimeValue("09:30:00")的用法？

2楼

guotx2010 发表于：2011/4/20 12:11:49

'设置一个计时器

Sub Applocation_VBAStart()
Call Application.SetTimer(2, 5000)
End Sub

'计时器程序中，判断是否为整点

Sub APPLICATION_Timer(ID)

If Time = CDate("9:30") Then

'代码

End if

If Time = CDate("10:00") Then

'代码

End if

...

End Sub

3楼

msedu 发表于：2011/5/5 9:59:09

不错。。。

：-）

共3 条记录, 每页显示 10 条, 页签: [1]