Saati geldiğinde alarm verme

[işsiz123]

Merhaba günlük e:e sütunundaki saatlere göre saati geldiğinde sesli bir uyarı nasıl verdirebiliriz.

 

[Asri]

excel starttimer stoptimer olarak araştırınız.

Arşivimden bulduğum bir kod örneği.

'http://www.cpearson.com/excel/OnTime.aspx
Public RunWhen As Double
Public Const cRunIntervalSeconds = 120  ' 2 dakika
Public Const cRunWhat = ""The_Sub""

Sub StartTimer() ' Timer'ı başlatır
   RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
   Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat,"
     schedule:=True
End Sub

Sub The_Sub()
   ' Buraya kodlar yazılacak
   StartTimer ' Tekrar etmesi için
End Sub

Sub StopTimer() ' Timer'ı durdurur
   On Error Resume Next
   Application.OnTime earliesttime:=RunWhen,"
       procedure:=cRunWhat, schedule:=False
End Sub

 

[Haluk]

......
Arşivimden bulduğum bir kod örneği.
Kaynak belirsiz.

Kodu görür görmez hatırladım..... Charles Pearson'un efsane kodlarından biri. Geçtiğimiz yıl bir trafik kazasında öldü.

http://www.cpearson.com/excel/OnTime.aspx

.

 

[Merhum İdris SERDAR]

Kodu görür görmez hatırladım..... Charles Pearson'un efsane kodlarından biri. Geçtiğimiz yıl bir trafik kazasında öldü.

http://www.cpearson.com/excel/OnTime.aspx

.

.

Genç yaşta gitti. Üzülmüştüm. RIP.

.

 

[işsiz123]

Kodu görür görmez hatırladım..... Charles Pearson'un efsane kodlarından biri. Geçtiğimiz yıl bir trafik kazasında öldü.

http://www.cpearson.com/excel/OnTime.aspx

.

Teşekkürler Haluk bey

 

[Asri]

Kodu görür görmez hatırladım..... Charles Pearson'un efsane kodlarından biri. Geçtiğimiz yıl bir trafik kazasında öldü.

http://www.cpearson.com/excel/OnTime.aspx

.

Bilgi için teşekkür ederim. Kod a eklendi.