View Single Post
 
Old 12-05-2013, 06:53 PM
macropod's Avatar
macropod macropod is online now Windows 7 32bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,382
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

No, though it does have conditional formatting that could make the cell change colour. You could use an time-driven macro, but the effects are pretty awful...

As an example: To make a cell flash every second if it's value is 1, use conditional formatting in the target cell, with the formula:
=AND(MOD(VALUE(TEXT(NOW(),"ss")),2)=0,A1=1)
and set the conditional format to whatever font/background/border arrangement you want. Then add the following macro to the workbook:
Code:
Sub FlashCell()
Range("A1").Calculate
Application.OnTime Now + TimeValue("0:00:01"), "FlashCell"
End sub
Run the macro and the target cell will flash if your criterion is met. Of course, rather than having to run the macro manually, you could use something like a event to trigger the macro.
Note: change "A1" in the above references to any cell that does not contain a formula - unless you actually want the nominated cell to recalculate every second.
Once the above has been done, all you need to do to make other cells flash is to copy the conditional format to those cells, changing nothing more than the "A1=1" argument to whatever 'flash' criterion you want. For example, if you want more than one cell to flash if "A1=1" , change "A1=1" to "$A$1=1" and apply/copy the format to those cells also.

You could even get fancy, having up to three (or more in Excel 2007 & later) sequential flashes of the cell, by adding conditional format arguments and making the conditional format formulae, in turn:
=AND(MOD(VALUE(TEXT(NOW(),"ss")),4)=1,A1=1)
=AND(MOD(VALUE(TEXT(NOW(),"ss")),4)=2,A1=1)
=AND(MOD(VALUE(TEXT(NOW(),"ss")),4)=3,A1=1)
Be warned, though, routines like this can chew up CPU resources (i.e. they slow things down).

As I said, the effects are pretty awful. For one thing, you'll lose any ability to copy/paste or undo while the macro is running - and the undo buffer will be cleared so you won't even be able to undo anything afterwards.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote