主题：[求助]如何使用定时器，sub刷新问题

 这样写，定时器的回调函数的格式是规定了的，不能随便改
Sub APPLICATION_VBAStart()
 call Application.SetTimer(1,5000) '创建一个1号定时器，间隔时间5秒
call Application.SetTimer(2,1800000) '创建一个2号定时器，间隔时间30分
End Sub

Sub APPLICATION_Timer(ID)
    '定时器事件处理

    Select Case ID
            Case 1

                call test1()

            Case 2

                call test2()

      End Select

end sub

sub test1()

end sub

sub test2()

end sub