WAV FILE

[Guest]

how can i get a wav file to play in excel xp as an alarm when a value in a
particular cell has been exceeded?

 

[Guest]

Give this a try... If the value in Cell A1 on the sheet that this code is
placed in is change to anything greater than 100 then the wave file plays...

Option Explicit

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


Public Function PlayWavFile(WavFile As String) As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
PlaySound WavFile, 0, SND_ASYNC Or SND_FILENAME
PlayWavFile = ""
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value > 100 Then _
PlayWavFile "C:\Windows\Media\Microsoft Office 2000\Chimes.wav"
End Sub

 

[Ron de Bruin]

Hi

See John's example
http://www.j-walk.com/ss/excel/tips/tip87.htm

 

[Guest]

Give this a try... If the value in Cell A1 on the sheet that this code is
placed in is change to anything greater than 100 then the wave file plays...

Option Explicit

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


Public Function PlayWavFile(WavFile As String) As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
PlaySound WavFile, 0, SND_ASYNC Or SND_FILENAME
PlayWavFile = ""
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target.Value > 100 Then _
PlayWavFile "C:\Windows\Media\Microsoft Office 2000\Chimes.wav"
End Sub

Jim,

i placed the code in the worksheet, changed the cell values, but it wont'
play a file!
i am new to programming in excel.
any help would be appreciated.

thanx,
bassfisher