Label Nesnesine Efekt Verme

Bu dosya, bir UserForm üzerindeki Label nesnesinin yazı rengini VBA kodu ile belirli aralıklarla değiştirerek yanıp sönme efekti verir. Form üzerindeki Başla butonuna tıklandığında Label1 üzerindeki EXCELDESTEK yazısı, Bitir butonuna basılana kadar yanıp sönmeye devam eder.

Dosya makro içerir (.xlsm). Açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: D1:E11 aralığında yer alan tek çalışma sayfasıdır. Sayfada formül bulunmaz; formu açan buton bu sayfadadır.
• UserForm1: Label1 nesnesini ve iki komut butonunu (Başla, Bitir) barındıran formdur.
• Module1: Formu açan form adlı makroyu içerir.

Makrolar​

• Sayfa1 - CommandButton1_Click: Sayfadaki butona tıklandığında UserForm1 formunu modsuz (vbModeless) olarak açar. Form açıkken çalışma sayfası kullanılmaya devam edilebilir.
• Module1 - form: Aynı formu açar; Alt+F8 penceresinden veya bir şekle atanarak çalıştırılabilir.
• UserForm1 - CommandButton1_Click (Başla): Bir döngü başlatır. Her turda Timer ile 0,7 saniye beklenir ve bekleme sırasında DoEvents ile Excel'in diğer işlemlere yanıt vermesi sağlanır. Ardından Label1 yazı rengi beyaz ise kırmızıya, değilse beyaza çevrilir. Böylece yazı yanıp söner. Döngü en fazla 100000 tur çalışır.
• UserForm1 - CommandButton2_Click (Bitir): Genel değişken fd değerini 1 yapar. Döngü bu değeri kontrol ettiği için bir sonraki turda sona erer.

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. Sayfadaki butona tıklayın veya Alt+F8 ile form makrosunu çalıştırın.
3. Açılan formda Başla butonuna tıklayın; Label1 üzerindeki yazı yanıp sönmeye başlar.
4. Efekti durdurmak için Bitir butonuna tıklayın.
5. Yanıp sönme hızını değiştirmek için Alt+F11 ile UserForm1 kodundaki bekleme süresini (0,7) düzenleyin.