ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   blinking number (https://www.excelbanter.com/excel-worksheet-functions/152099-blinking-number.html)

Rev Keith

blinking number
 
I forgot how to make a total flash/blink if its greater than zero. A few tips
would help.

Mike H

blinking number
 
My personal view is that it's so irritating and potentialy harmful to some
people you shouldn't do it and with absolutely no evidence to support this I
have always believed that's why the old BASIC 'speedink' command died the
death.

However if you must, look he-

http://www.cpearson.com/excel/BlinkingText.htm

Mike

"Rev Keith" wrote:

I forgot how to make a total flash/blink if its greater than zero. A few tips
would help.


KL

blinking number
 
"Rev Keith" wrote:
I forgot how to make a total flash/blink if its greater than zero. A few
tips
would help.


"Mike H" wrote
However if you must, look he-
http://www.cpearson.com/excel/BlinkingText.htm


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

blinking number
 
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.
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"Rev Keith" <Rev wrote in message
...
I forgot how to make a total flash/blink if its greater than zero. A few
tips
would help.




Harlan Grove[_2_]

blinking number
 
"Bernard Liengme" wrote...
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?




All times are GMT +1. The time now is 12:39 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com