flashing cell

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Rob at BTAS Inc. - 06 Jan 2005 16:28 GMT

Is there a simple way to make a cell blink or flash or otherwise be very
distinctive from other cells?

Reply to this Message

JulieD - 06 Jan 2005 16:33 GMT

Hi Rob,

would formatting it lime green & purple help? seriously, you'll need to use
VBA to achieve this, so i'm not sure it falls into the simple category,
however, Rob van Gelder posted this answer to a similar question a couple of
months back
*****
Check out my website for "Schedule a macro to run"
Include something like:
Sub RunMe()
With Range("A1").Font
If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3
End With
ScheduleNextEvent
End Sub
or if you want the background to blink: With Range("A1").Interior

Signature

Rob van Gelder - http://www.vangelder.co.nz/excel
******

Hope this helps
JulieD

> Is there a simple way to make a cell blink or flash or otherwise be very
> distinctive from other cells?

Reply to this Message

monir - 04 Feb 2005 19:03 GMT

(Excel 2003 Windows XP)

Hi JulieD;

I'm trying "Schedule a macro to run" from Rob van Gelder's website, as per
your earlier suggestion.

1. I've added Activate and Deactivate w/s events, and w/b Open event to the
procedure. The intended cell blinks nicely at one-sec intervals. There are,
however, two problems with the procedure while RunMe() is running.

2. The Excel Screen, mouse Pointer, task bar Ready, etc. "jiggle" or
"pulsate" at random. Tried on 2 different computers, two different OS, two
different versions of Excel. The jiggling stops once I stop RunMe() !!

3. The "Paste" and "Paste Special" commands in the Excel Edit menu are
disabled while RunMe() is running !
I've inserted the following at the top of ScheduleNextEvent() and later at
the top of RunMe(): (without success!)
If Application.CutCopyMode = FLASE Then
ActiveWorkbook.Styles("normal"). NumberFormat = _
ActiveWorkbook.Styles("normal"). NumberFormat
End If

Your advice on how to solve these 2 problems would be greatly appreciated.
Regards and have a nice day!

> Hi Rob,
>
[quoted text clipped - 14 lines]
> > Is there a simple way to make a cell blink or flash or otherwise be very
> > distinctive from other cells?

Reply to this Message

JulieD - 05 Feb 2005 07:33 GMT

Hi Rob

also using Excel 2003 on windows XP i can use paste & paste special while
the runme is running ... and i don't get any 'jiggling' - if you'ld like to
send me your workbook direct (julied_ng at hcts dot net dot au) i'ld be
happy to test it on my system and see if i can spot what's going on

Cheers
JulieD

> (Excel 2003 Windows XP)
>
[quoted text clipped - 47 lines]
>> > very
>> > distinctive from other cells?

Reply to this Message

monir - 05 Feb 2005 16:15 GMT

Hi Julie;
I've just done that (direct).
Thank you.

> Hi Rob
>
[quoted text clipped - 57 lines]
> >> > very
> >> > distinctive from other cells?

Reply to this Message

JulieD - 05 Feb 2005 16:38 GMT

Hi Monir

received and answered :) (well as best as i could anyway)

Cheers
JulieD

> Hi Julie;
> I've just done that (direct).
[quoted text clipped - 70 lines]
>> >> > very
>> >> > distinctive from other cells?

Reply to this Message

Rob van Gelder - 06 Feb 2005 00:28 GMT

Julie: I'd be interested in seeing your solution... e-mail me direct if you
like - rob at vangelder dot co dot nz

A while ago, someone pointed out that the flashing cells I wrote would clear
the Undo stack.

This version doesn't clear Undo, but you get the "jiggles" due to
ActiveSheet.Select

Private dtmNextEvent As Date

Sub StartFlashing()
Dim nam As Name
On Error Resume Next
Set nam = ThisWorkbook.Names("FlashState")
If nam Is Nothing Then Set nam = ThisWorkbook.Names.Add("FlashState")
nam.Value = "=MOD(SECOND(NOW()),2)=0"
ToggleFlashState
End Sub

Sub StopFlashing()
On Error Resume Next
Application.OnTime dtmNextEvent, "ToggleFlashState", , False
End Sub

Sub ToggleFlashState()
On Error Resume Next
ActiveSheet.Select
dtmNextEvent = Now() + TimeSerial(0, 0, 1)
Application.OnTime dtmNextEvent, "ToggleFlashState", , True
End Sub

OP: No-one really likes a serious business tool like Excel being turned into
a neon sign - please make it look professional.

Signature

Rob van Gelder - http://www.vangelder.co.nz/excel

> Hi Monir
>
[quoted text clipped - 81 lines]
>>> >> > very
>>> >> > distinctive from other cells?

Reply to this Message

JulieD - 06 Feb 2005 02:49 GMT

Hi Rob

Monir and me are still working on the "paste" problem and BTW apart from the
choice of Fuschia it is looking very professional (i'm a dark blue person
myself) - i was v. impressed at how the OP integrated the blinking cells in
the workbook.

We'll send you the final result once Monir's tested my latest changes.

Cheers
JulieD

> Julie: I'd be interested in seeing your solution... e-mail me direct if
> you like - rob at vangelder dot co dot nz
[quoted text clipped - 118 lines]
>>>> >> > very
>>>> >> > distinctive from other cells?

Reply to this Message