Alarm Timer

[Guest]

Looking to have a timer set off an alarm at 15 minute intervals as in Visual
Basic.net
Dim WithEvernts Timer1 as Timer

Dim TimeRemaining as Integer ==15*60

Private Sub Worksheet_Open
Timer1.Interval=5000
Timer1 Enabled=True
Timer1.Start() ' this does not work in Excel but does in VB.net
end sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick

TimeRemaining=TimeRemaining-5
If timeRemaing =0 then
....
Enact Alarm
....
TimeRemaining=15*60
End if
End Sub

 

[Chip Pearson]

In Excel VBA, you can use the OnTime method. See
www.cpearson.com/excel/OnTime.aspx for details and example code.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

 

[Guest]

Looking to make something flash on, off and recycle. Would nesting two
Application.OnTime functions?

 

[Chip Pearson]

You could adapt the code for blinking text at
http://www.cpearson.com/excel/BlinkingText.aspx .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)