Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Playing a sound file from entry in cell
I have recently used and adapted code from a post on here which is shown
below and works great. However does anybody know how I can (or if it can be done?) adapt this further so that entering a different "name" plays a different sound file in the same cell i.e. C7 in this case. Many thanks, Nige Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$7" Then If Target.Value = "Lawrence" Then sndPlaySound32 "C:\Documents and Settings\LAPTOP\My Documents\homer_31.wav", 0 End If End If End Sub -- NG99 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Playing a sound file from entry in cell
Maybe...
Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) dim mySoundFile as string dim myFolder as string myFolder = "C:\Documents and Settings\LAPTOP\My Documents\" mysoundfile = "" If Target.Address = "$C$7" Then select case lcase(target.value) case is = "lawrence" :mysoundfile = "homer_31.wav" case is = "jimmy" : mysoundfile = "triple.wav" end select end if if mysoundfile = "" then 'do nothing else sndPlaySound32 myfolder & mysoundfile, 0 end if End Sub ========= If you're using xl2002+, you may want to try: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$7" Then Application.Speech.Speak Target.Value End If End Sub NG99 wrote: I have recently used and adapted code from a post on here which is shown below and works great. However does anybody know how I can (or if it can be done?) adapt this further so that entering a different "name" plays a different sound file in the same cell i.e. C7 in this case. Many thanks, Nige Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$7" Then If Target.Value = "Lawrence" Then sndPlaySound32 "C:\Documents and Settings\LAPTOP\My Documents\homer_31.wav", 0 End If End If End Sub -- NG99 -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Playing a sound file from entry in cell
Dave,
That works a treat thanks for your very prompt help! -- NG99 "Dave Peterson" wrote: Maybe... Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) dim mySoundFile as string dim myFolder as string myFolder = "C:\Documents and Settings\LAPTOP\My Documents\" mysoundfile = "" If Target.Address = "$C$7" Then select case lcase(target.value) case is = "lawrence" :mysoundfile = "homer_31.wav" case is = "jimmy" : mysoundfile = "triple.wav" end select end if if mysoundfile = "" then 'do nothing else sndPlaySound32 myfolder & mysoundfile, 0 end if End Sub ========= If you're using xl2002+, you may want to try: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$7" Then Application.Speech.Speak Target.Value End If End Sub NG99 wrote: I have recently used and adapted code from a post on here which is shown below and works great. However does anybody know how I can (or if it can be done?) adapt this further so that entering a different "name" plays a different sound file in the same cell i.e. C7 in this case. Many thanks, Nige Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$7" Then If Target.Value = "Lawrence" Then sndPlaySound32 "C:\Documents and Settings\LAPTOP\My Documents\homer_31.wav", 0 End If End If End Sub -- NG99 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cell References | Excel Discussion (Misc queries) | |||
Saving worksheet in new file with date AND cell value as file name | Excel Discussion (Misc queries) | |||
Help with this conditional IF statement | Excel Discussion (Misc queries) | |||
resetting last cell | Excel Discussion (Misc queries) | |||
Using Jet to read excel file returns blank for last cell - sometim | Excel Discussion (Misc queries) |