blinking negative number

  • Thread starter Thread starter GD
  • Start date Start date
I seem to recall that there's a way to mimic this using VBA, but I'm afraid I
don't recall the title of the thread.

If you were looking for a simpler answer, I'm afraid there isn't a
font/conditional format that does this.
 
Hi,

To clarify, Excel doesn't have this as a built-in feature. You need to use
one of the VBA solutions. FYI - Word had a feature for allowing blinking
text backgrounds, but they have taken it out in 2007. It wouldn't have done
you any good anyway because bringing it into Excel it stops blinking.

If you imbed a Word object which has blinking text (or other special effects
enhancements) you can see it in Excel by double-clicking the object (but in
reality you are now in Word, in Excel)
 
try this

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

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
 
Back
Top