OnTime event

OnTime event

Sub SetAlarm()

    Application.OnTimeTimeValue ("03:40:01 PM"), "DisplayAlarm"

End Sub

 

Sub DisplayAlarm()

Beep

MsgBox "Wake up. It’s time for your afternoon break!"

End Sub

Sub SetAlarm()

    Application.OnTime Now + TimeValue(“00:20:00”),“DisplayAlarm”

 

Sub DisplayAlarm()

Beep

MsgBox "Wake up. It’s time for your afternoon break!"

End Sub

 

Sub SetAlarm()

    Application.OnTime DateValue(“12/31/2007 5:00 pm”),“DisplayAlarm”

 

Sub DisplayAlarm()

Beep

MsgBox "Wake up. It’s time for your afternoon break!"

End Sub

Dim nextTick As Date ’declaring variable a module level

 

Sub updateclock()

    ThisWorkbook.Sheets(1).Range("A1") = Time

    nextTick = Now + TimeValue("00:00:01")

    Application.OnTime nextTick, "Updateclock"

End Sub

 

Sub stopclock()

    On Error Resume Next

    Application.OnTime nextTick, "updateclock", , False

                  ‘to stop the above subroutine -Update clock

End Sub

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Call stopclock

End Sub