Kezdőlap › Fórumok › Excel programozás › Villogó cella › Hozzászólás: Villogó cella
2016-07-27-09:23
#2835
Igaz, megkaptad a jó választ, azért írok egy másikat.
A laphoz kell rendelned a makrót. A lapra lépéskor figyeli, hogy az A1 cellában van-e adat. Ha nincs, másodpercenként változtatja a háttér színét. Mindenképp jobbnak tartom horvimi változatát.
Private Sub Timer()
If Range("A1") <> "" Then
Range("A1").Interior.ColorIndex = -4142
Exit Sub
End If
With Range("A1")
If .Interior.Color = vbYellow Then
.Interior.Color = vbRed
Else
.Interior.Color = vbYellow
End If
Application.Wait Now() + TimeValue("00:00:01")
DoEvents
Timer
End With
End Sub
Private Sub Worksheet_Activate()
Timer
End Sub