View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.newusers
Bernie Deitrick
 
Posts: n/a
Default Want to make conditional sounds based on cell values in Excel

Howard,

You can play sounds using VBA code within the calculation event:

Add this to a module:

Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub PlayMySound()
'Change the filepath and name
Call sndPlaySound32("c:\folder\Filename.WAV", 0)
End Sub

Add this worksheet event

Private Sub Worksheet_Calculate()
If Range("A1").Value < Range("A2").Value Then
Application.EnableEvents = False
PlayMySound
Range("A2").Value = Range("A1").Value
Application.EnableEvents = True
End If
End Sub


HTH,
Bernie
MS Excel MVP


" m wrote in message
...
Conditional formatting.

Is it possible to insert logic formulae to make specific sounds based on
computed cell values in an Excel worksheet?

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...excel.newusers