Data between cells a1: af12 flashes Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Açıklama: A1:AF12 hücreleri arasındaki veriler yanıp söner 
Kod: 
Sub FlashFont() 
'Joe Was 
'Make cell range font flash, x times, x fast, in x color, 
'when Ctrl-z is pressed. 
Dim newColor As Integer 
Dim myCell As Range 
Dim x As Integer 
Dim fSpeed

'Make this cell range font flash! 
Set myCell = Range("A1:AF12") 
Application.DisplayStatusBar = True 
Application.StatusBar = "... Şu an flash yazı gösterisi var lütfen biraz bekleyin...! "

'Make cell font 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 = 3

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

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

'Run loop! 
DoEvents 
Start = Timer 
Delay = Start + fSpeed 
Do Until Timer > Delay 
DoEvents 
myCell.Font.ColorIndex = newColor 
Loop 
Start = Timer 
Delay = Start + fSpeed 
Do Until Timer > Delay 
DoEvents 
myCell.Font.ColorIndex = xlAutomatic 
Loop 
x = x + 1 
Loop 
Application.StatusBar = False 
Application.DisplayStatusBar = Application.DisplayStatusBar 
End Sub 
Sub reSetFlash()

'Re-set cell range color if edit break on color, Ctrl-r to re-set! 
ActiveCell.Select 
Selection.Interior.ColorIndex = xlNone 
End Sub

No	Macro Name
1	Data between cells a1: af12 flashes
2	Data between cells a1: af12 flashes
3	Automatically insert other data between sequential data in excel
4	2 Move data between listboxes
5	2 Move data between listboxes
6	delete every 5 min without warning if there is data between a1: a3000
7	Inserts date between e1: e10 when entering data between a1: c10
8	a3: prints data between cells f15
9	retrieve data from closed files
10	if you enter data between a1-a20
11	Create your own extensions and functions in excel
12	if data is present in cells A1: A5, B6: B10C1: C5 d4: D10 on all sheet / pages
13	assigns date to the next line when data is entered in certain cells on the sheet / page
14	importing data into the listbox
15	automatic image fetch
16	It takes data from "listbox a" and then writes "textbox b"
17	a: Imports only full cells from the data in cells a200 to the listbox. (empty cells invisible)
18	excel operators hk
19	select by intersecting full row and column (perfect)
20	Finding the Number of Each Item in the List Using the VBA and Pivot Table

Excel Free Macros (VBA)

Data Between Cells A1: Af12 Flashes

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords