blinking cell

[Guest]

Is there a possibility to make a cell content blink under certain conditions
(as in conditional formatinf for example...)?
Thanks

 

[Ian]

No

 

[Alan]

It can be done by using code, but its a really bad idea.
Using such code causes more problems than enough. Blinking or flashing are
things that were not regarded as important by the creators of Excel it would
appear, there's no built in function similar to that in Word for example.
Regards,
Alan.

 

[JE McGimpsey]

Yes, with VBA.

However, note that blinking text is a violation of Section 508 (29
U.S.C. 794d) for government sites in the US, as certain blink rates can
cause seizures in epileptics.

Besides that, it's annoying as hell.

However, if you search the archives:

http://groups.google.com/advanced_group_search?as_ugroup=*excel*

you'll undoubtedly find a way.

 

[Alan]

Yes, with VBA.

However, note that blinking text is a violation of Section 508 (29
U.S.C. 794d) for government sites in the US, as certain blink rates can
cause seizures in epileptics.

Besides that, it's annoying as hell.

However, if you search the archives:

http://groups.google.com/advanced_group_search?as_ugroup=*excel*

you'll undoubtedly find a way.

 

[Nasser Aziz]

try this

when you wrote under process it will blink

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

Public Const TextToFind = "Under Process"

Public RunWhen As Double

Sub StartBlink()
Dim LopX As Long
Dim LopY As Long

On Error Resume Next
For LopX = 1 To 15
For LopY = 1 To 100
If InStr(Trim(LCase(Cells(LopY, LopX))), LCase(TextToFind)) > 0
Then
If Cells(LopY, LopX).Font.Color = vbRed Then
Cells(LopY, LopX).Font.Color = vbBlack
Else
Cells(LopY, LopX).Font.Color = vbRed
End If
End If
Next
Next
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
True
Err.Clear
End Sub


Sub StopBlink()
Dim LopX As Long
Dim LopY As Long

On Error Resume Next
For LopX = 1 To 15
For LopY = 1 To 100
If InStr(Trim(LCase(Cells(LopY, LopX))), LCase(TextToFind)) > 0
Then
Cells(LopY, LopX).Font.Color = vbBlack
End If
Next
Next
RunWhen = 0
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", ,
False
Err.Clear
End Sub