şarta uyan hücrede ses

[mutluedenercan]

ses diye aradım bulamadım...

makro kaydette denedim bir ses açmayı ( o kodu görmek için ) olmadı..

sorum şu:

mesela D sununa 70 den büyük değer girilince, kısa bir ses çalacak (D/efekt klasöründe kayıtlı bir ses )

olobilirmi

 

[Korhan Ayhan]

Merhaba,

Play ifadesi ile arama yapin.

 

[mutluedenercan]

aRAMADA BİRİ HARİÇ DİĞERLERİ İŞİME YARAMADI...

O BULDUĞUMUNDA KODUNU UYARLIYAMADIM...

YARDIM EDERMİSİNİZ

d SUNUNDA '0 DEN BÜYÜK YAZILIRSA ÇALACAK

 

[Korhan Ayhan]

Merhaba,

Klavyenizde problemmi var? Neden büyük harfle yazıyor sunuz?

Aşağıdaki kodu bu işlemi uygulamak istediğiniz sayfanızın kod bölümüne uygulayınız. Kırmızı bölümü istediğiniz gibi değiştiriniz.

Option Explicit
 
Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    DoEvents
    If Target > 70 Then Call PlayIt("[COLOR=red]C:\Windows\Media\Ding.wav[/COLOR]", 0)
End Sub

 

[mutluedenercan]

Mp3 çalınamıyor sanırım.....

Teşekkür

 

[Korhan Ayhan]

Merhaba,

Nette arama yaparak MP3 çaldıran kodları rahatlıkla bulabilirsiniz.