ExcelBanter - Alarm Clock?

ExcelBanter (https://www.excelbanter.com/)

- New Users to Excel (https://www.excelbanter.com/new-users-excel/)

- - Alarm Clock? (https://www.excelbanter.com/new-users-excel/25789-alarm-clock.html)

I need to be called to my computer at differing
times during the day. (approx 15-20)

I have been using "Karen's Alarm Clock" but this
only allows 5 settings.

Can Excel be programmed to suit?

Thanks

Rodney,

Copy the code below and paste it into a codemodule in a new workbook. Change
the path and filename in this line to the file that you want to play:

WAVFile = "C:\Sound Files\Trumpet1.wav"

Enter dates and times starting in cell A1, and going down the column (as
many as you want), in the format

5/12/2005 10:15:00 AM

Then run SetAlarms.

HTH,
Bernie
MS Excel MVP

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub PlayWAV()
WAVFile = "C:\Program Files\Ahead\Nero\Trumpet1"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Sub SetAlarms()
Application.Calculate
Dim myCell As Range
For Each myCell In Range("A1", Range("A65536").End(xlUp))
Application.OnTime myCell.Value, "PlayWAV"
Next myCell
End Sub

Sub CancelAlarms()
Dim myCell As Range
For Each myCell In Range("A1", Range("A65536").End(xlUp))
Application.OnTime myCell.Value, "PlayWAV", , False
Next myCell
End Sub

"Rodney" wrote in message
...

I need to be called to my computer at differing
times during the day. (approx 15-20)

I have been using "Karen's Alarm Clock" but this
only allows 5 settings.

Can Excel be programmed to suit?

Thanks

Ooops, I used two different paths (meant to change the code before sending).
So, change the line

WAVFile = "C:\Program Files\Ahead\Nero\Trumpet1"

to reflect your wav file location.

HTH,
Bernie
MS Excel MVP

"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
Rodney,

Copy the code below and paste it into a codemodule in a new workbook.
Change
the path and filename in this line to the file that you want to play:

WAVFile = "C:\Sound Files\Trumpet1.wav"

Enter dates and times starting in cell A1, and going down the column (as
many as you want), in the format

5/12/2005 10:15:00 AM

Then run SetAlarms.

HTH,
Bernie
MS Excel MVP

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub PlayWAV()
WAVFile = "C:\Program Files\Ahead\Nero\Trumpet1"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Sub SetAlarms()
Application.Calculate
Dim myCell As Range
For Each myCell In Range("A1", Range("A65536").End(xlUp))
Application.OnTime myCell.Value, "PlayWAV"
Next myCell
End Sub

Sub CancelAlarms()
Dim myCell As Range
For Each myCell In Range("A1", Range("A65536").End(xlUp))
Application.OnTime myCell.Value, "PlayWAV", , False
Next myCell
End Sub

"Rodney" wrote in message
...

I need to be called to my computer at differing
times during the day. (approx 15-20)

I have been using "Karen's Alarm Clock" but this
only allows 5 settings.

Can Excel be programmed to suit?

Thanks

Rodney,

The code can be posted where ever you want.

I just hope it works ;-)
(I tested it, of course...)

Bernie
MS Excel MVP

Bernie, thankyou very much indeed.
I'll give it a test drive today.

May I seek your permission to post this code
on my local Aust NG please?
(with due authorship disclosure of course)