Labelde Zaman Bağlı Animasyon

Bu dosya, bir UserForm üzerindeki Label nesnesinin zamana bağlı olarak görünüp kaybolmasını (yanıp sönme animasyonu) gösteren makro örneğidir. Aynı formda ikinci bir Label anlık tarih ve saati sürekli günceller.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: B1:F11 aralığında yer alan karşılama sayfasıdır, formül içermez.
• Module1: Gösteriyi başlatan, bitiren ve formu açan prosedürleri barındırır.
• UserForm1: Label1 (görünüp kaybolan yazı) ve Label2 (anlık saat) nesnelerini içeren formdur.

Makrolar​

• form: UserForm1 formunu açar. Animasyonu başlatmak için çalıştırılacak makro budur.
• GösteryiBaşlat: Application.OnTime ile Gösteri prosedürünü şu andan 1 saniye sonrasına zamanlar.
• Gösteri: Label1 nesnesinin Visible özelliğini tersine çevirir (görünürse gizler, gizliyse gösterir) ve GösteryiBaşlat prosedürünü yeniden çağırarak döngüyü sürdürür. Böylece Label1 her saniye açılıp kapanır.
• GösteryiBitir: Zamanlanmış Gösteri çağrısını iptal eder.
• UserForm_Activate: Form açıldığında animasyonu başlatır ve DoEvents içeren bir döngüyle Label2 başlığına Now değerini yazarak saati canlı tutar.
• UserForm_QueryClose: Form kapatılırken GösteryiBitir prosedürünü çağırarak zamanlayıcıyı durdurur.

Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açıp form makrosunu çalıştırın.
3. Açılan formda Label1 yazısı her saniye görünüp kaybolur, Label2 anlık saati gösterir.
4. Animasyonu durdurmak için formu kapatın; zamanlayıcı otomatik iptal edilir.
5. Kendi metninizi kullanmak için VBA düzenleyicisinde (Alt+F11) UserForm1 üzerindeki Label1 başlığını değiştirin; süreyi değiştirmek için GösteryiBaşlat içindeki TimeSerial değerini düzenleyin.