View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Norman Harker Norman Harker is offline
external usenet poster
 
Posts: 162
Default Is It Possible To Make A Cell Blink..

Hi Ken!

I wish to deny the rumour that you're spreading that I got transported
to Australia for flashing.

Will this make you happier; he says knowing the answer. At least it
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


--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
"Ken Wright" wrote in message
...
=SUBSTITUTE("not yet been blessed with","blessed","cursed")

--
Regards
Ken....................... Microsoft MVP - Excel
Sys Spec - Win XP Pro / XL 00/02/03

--------------------------------------------------------------------

--------
It's easier to beg forgiveness than ask permission :-)
--------------------------------------------------------------------

--------



"Norman Harker" wrote in message
...
Hi Darno!

This is one of those features that that we have not yet been

blessed
with in any version of Excel.

But here is some code that is really nasty:

Private Sub Worksheet_Change(ByVal Target As Range)
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

It goes in the Sheet module, it sucks processing time and creates

a
delay of 5 seconds on every recalculation if MyFlashCell exceeds

the
value of 7.

Don't blame me if co-workers perform surgical operations on you
without anaesthetic.

--
Regards
Norman Harker MVP (Excel)
Sydney, Australia

Excel and Word Function Lists (Classifications, Syntax and

Arguments)
available free to good homes.
"darno " wrote in message
...
I AM LOOKING FOR A CODE OR FORMULA TO MAKE A WORKSHEET CELL

BLINK OR
REVERSE VIDEO IF A CERTAIN CONDITION IS FULFILLED. IN

CONDITIONAL
FORMATTING I COULD NOT FIND ANYTHING LIKE THIS. I AM WONDERING

IF
THIS
COULD BE ACHIEVEABLE THROUGH VBA CODE.


REGARDS,


DARNO


---
Message posted from
http://www.ExcelForum.com/





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004