Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
add a sound if cell A180, A290, B1100, etc.....
Hi Everyone,
Very Newbie here.. ;) I was searching board and found bottom code and it works on ONE cell. Q1) But I want to have Sound Alarm for Mutiple cells: When A1=80 A2=90 B2=80 R5=100 ....etc.. Q2) And when from Cell B1 to B17 and if any cell value is = 100 Q3) How can I make sound to run about 10 seconds? Thank you in advance.... Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Calculate() If Me.Range("A1").Value 10 Then sndPlaySound32 "chimes.wav", 0 End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value 10 Then sndPlaySound32 "chimes.wav", 0 End If End If End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
add a sound if cell A180, A290, B1100, etc.....
Astroboy,
Q3) How can I make sound to run about 10 seconds? You can't make this sound play longer than 10 seconds. You have a couple options. You could put multiple play sound commands in the code: If TRUE Then If True Then sndPlaySound32 "chimes.wav", 0 sndPlaySound32 "chimes.wav", 0 sndPlaySound32 "chimes.wav", 0 sndPlaySound32 "chimes.wav", 0 End If End If (I haven't tested this. I don't know if the sounds will overlap each other) Or you can pick 1 sound that is 10 seconds in length. Or you can use Windows Sound Recorder (%SystemRoot%\System32\sndrec32.exe) to edit this sound (make a new file) so that it plays multiple times. I don't remember if Sound Recorder has the tools/ability to copy the whole sound and paste multiple instances at the end of the current sound recording. You'll have to experiment with it. If Sound Recorder won't do it, I'm sure you can find several free programs online that will allow you to do that. HTH, Conan "Astroboy" wrote in message ... Hi Everyone, Very Newbie here.. ;) I was searching board and found bottom code and it works on ONE cell. Q1) But I want to have Sound Alarm for Mutiple cells: When A1=80 A2=90 B2=80 R5=100 ...etc.. Q2) And when from Cell B1 to B17 and if any cell value is = 100 Q3) How can I make sound to run about 10 seconds? Thank you in advance.... Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Calculate() If Me.Range("A1").Value 10 Then sndPlaySound32 "chimes.wav", 0 End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value 10 Then sndPlaySound32 "chimes.wav", 0 End If End If End Sub |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
add a sound if cell A180, A290, B1100, etc.....
Oh.... I can do that.... and THANK YOU~~!!
"Conan Kelly" wrote: Astroboy, Q3) How can I make sound to run about 10 seconds? You can't make this sound play longer than 10 seconds. You have a couple options. You could put multiple play sound commands in the code: If TRUE Then If True Then sndPlaySound32 "chimes.wav", 0 sndPlaySound32 "chimes.wav", 0 sndPlaySound32 "chimes.wav", 0 sndPlaySound32 "chimes.wav", 0 End If End If (I haven't tested this. I don't know if the sounds will overlap each other) Or you can pick 1 sound that is 10 seconds in length. Or you can use Windows Sound Recorder (%SystemRoot%\System32\sndrec32.exe) to edit this sound (make a new file) so that it plays multiple times. I don't remember if Sound Recorder has the tools/ability to copy the whole sound and paste multiple instances at the end of the current sound recording. You'll have to experiment with it. If Sound Recorder won't do it, I'm sure you can find several free programs online that will allow you to do that. HTH, Conan "Astroboy" wrote in message ... Hi Everyone, Very Newbie here.. ;) I was searching board and found bottom code and it works on ONE cell. Q1) But I want to have Sound Alarm for Mutiple cells: When A1=80 A2=90 B2=80 R5=100 ...etc.. Q2) And when from Cell B1 to B17 and if any cell value is = 100 Q3) How can I make sound to run about 10 seconds? Thank you in advance.... Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Calculate() If Me.Range("A1").Value 10 Then sndPlaySound32 "chimes.wav", 0 End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value 10 Then sndPlaySound32 "chimes.wav", 0 End If End If End Sub |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
add a sound if cell A180, A290, B1100, etc.....
Astroboy,
Q1) But I want to have Sound Alarm for Mutiple cells: When A1=80 A2=90 B2=80 R5=100 ...etc.. Q2) And when from Cell B1 to B17 and if any cell value is = 100 I'm thinking the easiest way to do this might be to use a helper cell that is hidden or out of the way. I'm gonna use cell C1 in this example, you can choose which ever cell makes sense to you. Use this formula in Cell C1: =OR(A1=80,A2=90,B2=80,R5=100,...etc...,COUNTIF (B1:B17,"=100")) Then in your code, you could do something like this: If Range("C1") Then sndPlaySound32 "chimes.wav", 0 End If HTH, Conan "Astroboy" wrote in message ... Hi Everyone, Very Newbie here.. ;) I was searching board and found bottom code and it works on ONE cell. Q1) But I want to have Sound Alarm for Mutiple cells: When A1=80 A2=90 B2=80 R5=100 ...etc.. Q2) And when from Cell B1 to B17 and if any cell value is = 100 Q3) How can I make sound to run about 10 seconds? Thank you in advance.... Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Calculate() If Me.Range("A1").Value 10 Then sndPlaySound32 "chimes.wav", 0 End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value 10 Then sndPlaySound32 "chimes.wav", 0 End If End If End Sub |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
add a sound if cell A180, A290, B1100, etc.....
Hi Conan,
Thank you for helping me out.... :) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Play Sound File Once when cell value condition id met | Excel Discussion (Misc queries) | |||
sound or speech the value of the cell if value 10 | Excel Worksheet Functions | |||
add a sound if Cell R6 value greater than 120 | Excel Discussion (Misc queries) | |||
Can a sound be inserted in a cell? | Excel Worksheet Functions | |||
How do you add sound file to a cell in excel | Excel Worksheet Functions |