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)
Best Regards,
Rodney
| 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
|
|
| | > 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
| >
| >
| >
| > | > >
| > > 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
| > >
| > >
| > >
| >
| >
|
|
