10분마다 vba를 실행시키는 방법은?

10분마다 vba를 실행시키는 방법은?

10분마다 매크로를 실행해야 합니다.

이를 통해 10분 안에 작동할 수 있습니다.

sub my_Procedure () 
msgbox "hello world"
end sub

sub test()
Application.OnTime Now + TimeValue("00:00:10"), "my_Procedure"
end sub

하지만 이것은 한 번만 가능합니다.매크로를 10분마다 실행하려면 어떻게 해야 합니까?

다음 패턴을 사용해야 합니다.

Sub my_Procedure()
    MsgBox "hello world"        
    Call test ' for starting timer again
End Sub

Sub test()
    Application.OnTime Now + TimeValue("00:10:00"), "my_Procedure"
End Sub

고려 사항:

Public RunWhen As Double
Public Const cRunWhat = "my_Procedure"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 10, 0)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
     schedule:=True
End Sub

Sub StopTimer()
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen, _
       procedure:=cRunWhat, schedule:=False
End Sub

Sub my_Procedure()
    MsgBox "hello world"
    Call StartTimer
End Sub

표준 모듈에 모두 포함됨............Excel을 종료하기 전에 StopTimer를 실행해야 합니다.

메모

TimeSerial의 "minute" 인수가 두 번째 인수입니다.

언급URL : https://stackoverflow.com/questions/22772898/how-to-have-vba-execute-every-10-minutes