blinking number

  • Thread starter Thread starter Guest
  • Start date Start date
Mike H said:

Hi Guys,

If you want to preserve the Undo/Redo functionality, you may want to try
this:

1) Create a named formula called TIMER
=MOD(SECOND(NOW()),2)=1

2) Select the range you want to blink subject to a condition (or multiple
conditions), say range A1:A100

3) Apply the following Conditional Format
=TIMER*(A1<0)

where (A1<0) is one of the many possible conditions.

4) put the following code into the VBA module of ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlinking
End Sub

Private Sub Workbook_Open()
StartBlinking
End Sub

5) put the following code into a standard module (say Module1):

Dim dtNext As Date

Sub StartBlinking()
dtNext = Now + TimeValue("00:00:01")
Application.Calculate 'or Application.ScreenUpdating=True
Application.OnTime dtNext, "StartBlinking"
End Sub

Sub StopBlinking()
Application.OnTime dtNext, "StartBlinking", schedule:=False
End Sub

--
KL
[MVP - Microsoft Excel]
RU: http://www.mvps.ru/Program/Default.aspx
ES: http://mvp.support.microsoft.com/?LN=es-es
EN: http://mvp.support.microsoft.com/?LN=en-us
Profile: http://mvp.support.microsoft.com/profile/Kirill
 
Bernard Liengme said:
From a previous post by JE McGimpsey:

US Government sites are prohibited by law from displaying flashing text
(between 2 and 55 Hz) due to triggering seizures in those with
photosensitive epilepsy.

http://www.section508.gov/IRSCourse/mod02/021401--.html

Many other organizations try to conform to section 508.
....

If one's going for annoying, why not use a Calculate event handler to call a
macro that uses Application.Speach.Speak to tell the user s/he screwed up
then have it call itself repeatedly using Application.OnTime?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top