主题：闹钟触发的问题，请帮忙

Sub APPLICATION_Timer(id)
    msgbox "id:"+cstr(id)
End Sub

Sub APPLICATION_VBAStart()
    dim lnv_rtn
    lnv_rtn=application.SetTimer(0,2000)
    'msgbox cstr(lnv_rtn)
End Sub

 

我的意图是在VBA开始的时候启动一个闹钟，我测试的时候当VBA开始的时候，闹钟被启动成功了，但是并没有每隔两秒去执行APPLICATION_Timer(id) 事件，请老大帮忙解决一下，我是东银期货的模拟帐号来测试。
   

 SetTimer的ID不要设成0，设成其它的整数即可

老大，我把触发器的id改成非0之后，application_timer还是触发不了。我的版本是1.991

你试着调试下吧，找找原因。这个函数是正常的，用了好长时间了，从未出现过问题。
在控制面板启动VBA，APPLICATION_VBAStart()函数开头处写个msgbox函数，看看运行到这里来没有。

系统卸掉重新安装就好了。