Cum se face ca celula să clipească roșie în Excel?
În general, evidențiem celulele cu fundaluri diferite pentru a le distinge de altele, dar aici, în acest articol, introduc un cod VBA care poate face ca celulele specifice să clipească cu fundal roșu la restante în Excel.
Faceți celula să clipească roșie cu VBA
Faceți celula să clipească roșie cu VBA
Pentru a face ca celulele să clipească intermitent pentru a atrage atenția utilizatorilor, iată un cod VBA.
1. Activați foaia pe care doriți să clipească celulele și apăsați Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Moduleși apoi lipiți mai jos codul VBA în Module scenariu. Vedeți captura de ecran:
VBA: Faceți celula să clipească roșu
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. presa F5 cheie și a Kutools pentru Excel apare fereastra de dialog pentru selectarea celulelor pe care doriți să le faceți flash, consultați captura de ecran:
4. clic OK. Acum, celula selectată a fost flash cu fundal roșu.
Sfat:
(1) În codul VBA, puteți schimba culoarea de fundal (xColor = 3), viteza de clipire (xSpeed = 0.6) și clipește (Faceți până la xCount = 20) după cum doriți.
(2) Acest cod VBA nu va adăuga fundalul flash la selecția goală.
(3) Acest fundal bliț va fi eliminat automat după terminarea orelor goale.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!