• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ses Atama

D

dj_iso06

Katılım
17 Nisan 2011
Mesajlar
51
Excel Vers. ve Dili
2007 türkçe
Ses Atama Acil Yardım

Merhaba,

Arama yaptım yalnız bir çözüm bulamadım.Acil yardım lütfen.
Bir çalışmam var. bu çalışmamda hücrede yazan değere göre ses atamak istiyorum.. birde bu ses dosyalarının formatı ne olmalı ve excel ile birlikte kaydedilebilir mi?
 
Son düzenleme:
Sesli Uyarı Acil Yardım

Merhaba,

Arama yaptım ancak çözüm bulamadım.
elimde bulunan üç ayrı ses var.
bu sesleri hücrenin içerdiği metne göre atamak istiyorum.
excel içerisinde kullanabileceğim ses formatı ne olmalı?
 
galiba imkansızı istiyorum? :( yardım edende etmeyenden de Allah razı olsun Hayırlı akşamlar..
 
galiba imkansızı istiyorum? yardım edende etmeyenden de Allah razı olsun Hayırlı akşamlar..
 
dj_iso06' Alıntı:
Merhaba,

Arama yaptım ancak çözüm bulamadım.
elimde bulunan üç ayrı ses var.
bu sesleri hücrenin içerdiği metne göre atamak istiyorum.
excel içerisinde kullanabileceğim ses formatı ne olmalı?
Genişletmek için tıkla ...

Aslında sorunuzu tam anlamadım ama anladığım kadarı ile excelde müzük çalmak istiyorsunuz.

Ekli dosyada A1 hücresinde
Müzik1-Müzik2-Müzik3
seçenekleri var. buradan herhangibirini seçtiğiniz zaman aşağıdaki kodda kırmızı bölümlerdeki yeri sizin ses dosya adreslerini yazarzanız müzik çalmaya başlıyacaktır.


Kod: 
Private isPlaying As Boolean
Dim deger As String
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub Ap_002AC_Play()
Dim mp3File As String '
acılacak_dosya = deger
mp3File = Chr$(34) & acılacak_dosya & Chr$(34)
If isPlaying = True Then
Call mciSendString("Stop MM", 0&, 0&, 0&)
Call mciSendString("Close MM", 0&, 0&, 0&)
Call mciSendString("Open " & mp3File & " Alias MM", 0&, 0&, 0&)
Call mciSendString("Play MM", 0&, 0&, 0&)
Else
Call mciSendString("Stop MM", 0&, 0&, 0&)
Call mciSendString("Close MM", 0&, 0&, 0&)
isPlaying = True
End If
End Sub
Public Sub Ap_002AC_Stop()
If isPlaying = False Then Exit Sub
Call mciSendString("Stop MM", 0&, 0&, 0&)
Call mciSendString("Close MM", 0&, 0&, 0&)
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = "Müzik1" Then
deger = "[COLOR=red]C:\WINDOWS\Media\chimes.wav[/COLOR]"
Ap_002AC_Stop
Ap_002AC_Play
Ap_002AC_Play
ElseIf Cells(1, 1) = "Müzik2" Then
deger = "[COLOR=red]C:\WINDOWS\Media\ding.wav[/COLOR]"
Ap_002AC_Stop
Ap_002AC_Play
Ap_002AC_Play
ElseIf Cells(1, 1) = "Müzik3" Then
deger = "[COLOR=red]C:\WINDOWS\Media\ringin.wav[/COLOR]"
Ap_002AC_Stop
Ap_002AC_Play
Ap_002AC_Play
Else
Ap_002AC_Stop
End If
End Sub
 

Ekli dosyalar

halit3' Alıntı:
Aslında sorunuzu tam anlamadım ama anladığım kadarı ile excelde müzük çalmak istiyorsunuz.

Ekli dosyada A1 hücresinde
Müzik1-Müzik2-Müzik3
seçenekleri var. buradan herhangibirini seçtiğiniz zaman aşağıdaki kodda kırmızı bölümlerdeki yeri sizin ses dosya adreslerini yazarzanız müzik çalmaya başlıyacaktır.


Kod: 
Private isPlaying As Boolean
Dim deger As String
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub Ap_002AC_Play()
Dim mp3File As String '
acılacak_dosya = deger
mp3File = Chr$(34) & acılacak_dosya & Chr$(34)
If isPlaying = True Then
Call mciSendString("Stop MM", 0&, 0&, 0&)
Call mciSendString("Close MM", 0&, 0&, 0&)
Call mciSendString("Open " & mp3File & " Alias MM", 0&, 0&, 0&)
Call mciSendString("Play MM", 0&, 0&, 0&)
Else
Call mciSendString("Stop MM", 0&, 0&, 0&)
Call mciSendString("Close MM", 0&, 0&, 0&)
isPlaying = True
End If
End Sub
Public Sub Ap_002AC_Stop()
If isPlaying = False Then Exit Sub
Call mciSendString("Stop MM", 0&, 0&, 0&)
Call mciSendString("Close MM", 0&, 0&, 0&)
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) = "Müzik1" Then
deger = "[COLOR=red]C:\WINDOWS\Media\chimes.wav[/COLOR]"
Ap_002AC_Stop
Ap_002AC_Play
Ap_002AC_Play
ElseIf Cells(1, 1) = "Müzik2" Then
deger = "[COLOR=red]C:\WINDOWS\Media\ding.wav[/COLOR]"
Ap_002AC_Stop
Ap_002AC_Play
Ap_002AC_Play
ElseIf Cells(1, 1) = "Müzik3" Then
deger = "[COLOR=red]C:\WINDOWS\Media\ringin.wav[/COLOR]"
Ap_002AC_Stop
Ap_002AC_Play
Ap_002AC_Play
Else
Ap_002AC_Stop
End If
End Sub
Genişletmek için tıkla ...

hocam allah razı olsun ilgilendiğiniz için örnek dosyayı ekliyorum. ekte belirtilen sesler hücrede yazan değere göre çalsın istiyorum örnek dosya ekte..
 

Ekli dosyalar

dj_iso06' Alıntı:
hocam allah razı olsun ilgilendiğiniz için örnek dosyayı ekliyorum. ekte belirtilen sesler hücrede yazan değere göre çalsın istiyorum örnek dosya ekte..
Genişletmek için tıkla ...

Şimdi sorunuzu sorduğunuz vakit örnek dosyanızı niye eklemiyorsunuz? sonrada cevap alamadığınızdan yakınıyorsunuz.

Bakın dosyanıza bende iki defa uğraşmak zorunda kaldım. Alıntı yazımı mutlaka okuyun

iyi çalışmalar.
 

Ekli dosyalar

halit3' Alıntı:
Şimdi sorunuzu sorduğunuz vakit örnek dosyanızı niye eklemiyorsunuz? sonrada cevap alamadığınızdan yakınıyorsunuz.

Bakın dosyanıza bende iki defa uğraşmak zorunda kaldım. Alıntı yazımı mutlaka okuyun

iyi çalışmalar.
Genişletmek için tıkla ...

haklısınız hocam ama biraz karışık olduğu için önce diyalog kurmak sonra anlatmak istedim..
ekteki dosyanızı inceledim yalnız Tküsür olan bölüm t312,t500,t600 v.s. gibi değişken olabiliyor bu durumda da sadece mağaza diyen sesi çalmak istiyorum yani iSo-2 yi birde bu çalışma bir çok bilgisayarda kullanılabilir sesleri excel dosyasıyla senkronize edebilirmiyiz?
 
Kod: 
ElseIf Cells(2, "g") = "Tküsür" Then

yukarıdaki bölümü aşağıdaki ile değiştirin.

Kod: 
ElseIf Mid(Cells(2, "g"), 1, 1) = "T" Then
 
halit3' Alıntı:
Kod: 
ElseIf Cells(2, "g") = "Tküsür" Then

yukarıdaki bölümü aşağıdaki ile değiştirin.

Kod: 
ElseIf Mid(Cells(2, "g"), 1, 1) = "T" Then
Genişletmek için tıkla ...

allah razı olsun hocam tamamdır bu iş..
peki dediğim gibi sesleri excel dosyası içerisine kaydedebilirmiyim
 
teşekkür ederim hocam yalnız bir sorun var hücre formüle dayalı değişiyor formülün karşılığı olmayınca hata veriyor bu kezde makroda hata veriyor.. ürün kodu bölümüne sıfır yazıp bi bakabilirmisiniz..
 
Son düzenleme:
dj_iso06' Alıntı:
teşekkür ederim hocam yalnız bir sorun var hücre formüle dayalı değişiyor formülün karşılığı olmayınca hata veriyor bu kezde makroda hata veriyor.. ürün kodu bölümüne sıfır yazıp bi bakabilirmisiniz..
Genişletmek için tıkla ...

Kodda hata yok sizin formülünüzde var hata G2 hücresindeki formülü aşağıdakiyle değiştirin.

Kod: 
=EĞER(B2>0;İNDİS(Sayfa1!A:O;KAÇINCI(B2;Sayfa1!A:A);10);0)
 
halit3' Alıntı:
Kodda hata yok sizin formülünüzde var hata G2 hücresindeki formülü aşağıdakiyle değiştirin.

Kod: 
=EĞER(B2>0;İNDİS(Sayfa1!A:O;KAÇINCI(B2;Sayfa1!A:A);10);0)
Genişletmek için tıkla ...

merhaba hocam yazdığınız formülü daha yeni görebildim.. yalnız formülde bir sıkıntı yok.. sıkıntı b hücresine girilen kod tek basamaklı değil aynı zamanda harfile başlayıp içerisinde harf te içerebiliyor yada transfer olmayabiliyor bu durumda g hücresinde formül karşılık bulmadığı için hata veriyor. (transfer olmadığı zaman) aynı zamanda makroda hata veriyor g hücresinde formül hatası varken makronun hata vermemesinin yok saymasının bir çözümü varmı.. şimdiden teşekkürler..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst