Sub 定时运行()    '定时循环刷新
    If StopOntime Then Exit Sub
    '这里写需要执行的代码\
    刷新
    [定时] = [定时] + TimeValue("00:01:00")    '定时一分钟 循环运行
    Application.OnTime 定时, "定时运行"
    'Debug.Print 定时
End Sub

Public Sub 取消定时()    '在工作表关闭时取消定时器
    On Error Resume Next
    Application.OnTime EarliestTime:=[定时], _
            Procedure:="定时运行", Schedule:=False
End Sub