seslendirme

[mutluedenercan]

Eklediğim örnekteki kodu seyenizre yazdım..
Merakım var nasıl kod yazmayı öğrenebilirim ?

Hücrelere veri girişinde bir ses tonu atamak mümkünmü ?

gelen cevaplara alttaki pencereden cevep verince oluyormu yoksa yeni konu açarakmı sormam gerekir ?

 

[Korhan Ayhan]

Selamlar,

Eski başlığınızın altındaki "Hızlı Cevap Gönder" penceresini yada "Cevap Yaz" butonunu kullanarak konunuzla ilgili sorularınızı devam niteliğinde sorabilirsiniz. Eğer soracağınız sorunuzun içeriği farklı ise yeni başlık açarak sormanızda fayda var.

Aşağıdaki kodu denermisiniz.

Dim Eski As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C:O]) Is Nothing Then Exit Sub
    If Target = Empty Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 8 Then
    Cells(Target.Row, "E") = Now
    Target = Eski + Target
    ExecuteExcel4Macro ("SOUND.PLAY(, ""C:\Windows\Media\chimes.wav"")")
    End If
    If Target.Column = 10 Then
    Cells(Target.Row, "E") = Now
    Target = Eski + Target
    ExecuteExcel4Macro ("SOUND.PLAY(, ""C:\Windows\Media\chimes.wav"")")
    End If
    If Target.Column = 15 Then Cells(Target.Row, "L") = Now
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski = Target
End Sub

 

[mutluedenercan]

Evet oldu hatta sesi de değiştirdim.. her stuna ayrı ses yaptım ama iki ses birden çalışıyo neden

 

[Korhan Ayhan]

Selamlar,

Eğer ekteki örnek dosyadan bahsediyorsanız bende iki farklı ses denedim. Fakat iki ses aynı anda çalmadı. Eğer farklı bir dosyada uyguluyorsanız dosyanızı ekleyin kontrol edelim.

 

[mutluedenercan]

ekledim

sizin kodda sesleri değiştiriyom ödenen satırınada ses ekledim..

ama çift veya tek satırına yazarken ödenen stunundaki ses ile birlikte çalıyo...

hatayı nerde yaptım ..

2 - mp3 de aynı yolla eklemeyi denedim ( C:\müzik\aparçası.mp3 ) gibi
olmadı mp3 ler olamıyormu ?

3 - bir hücrede flaşlıyan yazı veya renk değiştiren yazı veya kayan yazı yapılabiliirmi bu sayfanın sağ altında devalı o yazı animasyonu devam edecek

 

[Korhan Ayhan]

Selamlar,

Son ses kodunu If sorgusu içine almadığınız için sürekli çalıyor. Aşağıdaki şekilde düzeltip deneyin.

Dim Eski As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [C:O]) Is Nothing Then Exit Sub
    If Target = Empty Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 8 Then
    Cells(Target.Row, "E") = Now
    Target = Eski + Target
    ExecuteExcel4Macro ("SOUND.PLAY(, ""C:\Windows\Media\chimes.wav"")")
    End If
    If Target.Column = 10 Then
    Cells(Target.Row, "E") = Now
    Target = Eski + Target
    ExecuteExcel4Macro ("SOUND.PLAY(, ""C:\Windows\Media\tada.wav"")")
    End If
    If Target.Column = 15 Then
    Cells(Target.Row, "L") = Now
    ExecuteExcel4Macro ("SOUND.PLAY(, ""C:\Windows\Media\windows xp geliş zili.wav"")")
    End If
    Application.EnableEvents = True
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski = Target
End Sub

MP3 için aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/showthread.php?t=20678


Flash yazı örneği içinde aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=78282