给下面的代码,增加强制变量声明,但是总是报错,错误信息:“ 缺少语句”
baidu上查询半天,不知道什么原因
试过Option Explicit on 和 Option Explicit
Option Explicit on
'Option Explicit
Sub APPLICATION_VBAStart()
call Application.SetTimer(1,5*1000)
call Application.SetTimer(2,10*1000)
End Sub
'定时器事件
Sub APPLICATION_Timer(ID)
MsgBox "当前时间2:"&now
if id=2 then
MsgBox "当前时间:"&now
end if
end sub
收到,谢谢!