Hücre koşulu olunca Ses cıkarsın

[orcoo100]

Private Sub Worksheet_Change(ByVal Target As Range)
If [F13] > 0 Then Beep
If [G13] > 0 Then Beep
End Sub


Burada ben dışardan veri alıyorum F13 ve G13 hücrem sürekli rakamlarla değişiyor.

ama Beep sesi gelmesi gerkiyorken ses gelmiyor.

ama koşula ben manuel yapıp enter a basınca beep sesi geliyor.
acaba hücre update olunca(entera basmadan KOŞULA GÖRE ses çıkarmasını nasıl sağlayabilirim..


uzman arkaşlardan rica edeceğim bana bunu düzeltebilirlermi. Muhtemelen Döngü içine almam lazım. Ama nasıl yapacağımı bilmiyorum. üsteki koduda bu forumdan esinlenerek yapmıştım.

 

[orcoo100]

döngü içinde sürekli sesli uyari

arkadaşlar
a1 hücresi a1= 100 ise
bana sürekli sesli uyari versin
döngüyü nasıl yazabilirim. Ses
saat alarmı yada beep gibi olabilir.

 

[Murat OSMA]

Aynı konuyu tekrar tekrar açmanıza gerek yok.

 

[orcoo100]

pardon

pardon
o kadar önemli ki daha önce yazdığımı bile hatırlayamadım düşünceden. Peki bunun çözümü yok mu acaba cevap veren olmadı..

 

[Murat OSMA]

İkisinden birini deneyin;

Private Sub Worksheet_Calculate()
    If [F13] > 0 Then Beep
    If [G13] > 0 Then Beep
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [F13] > 0 Then Beep
    If [G13] > 0 Then Beep
End Sub

 

[orcoo100]

calıştı teşekkürler

murat bey süpersiniz çalişti. Sizi çekemeyenler utansın

doğru calısan kısım bu:

Private Sub Worksheet_Calculate()
If [F13] > 0 Then Beep
If [G13] > 0 Then Beep
End Sub

Bu kod çalıştı. diğer kod çalışmadı.
ama burda hücre update olunca sadece 1 kez beep liyor. Mesela f13= 1 ise 1 kez beepliyor. Halbuki ben hic durmadan beep lesin istiyorum. benim istediğim bunu While ile döndürüp hücre 0 sıfırdan farklı olduğu surece hic beep sesi kesilmesin...

Böyle bir kod varsa yayınlarsanız mutlu olurum. Şuanda yüzde 50 işimi gördü cok sağolun yinede

 

[xexcel100]

beep ten baska alternatif ses varmı

İkisinden birini deneyin;

Private Sub Worksheet_Calculate()
    If [F13] > 0 Then Beep
    If [G13] > 0 Then Beep
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [F13] > 0 Then Beep
    If [G13] > 0 Then Beep
End Sub

Private Sub Worksheet_Calculate()
If [f13] > 0 Then Beep
If [g13] > 0 Then Beep

End Sub

Burdaki kod işimi gördü Fakat burdaki koda göre; g13 beep değilde başka ne ses yapabilirim. Sesleri birbirinden ayırtamak için. Teşekkürler

 

[PLİNT]

Burdaki kod işimi gördü Fakat burdaki koda göre; g13 beep değilde başka ne ses yapabilirim. Sesleri birbirinden ayırtamak için. Teşekkürler

Merhaba
Windows ses kaydedicisini kullarak oluşturulmuş aşağıdaki kodu kullanabilirsiniz,
"c:\windows\media" dosyasından istedğiniz ses dosyasının yolunu yazarak deneyin.

 Private Sub Worksheet_Calculate()
If [f13] > 0 Then Beep

If [g13] > 0 Then Shell ("sndrec32 /play /close /embedding  [COLOR="Blue"]c:\windows\media[/COLOR]\[COLOR="Red"]ding.wav[/COLOR]")

End Sub

 

[xexcel100]

Merhaba
Windows ses kaydedicisini kullarak oluşturulmuş aşağıdaki kodu kullanabilirsiniz,
"c:\windows\media" dosyasından istedğiniz ses dosyasının yolunu yazarak deneyin.

 Private Sub Worksheet_Calculate()
If [f13] > 0 Then Beep

If [g13] > 0 Then Shell ("sndrec32 /play /close /embedding  [COLOR="Blue"]c:\windows\media[/COLOR]\[COLOR="Red"]ding.wav[/COLOR]")

End Sub

dosya yolunu doğru verdiğim halde çalışmadı excel2003 te ding yada başka ses dosyası çalışmadı. run time eror 53 hatası verdi

 

[PLİNT]

dosya yolunu doğru verdiğim halde çalışmadı excel2003 te ding yada başka ses dosyası çalışmadı. run time eror 53 hatası verdi

"sndrec32.exe" dosyası bulunamamış.
Windows farklılığından olabilir.
windows xp' de ses kaydedici ("C:\WINDOWS\system32\sndrec32")


Aşağıdaki dosyada değişik kodlar bulunuyor denerseniz ;
http://s6.dosya.tc/server3/0amy82/ses2.zip.html

 Private Declare Function AA Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal BB As String, ByVal CC As Long) As Long

Private Sub Worksheet_Calculate()
If [G13] > 0 Then AA "C:\Windows\Media\ding.wav", &H1
End Sub

 

[xexcel100]

teşekkürler

"sndrec32.exe" dosyası bulunamamış.
Windows farklılığından olabilir.
windows xp' de ses kaydedici ("C:\WINDOWS\system32\sndrec32")


Aşağıdaki dosyada değişik kodlar bulunuyor denerseniz ;
http://s6.dosya.tc/server3/0amy82/ses2.zip.html

 Private Declare Function AA Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal BB As String, ByVal CC As Long) As Long

Private Sub Worksheet_Calculate()
If [G13] > 0 Then AA "C:\Windows\Media\ding.wav", &H1
End Sub

Gerçekten Harikasınız beep ayrı ding ayrı çalıştı. Teşekkür ederim.
Kullandığım formül bu belki başkasına yarar.



Private Declare Function AA Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal BB As String, ByVal CC As Long) As Long

Private Sub Worksheet_Calculate()
If [I41] > 0 Then Beep
If [J41] > 0 Then Beep

If [q41] > 0 Then AA "C:\Windows\Media\tada.wav", &H1
If [r41] > 0 Then AA "C:\Windows\Media\tada.wav", &H1
End Sub

 

[kardelen79]

İkisinden birini deneyin;

Private Sub Worksheet_Calculate()
    If [F13] > 0 Then Beep
    If [G13] > 0 Then Beep
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [F13] > 0 Then Beep
    If [G13] > 0 Then Beep
End Sub

0 dan değilde herhangi bir hücreden büuük veya küçük olursa nasıl yazabiliriz kodu

 

[Korhan Ayhan]

Sıfır yerine de hücre adresi yazabilirsiniz.

If [F13] > [A1] Then Beep