主题：咨询 点击按钮启动定时器

Sub UserForm1_CommandButton1_Click()
     Call Application.SetTimer(1,1*1000)
End Sub

Sub Application_Timer(ID)
'    if a=0 then
    call Application.MsgOut("111")
'    a=1
'    end if
End Sub

这段代码主要是测试 是否可以单击一个按钮来启动定时器 不需要vbastart来启动

可我没按按钮  定时器貌似已经启动了

大侠们 求助！！！

定时器一旦启动，必须使用killtimer来停止，或者退出金字塔，你一定是运行过一次，之后没有显式停止导致的。

可以用application_vbaend事件，当停止vba时停止计时器。

Sub Application_VBAEnd()

      Call Application.KillTimer(1)

End Sub

忽略了这个问题。。。以为停止运行  退出宏就可以了 谢谢2位