• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Örnek Dosya Yanıp Sönen Yazı Animasyonu

gicimi

Yeni Üye
Katılım
18 Haz 2018
Mesajlar
64
En iyi yanıt
0
Puanları
18
Yaş
36
Konum
Ankara
Ad Soyad
Hüseyin Yılmaz
Office Vers.
Office 2016 Pro
Merhaba;

A1 hücrenize bir şeyler yazın ve kodu çalıştırın.

Kod:
Private Sub yanip_sonen_yazi()
Dim newColor As Integer, myCell As Range, x As Integer, fSpeed
Set myCell = Range("A1")
Application.DisplayStatusBar = True
Application.StatusBar = "Şu anda yazı animasyonu çalışıyor"
newColor = 3     'kırmızı animasyon rengi
fSpeed = 0.3
Do Until x = 3 'saniye cinsinden süre
DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = newColor
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Font.ColorIndex = xlAutomatic
Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub
 

Ekli dosyalar

  • Yazı Animasyonu.xlsm
    20.9 KB · Görüntüleme: 130

Rahle

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
137
En iyi yanıt
0
Puanları
18
Yaş
51
Konum
İstanbul
Ad Soyad
Huzeyfe Yaman
Office Vers.
Office 2010
Paylaşımınız için teşekkürler
 
Üst Alt