The background of cells a1: m8 flashes Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php

Sub FlashBack() 
'Make cell range Background color, flash x times, x fast, in x color, 
'when Ctrl-a is pressed.

Dim newColor As Integer 
Dim myCell As Range 
Dim x As Integer 
Dim fSpeed

'Make this cell range background flash! 
Set myCell = Range("A1:M8") 
Application.DisplayStatusBar = True 
Application.StatusBar = "... Select Cell to Stop and Edit or Wait for Flashing to Stop! "

'Make cell background flash to this color! 
'Black 25, Magenta 26, Yellow 27, Cyan 28, Violet 29, Dark Red 30, 
'Teal 31, Blue 32, White 2, Red 3, Light Blue 41, Dark Blue 11, 
'Gray-50% 16, Gray-25% 15, Bright Cyan 8. 
newColor = 11

'Make the cell range flash fast: 0.01 to slow: 0.99 
fSpeed = 0.2

'Make cell flash, this many times! 
Do Until x = 2

'Run loop! 
DoEvents 
Start = Timer 
Delay = Start + fSpeed 
Do Until Timer > Delay 
DoEvents 
myCell.Interior.ColorIndex = newColor 
Loop 
Start = Timer 
Delay = Start + fSpeed 
Do Until Timer > Delay 
DoEvents 
myCell.Interior.ColorIndex = xlNone 
Loop 
x = x + 1 
Loop 
Application.StatusBar = False 
Application.DisplayStatusBar = Application.DisplayStatusBar 
End Sub

No	Macro Name
1	The background of cells a1: m8 flashes
2	Background of cells "a1: m8" flashes
3	background flashes
4	watermark printing (faded font on sheet / page background)
5	Data between cells a1: af12 flashes
6	Data between cells a1: af12 flashes
7	Cells Colorful Flashes
8	Adds cells with red background color between cells A1: d20
9	cell column selections
10	cell and column selections
11	automatic image fetch
12	finds formulas on active sheet / page lists new sheet / page
13	inserts months as sheet / pages Specifies days in detail
14	excel operators hk
15	Inputbox add year as summer
16	Create your own extensions and functions in excel
17	dyes empty cells between cells a1: a10
18	dyes empty cells between cells a1: a10
19	empty cells become green
20	Calculate the sum of cells with only a certain cell color

Excel Free Macros (VBA)

The Background Of Cells A1: M8 Flashes

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords