if and run

[emrexcel123]

arkadaşlar ve üstadlar ii akşamlar öncelikle
sorum şu >>
if range("d5").value = 5 then
buraya kadar herşey ok sorun şu >>
eğer bu şart doğruysa c:\....'deki wave dosyasını çalıştır nasıl yapılabilir...
:yazici:

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

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

Sub Çal()
On Error Resume Next
If Range("d5").Value = 5 Then WavDosyasıAc "C:\Documents and Settings\xxx\Belgelerim\1.wav", True
End Sub

Sub WavDosyasıAc(WavDosyaAdi As String, Bekle As Boolean)
    If Dir(WavDosyaAdi) = "" Then Exit Sub
    If Bekle Then
        sndPlaySound WavDosyaAdi, 0
    Else
        sndPlaySound WavDosyaAdi, 1
    End If
End Sub