Blink the cell value, If the value is 0

Question

0.00/5 (No votes)

See more:

Dear All,

I have cell Range from A5..D25. Within the range I have many values.
I need to blink the cell value if the value is "0" within the said Range.

I have vba code to blink the range, doesn't mattar what value is.
But I need to blink only the value of "0" with the range (A5..D20).

Can anyone help me?

Regards,
charles

VB

Sub StartBlink()
With ThisWorkbook.Worksheets("Sheet1").Range("A5:D25").Font
    
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
Next
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink"
'True
End Sub

VB

Sub StopBlink()
ThisWorkbook.Worksheets("Sheet1").Range("A5:D25").Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", False
'False
End Sub

'Then, in the ThisWorkbook code module of the workbook, use code like:

Private Sub Workbook_Open()
StartBlink
End Sub

Posted 19-Mar-12 23:40pm

ebincharles

Updated 21-Mar-12 20:04pm

v3

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2012-03-20T08:15:00

In pseudocode:

VB

For i = 5 to 25
   if Cell(i,ColNo).Value = 0 Then BlinkIt
   'or
   'if Range("A" & i).Value = 0 Then BlinkIt
Next

Welcome...

'start blinking ;) 
Sub StartBlink()

BlinkRange ThisWorkbook.Worksheets(1).Range("A5:A25"), 0, True

End Sub

'stop blinking ;)
Sub StopBlink()

BlinkRange ThisWorkbook.Worksheets(1).Range("A5:A25"), 0

End Sub

'input:
' - the range of cells 
' - value to be passed (where condotion)
' - value to start or stop schedule (blinking)
Sub BlinkRange(oRng As Range, cellValue As Variant, Optional bBlink As Boolean = False)
Dim c As Range, dRunWhen As Date

'for each cell in range of cells
For Each c In oRng.Cells
    'if cell value is equal to ...
    If c.Value = cellValue Then
        'change color of font red/white
        c.Font.ColorIndex = IIf(c.Font.ColorIndex = 3, 2, 3)
    Else
        'change to default color of font 
        c.Font.ColorIndex = xlColorIndexAutomatic
    End If
Next c

'period: 1 sec.
dRunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=dRunWhen, Procedure:="'" & ThisWorkbook.Name & "'!StartBlink", Schedule:=bBlink

End Sub