Yazılanı Sesli Olarak Okutma

Bu dosya, Excel açıkken günün her saatinde sesli uyarı veren bir zamanlayıcı makrosu içerir. Uyarılar metin okutma ile değil, Beep komutuyla üretilen bip sesleriyle verilir: çeyrek saatte tek bip, buçukta iki bip, saat başında ise saatin 12'lik karşılığı kadar bip çalar.
Not: Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Boş bir sayfadır; hücrelerde veri ve formül bulunmaz.
• Module1: Dört prosedürden oluşan 25 satırlık VBA modülüdür: timer, heures, demi ve quart.

Makrolar​

• timer: 0'dan 23'e kadar her saat için Application.OnTime ile dört zamanlama kurar. Saat başı 00) için heures, buçuk 30) için demi, çeyrek 15) ve kırk beş 45) için quart prosedürü çalıştırılır.
• heures: Hour(Now) Mod 12 değeri kadar bip çalar; bipler arasında kısa bir bekleme vardır. Saat 12 veya 00 olduğunda Mod 12 sonucu 0 olduğundan bip çalmaz.
• demi: İki bip çalar.
• quart: Tek bip çalar.

Kodda dosya silme veya dışarıya bağlantı kuran bir işlem yoktur. Makro yalnızca zamanlama kurar ve ses çalar.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın.
3. timer makrosunu seçip çalıştırın.
4. Zamanlama kurulduktan sonra dosya açık kaldığı sürece uyarılar ilgili saatlerde çalar.

Zamanlama, makro çalıştırıldığı günün saatleri için kurulur; ertesi gün için timer makrosunun yeniden çalıştırılması gerekir. Geçmiş saatler için kurulan zamanlamalar çalışmaz.