Yanıp Sönme Efekti Verme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub FlashFont()
Dim newColor As Integer
Dim myCell As Range
Dim x As Integer
Dim fSpeed
Set myCell = Range("A1:A10")
Application.DisplayStatusBar = True
Application.StatusBar = "... Şu an flash yazı gösterisi var lütfen biraz bekleyin...! "
newColor = 3
fSpeed = 0.3
Do Until x = 15
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
Sub reSetFlash()
ActiveCell.Select
Selection.Interior.ColorIndex = xlNone
End SubAçıklama
Kodu doğru olarak test edebilmek için, A1:A10 hücre aralığında yazılı değerler olması gerekir. Farklı alanlarda denemek ya da kullanmak için, koddaki ilgili alanı revize etmeniz yeterli olacaktır.Faydalanılması temennisiyle