• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

cel laten knipperen

Status
Niet open voor verdere reacties.
W

wieter

Terugkerende gebruiker
Lid geworden
26 jun 2009
Berichten
1.128
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
 
Laatst bewerkt:
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
 
http://www.iforma.nl/excel/tekstlatenknipperen.html

Code: 
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
 
Code: 
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
 
Laatst bewerkt:
wieter,

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

Code: 
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
Code: 
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
 
Laatst bewerkt:
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.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan