J
joeshow
I understand that you can use the alarm function to play a sound when
certain parameter has been met, but what if the parameters kee
changing.
eg. for stock, the volume is constantly being updated and increases.
want to set an alarm that will notice when the volume of a stoc
reaches a value of its 10 day average.
therefore I need to be able to compare to separate cell references.
the following formula is what i found that sound a wav file if a cel
reference and a condition are met:
=Alarm (B13,">=1000")
the documentation also stated this following code to be used for th
alarm to sound
'Windows API function declaration
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Function Alarm(Cell, Condition)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit thi
statement
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function
if there is anyone that can help me with this problem please email m
or message me.
thanks very much in advance for anyone that can help me.
cheer
certain parameter has been met, but what if the parameters kee
changing.
eg. for stock, the volume is constantly being updated and increases.
want to set an alarm that will notice when the volume of a stoc
reaches a value of its 10 day average.
therefore I need to be able to compare to separate cell references.
the following formula is what i found that sound a wav file if a cel
reference and a condition are met:
=Alarm (B13,">=1000")
the documentation also stated this following code to be used for th
alarm to sound
'Windows API function declaration
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Function Alarm(Cell, Condition)
Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit thi
statement
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm = True
Exit Function
End If
ErrHandler:
Alarm = False
End Function
if there is anyone that can help me with this problem please email m
or message me.
thanks very much in advance for anyone that can help me.
cheer