VBA code to play wav sound file based on conditionl formatting

werdllaw · Aug 25th 2018

Hello,

I would like to create an instance to play a wav sound effect for a couple of conditional formatting rules.

1. I want to play a wav sound if a selected cell equals contains a specific value. ex: if C4 = Tacos then play wav sound effect

2. I want to play a wav sound if a selected cell contains any value. ex: if C4 = any value then play wav sound effect.

Thank you for any help.

JonathanVH · Aug 25th 2018

That wouldn't be conditional formatting. If, when you write "selected," you mean someone clicks on the cell, then you will need to use the Worksheet's Selection Change event, e.g.,

Code

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


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("C4")) Is Nothing Then
    If Target(1).Value2 = "Tacos" Then
      sndPlaySound "c:\FolderName\TacoSoundFileName.wav", 1
    Else
      sndPlaySound "c:\FolderName\OtherSoundFileName.wav", 1
    End If
  End If
End Sub

Display More

That's code on the worksheet object, not a standard module. If this is to run on 64-bit Excel, then you'd probably need directives around the lib call so it would use LongPtr.

VBA code to play wav sound file based on conditionl formatting

Participate now!

Share