Excel Çalışma Sayfasında Aktif Saat Gösterme

Bu dosya, çalışma sayfasında sistem saatini gösteren bir analog saat içerir. Saat, bir grafikle çizilir; makro zamanlayıcısı değerleri her saniye yeniler ve ibreler kendiliğinden hareket eder. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• ActiveTime: Saat hesabının yapıldığı sayfadır. B2 hücresinde AM/PM bilgisi, B3 hücresinde ise anlık tarih ve saat yer alır. A12, C12, A13, C13, A15:C16 hücrelerinde ibre değerleri hesaplanır. Sayfadaki grafik analog saati oluşturur.
• Sheet2: A1:A6 hücrelerinde, B sütunundaki değerlere bağlı altı adet IMAGE formülü bulunur. Dosya dış bağlantı içerir.

Kullanılan formüller​

• B3 hücresi, "Time" adlı hücreye bağlıdır ve makro her çalıştığında güncel saati gösterir.
• HOUR ve IF ile 24 saatlik değer 12 saatlik düzene çevrilir. Formül şöyledir:
  
  Excel formülü

  TR

  =EĞER(SAAT(B3)>12;SAAT(B3)-12;SAAT(B3))

  EN

  =IF(HOUR(B3)>12,HOUR(B3)-12,HOUR(B3))

• C12 hücresinde SECOND fonksiyonu ile saniye değeri alınır.
• A15 hücresi A12/A13 oranını, A16 hücresi ise bu oranın 1'e tamamlayıcısını hesaplar. Grafik dilimleri bu değerlerle çizilir.

Makrolar​

• Workbook_Open: Dosya açıldığında SetTime prosedürünü çağırarak saati başlatır.
• SetTime: Application.OnTime ile bir saniye sonrasına Recalc çalıştırmayı planlar.
• Recalc: "Time" adlı hücreye o anki saati yazar ve SetTime ile döngüyü sürdürür.
• Disable: Planlanmış zamanlayıcıyı iptal eder.
• Workbook_BeforeClose: Kapanırken Disable prosedürünü çalıştırır ve dosyayı kaydedilmiş olarak işaretler; böylece kaydetme sorusu çıkmaz.

Kodlarda dosya silme veya dışarıya bağlantı kuran bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. ActiveTime sayfasına geçin; saat otomatik olarak çalışmaya başlar.
3. Saati durdurmak için dosyayı kapatın; zamanlayıcı kapanışta otomatik iptal edilir.