G
Guest
Is there a possibility to make a cell content blink under certain conditions
(as in conditional formatinf for example...)?
Thanks
(as in conditional formatinf for example...)?
Thanks
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
I
Ian
No
A
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.
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.
J
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.
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.
A
Alan
JE McGimpsey said: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.
N
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
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