FTM Forum

Kan iemand mij vertellen hoe ik een cell in een worksheet met een kleurtje laat knipperen???

Ekslem Wrote:Kan iemand mij vertellen hoe ik een cell in een worksheet met een kleurtje laat knipperen???

In mijn Vista-versie van Excel zit het niet.

de vraag is meer...wil je dat?


nee ik weet t ook niet

Ekslem Wrote:Kan iemand mij vertellen hoe ik een cell in een worksheet met een kleurtje laat knipperen???

Volgens mij kan dat met Auto-opmaak. hoe precies weet ik niet.
Daarmee kan je wel aangeven dat bedragen onder, stel, € 1000 rood worden en daarboven groen.

Maar hoe je ze moet laten knipperen, geen idee. Misschien heel snel en heel vaak achter elkaar je monitor uitzetten?

Als Excel open is druk je op Alt+F11 nu kom je in de "Visual Basic Editor"
Klik rechts op "Vbproject(Map1)" en kies Invoegen - Module
Rechts zie je Option Explicit met de cursor,
de code hieronder kopieer je en plak je in dit vak.
Ga nu naar Extra - Macro - Macro's en kies Knipper
Sla het bestand op.

Sub Knipper()
Dim interval As Date, myCell As Range
Set myCell = Worksheets(1).Range("A1")
interval = TimeValue("00:00:02")

knip = Not knip
tel = tel + 1
If tel = 10 Then
myCell.Interior.Color = 0
Exit Sub
End If

myCell.Interior.Color = IIf(knip, RGB(256, 0, 0), RGB(0, 256, 0))
Application.OnTime Now + interval, "Knipper"

End Sub

Cel A1 zal nu knipperen

Mac Wrote:de vraag is meer...wil je dat?


nee ik weet t ook niet

Het is een vraagJE!

Bocaloca Wrote:Als Excel open is druk je op Alt+F11 nu kom je in de "Visual Basic Editor"
Klik rechts op "Vbproject(Map1)" en kies Invoegen - Module
Rechts zie je Option Explicit met de cursor,
de code hieronder kopieer je en plak je in dit vak.
Ga nu naar Extra - Macro - Macro's en kies Knipper
Sla het bestand op.

Sub Knipper()
Dim interval As Date, myCell As Range
Set myCell = Worksheets(1).Range("A1")
interval = TimeValue("00:00:02")

knip = Not knip
tel = tel + 1
If tel = 10 Then
myCell.Interior.Color = 0
Exit Sub
End If

myCell.Interior.Color = IIf(knip, RGB(256, 0, 0), RGB(0, 256, 0))
Application.OnTime Now + interval, "Knipper"

End Sub

Cel A1 zal nu knipperen

NERD! NERD! NERD! :