Excel vraagje

[Ekslem]

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

[Gerben Zonderland]

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.

[Mac]

de vraag is meer...wil je dat?


nee ik weet t ook niet

[Mukkus]

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?

[Bocaloca]

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

[Treesong]

de vraag is meer...wil je dat?


nee ik weet t ook niet

Het is een vraagJE!

[Gerben Zonderland]

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! :