On Beş Dakikada Bir Ses Çıkarma

Bu dosya, Excel açıkken gün boyunca her çeyrek saatte bir sistem sesi çıkaran bir zamanlayıcı makrosu içerir. Saat başı, buçuk ve çeyrek geçe/kala için farklı sinyaller verildiği için ekrana bakmadan günün hangi diliminde olunduğu anlaşılabilir.

Dosyanın içeriği​

• Module1: 25 satırlık VBA modülüdür ve dört prosedür barındırır: timer, heures, demi ve quart.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur; makro yalnızca Application.OnTime ile zamanlama yapar ve Beep ile ses çıkarır.

• timer: 0'dan 23'e kadar her saat için dört zamanlama kurar. Her saatin :00 ve :30 dakikaları sırasıyla heures ve demi prosedürlerine, :15 ve :45 dakikaları quart prosedürüne bağlanır. Bu prosedürü çalıştırmak diğerlerini de devreye sokar.
• heures: Saat başında çalışır; saatin 12'ye göre mod değeri kadar, yani 15:00'te üç kez olmak üzere, aralarında kısa bekleme ile Beep sesi verir. Saat 00:00 ve 12:00'de ses çıkmaz.
• demi: Buçukta iki kez Beep sesi verir.
• quart: Saat :15 ve :45 geçe tek Beep sesi verir.

Zamanlamalar yalnızca o günün kalan saatleri için geçerlidir ve her gün timer yeniden çalıştırılmalıdır. Zamanlamalar tek seferliktir; saati geçmiş olanlar çalışmaz.

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 düğmesine basın.
4. Excel'i açık tutun; ses uyarıları belirlenen dakikalarda otomatik olarak çalar.
5. Ertesi gün aynı işlemi tekrarlayın.