Excel make cell flash red
Solved/Closed
hugrl
Posts
4
Registration date
Thursday February 5, 2009
Status
Member
Last seen
February 23, 2009
-
Feb 9, 2009 at 12:19 PM
Rjc - Mar 13, 2020 at 08:05 AM
Rjc - Mar 13, 2020 at 08:05 AM
Related:
- Excel blinking cell without vba
- Excel flashing cell without macro - Best answers
- Excel blinking cell without macro - Best answers
- Number to words in excel without vba - Guide
- Enable vba in excel - Guide
- Vba case like - Guide
- Esc f1 f4 blinking - Laptop Forum
- Excel conditional formatting if another cell contains specific text ✓ - Excel Forum
2 responses
Private Sub Flash_Cells()
Dim FlashColor As Integer
Dim MakeFlash As Range
Dim x As Integer
Dim TheSpeed
Dim i
'Just a random range of cells. Change it to whatever you want.
Set MakeFlash = Range("A1,C6,F3,H4")
For Each I In MakeFlash
If i.Value > 4 Then
FlashColor = 3 'Set the color to red
'Make the cell range flash fast: 0.01 to slow: 0.99
TheSpeed = 0.2
'Flash 7 times
Do Until x = 7
DoEvents
Start = Timer
Delay = Start + TheSpeed
Do Until Timer > Delay
DoEvents
MakeFlash.Interior.ColorIndex = FlashColor
Loop
Start = Timer
Delay = Start + TheSpeed
Do Until Timer > Delay
DoEvents
MakeFlash.Interior.ColorIndex = xlNone
Loop
x = x + 1
Loop
End If
Next i
End Sub
Dim FlashColor As Integer
Dim MakeFlash As Range
Dim x As Integer
Dim TheSpeed
Dim i
'Just a random range of cells. Change it to whatever you want.
Set MakeFlash = Range("A1,C6,F3,H4")
For Each I In MakeFlash
If i.Value > 4 Then
FlashColor = 3 'Set the color to red
'Make the cell range flash fast: 0.01 to slow: 0.99
TheSpeed = 0.2
'Flash 7 times
Do Until x = 7
DoEvents
Start = Timer
Delay = Start + TheSpeed
Do Until Timer > Delay
DoEvents
MakeFlash.Interior.ColorIndex = FlashColor
Loop
Start = Timer
Delay = Start + TheSpeed
Do Until Timer > Delay
DoEvents
MakeFlash.Interior.ColorIndex = xlNone
Loop
x = x + 1
Loop
End If
Next i
End Sub
Feb 23, 2009 at 07:21 AM
Oct 26, 2009 at 01:08 AM