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
Hello,
In Excel I can make cell red when formula is greater than 4 but how do I GET CELL TO FLASH Office 2003
And can you in same spreadsheet link page with name under dates to sheet containing name in row to a number under same date IE j bloggs under 30 Mar in weekly sheet to a 1 under same date in monthy sheet every time name appears ( 160 name to go in)
In Excel I can make cell red when formula is greater than 4 but how do I GET CELL TO FLASH Office 2003
And can you in same spreadsheet link page with name under dates to sheet containing name in row to a number under same date IE j bloggs under 30 Mar in weekly sheet to a 1 under same date in monthy sheet every time name appears ( 160 name to go in)
Related:
- Blinking cell in excel without macro
- How to make a cell blink in excel without vba - Best answers
- Conditional blinking cell in excel - Best answers
- Spell number in excel without macro - Guide
- Gif in excel - Guide
- Esc f1 f4 blinking - Laptop Forum
- Excel mod apk for pc - Download - Spreadsheets
- Based on the cell values in cells b77 ✓ - 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