+- FTM Forum (https://fantasytennismanager.nl/forum)
+-- Forum: Algemeen (https://fantasytennismanager.nl/forum/forumdisplay.php?fid=7)
+--- Forum: Kantine (https://fantasytennismanager.nl/forum/forumdisplay.php?fid=23)
+--- Thread: Excel vraagje (/showthread.php?tid=3846)
Excel vraagje - Ekslem - 15-10-2008
Kan iemand mij vertellen hoe ik een cell in een worksheet met een kleurtje laat knipperen???
Re: Excel vraagje - Gerben Zonderland - 15-10-2008
Ekslem Wrote:Kan iemand mij vertellen hoe ik een cell in een worksheet met een kleurtje laat knipperen???
![[Image: gay.gif]](http://www.competitieteam.nl/phpBB2/images/smilies/gay.gif)
In mijn Vista-versie van Excel zit het niet.
Re: Excel vraagje - Mac - 15-10-2008
de vraag is meer...wil je dat?
nee ik weet t ook niet
Re: Excel vraagje - Mukkus - 15-10-2008
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?
Re: Excel vraagje - Bocaloca - 15-10-2008
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
Re: Excel vraagje - Treesong - 15-10-2008
Mac Wrote:de vraag is meer...wil je dat?
nee ik weet t ook niet
Het is een vraagJE!
Re: Excel vraagje - Gerben Zonderland - 15-10-2008
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! :
