cel laten knipperen

[wieter]

Dag helpers,
Info vooraf: Als gepensioneerde probeer ik op eigen houtje en met de hulp van dit Forum,
excel een beetje te doorgronden. Mijn excuses als m'n vragen dom overkomen.

In bijlage wil ik via een macro, een cel "A1" constant laten knipperen, als er een bepaalde tekst in voorkomt.
Ik krijg die macro niet automatisch gestart. Ik weet niet waar ik CALL moet plaatsen.
Misschien wil iemand zich opofferen om een beginneling te helpen
mcv Wieter

 

[verluc]

Probeer deze macro eens :
Sub Worksheet_Change(ByVal Target As Range)
If Target.Value >= 55 Then
For n = 1 To 10
Target.Interior.Color = vbRed
Delay (0.04)
Target.Interior.ColorIndex = xlNone
Delay (0.04)
Next n
End If
End Sub

Sub Delay(rTime As Single)
'delay rTime seconds (min=.01, max=300)
Dim oldTime As Variant
'safety net
If rTime < 0.01 Or rTime > 300 Then rTime = 1
oldTime = Timer
Do
DoEvents
Loop Until Timer - oldTime > rTime
End Sub

 

[RaymondC]

http://www.iforma.nl/excel/tekstlatenknipperen.html

Public Startmoment As Double

Sub StartKnipperen()
If Range("A1").Font.ColorIndex = 2 Then
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Else
Range("A1").Font.ColorIndex = 2
End If
Startmoment = Now + TimeSerial(0, 0, 1)
Application.OnTime Startmoment, "StartKnipperen", , True
End Sub

Sub StopKnipperen()
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Application.OnTime Startmoment, "StartKnipperen", , False
End Sub

 

[wieter]

Private Sub Workbook_open()
If ThisWorkbook.Sheets("Blad1").[A1] = "blabla" Then
    If ThisWorkbook.Sheets("Blad1").[A1].Interior.ColorIndex = 46 Then
      ThisWorkbook.Sheets("Blad1").[A1].Interior.ColorIndex = 0
    Else
      ThisWorkbook.Sheets("Blad1").[A1].Interior.ColorIndex = 46
    End If
    Tijd = Now + TimeValue("00:00:01")
    End If
End Sub

Hallo,
Met bovenstaande code knippert de cel A1 één keer
Een loop-routine invoegen heeft weinig zin, gezien de cel zou moeten blijven knipperen zolang er tekst staat in cel A1
Ik heb al een hele tijd zitten klooien met if/else het wil maar niet lukken
Iemand?
Het is voor mij toch een hele omschakeling van de vroegere IF/THEN routines, en de GOTO routines naar VBA
mgv Wieter

 

[Hoornvan]

wieter,

Zet onderstaande code achter het Blad (Klik met recht op de tab en kies voor Programmacode weergeven.)

Private Sub Worksheet_Change(ByVal Target As Range)
Startknipperen
End Sub

Het is de code van RaymondC, het onderste stukje heb ik weggelaten en er 1 regel bij gezet.
De onderstaande code in een Module

Sub Startknipperen()
If [A1] = "" Then Exit Sub
If Range("A1").Font.ColorIndex = 2 Then
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Else
Range("A1").Font.ColorIndex = 2
End If
Startmoment = Now + TimeSerial(0, 0, 1)
Application.OnTime Startmoment, "StartKnipperen", , True
End Sub

 

[Wigi]

Waarom wil je per sé een cel laten knipperen? Is het niet voldoende dat voorwaardelijke opmaak de cel in het knalrood zet? Of een andere opvallende manier. Of je maakt een lijstje met opmerkingen met ALS formules, die een lege cel tonen ("") als er geen opmerkingen zijn.