making a cell flash

  • Thread starter Thread starter IT
  • Start date Start date
Hi
search the Google archive for 'blink cells'

One comment: Don't do this. Flashing/blinking requires VBA and will
slow down Excel (as the solutions use the OnTime method). In addition
Spreadsheets shouldn't blink/flash :-)
 
Hi IT!

Here's an answer I just gave Hans down the road at
worksheet.functions. If you are Hans, then please don't post the same
question to more than one group.

At least this approach only flashes if there's a change to the
offending cell.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("MyFlashCell")) Is Nothing Then Exit Sub
Dim n As Integer
Dim NextTime As Date
If Range("MyFlashCell").Value > 7 Then
For n = 1 To 5
With Range("MyFlashCell").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
With Range("MyFlashCell").Interior
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
With Range("MyFlashCell")
..Font.ColorIndex = 3
..Interior.ColorIndex = 2
End With
End Sub

I wish to deny the rumor that I was transported to Australia for
flashing.


--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
 
[soapbox]
Whilst there may be roundabout methods of achieving this effect, I am pretty
sure that I can speak for most of the people on here when I say this would
irritate the hell out of me if I saw it on a spreadsheet. I don't like it on a
webpage, and I sure as hell will never include it in a spreadsheet, even if God
Forbid, Microsoft made it a standard feature. I'd also be pretty pi$$ed that
they had wasted time on stuff like that that could have been spent fixing some
of the many real issues that could have benefitted from that development time.
[/soapbox]
 
Thanks for your replies , the question concerning the flashing of cells was
actual one that was asked to me by a client of mine.

Cheers
 
Back
Top