Migająca komórka

Zamieszczony tutaj kod zmienia w odstępach co jedną sekundę formatowanie komórki co można wykorzystać do uzyskania efektu migającej czcionki, albo zmieniającego się tła komórki:

Poniższy przykład zmienia formatowanie jak na zdjęciach powyżej.

Private zmiana As Boolean

Sub UpdateClock()

    Dim zakres As Range

    Set zakres = Range("A1")

    If zmiana Then
        zakres.Interior.ColorIndex = xlNone
        zakres.Font.Color = vbBlack
    Else
        zakres.Interior.Color = vbBlack
        zakres.Font.Color = vbWhite
    End If

    zmiana = Not zmiana

    NextTick = Now + TimeValue("00:00:01")
    Application.OnTime NextTick, "UpdateClock"

End Sub

---