Telefonszámunk: 1-472-0679

Hozzászólás: Villogó cella

Kezdőlap Fórumok Excel programozás Villogó cella Hozzászólás: Villogó cella

#2835
delila
Felhasználó

    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