엑셀 VBA 매크로 정해진 시각에(일정한 시간간격으로) 버튼 클릭(button click) 자동 실행

예를 들어 8:55부터 10:00까지 10초단위로 작성한 모듈내의 특정 procedure를 

아래의 예제에서는 첫번째 쉬트(Sheet1)에 있는 버튼이 클릭되었을 때 지정된  매크로를

실행시키는 방법이다

Public Sub runbtn()
    Application.Run ("Sheet1.CommandButton1_Click")
End Sub

Sub setTimer()
    '
    '--- 08:55분부터 10:00까지 10초단위로 실행하도록 타이머 세팅
    Dim nSetCnt As Integer

    dTime = TimeValue("08:55:00")

    nMax = (60 * 60 + 60 * 5) / 10

    For nSetCnt = 0 To nMax
        Application.OnTime dTime, "Sheet1.runbtn"
        dTime = dTime + TimeValue("00:00:10")
    Next

End Sub

Public Sub CommandButton1_Click()
    Debug.Print "실행시각 : " + CStr(Now())
End Sub