UserForm Üzerinde Anlık Saat

Bu dosya, bir UserForm penceresinde bulunan etikette bugünün tarihini, gün adını ve saati her saniye otomatik güncelleyen çalışan bir örnektir. Kendi formlarına anlık saat eklemek isteyenler için hazır bir yapı sunar.

Dosyanın içeriği​

• Sheet1: B2 hücresinde dosyanın başlığı yer alır. Sayfada formül, tablo veya grafik bulunmaz.
• UserForm1: Üzerinde Label1 adlı etiketin bulunduğu form. Tarih ve saat bu etikette gösterilir.
• Module1: Zamanlayıcı API tanımlarını ve makroları barındıran modül.

Dosyada formül kullanılmamıştır; tüm işlem VBA kodu ile yapılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod zararlı bir işlem yapmaz; yalnızca Windows'un user32 kütüphanesindeki zamanlayıcı fonksiyonlarını kullanır.

• FormAc: UserForm1 formunu açar. Makro listesinden çalıştırılır.
• UserForm_Activate: Form açıldığında FindWindow ile formun pencere kimliği bulunur, ardından SetTimer ile 1000 milisaniyelik (1 saniye) bir zamanlayıcı başlatılır.
• Timer: Zamanlayıcı her tetiklendiğinde Label1 etiketine "dd/mmmm/yyyy dddd hh:mm:ss" biçiminde güncel tarih ve saati yazar.
• UserForm_Terminate: Form kapatıldığında KillTimer ile zamanlayıcıyı durdurur.

Modüldeki API tanımları hem 32 bit hem de 64 bit Office sürümlerine uygun olacak biçimde koşullu derleme (VBA7 ve Win64) ile yazılmıştır.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın, FormAc makrosunu seçip çalıştırın.
3. Açılan formda tarih ve saat her saniye kendiliğinden güncellenir.
4. Formu kapattığınızda zamanlayıcı otomatik olarak durdurulur.
5. Kendi çalışmanıza uyarlamak için Alt+F11 ile VBA düzenleyicisini açıp UserForm1 ve Module1 içeriğini kendi projenize aktarın; etiket adı Label1 olarak korunmalıdır.

Dosyada start ve end adlı iki tanımlı ad bulunur; bunların başvurusu geçersizdir ve kodun çalışmasını etkilemez.