Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Alarm Timer
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Alarm Timer
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) "Philosophaie" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Alarm Timer
Looking to make something flash on, off and recycle. Would nesting two
Application.OnTime functions? "Chip Pearson" wrote: 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) "Philosophaie" wrote in message ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Alarm Timer
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) "Philosophaie" wrote in message ... Looking to make something flash on, off and recycle. Would nesting two Application.OnTime functions? "Chip Pearson" wrote: 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) "Philosophaie" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Alarm | Excel Worksheet Functions | |||
FLASH ALARM | Excel Discussion (Misc queries) | |||
Alarm | Excel Programming | |||
Stopping a Timer / Running a timer simultaneously on Excel | Excel Discussion (Misc queries) | |||
Timer Alarm | Excel Programming |