Hvordan får jeg celle til at blinke rødt i Excel?
Generelt fremhæver vi cellerne med forskellige baggrunde for at gøre dem fra andre, men her i denne artikel introducerer jeg en VBA-kode, der kan få de specifikke celler til at blinke med rød baggrund til fremragende i Excel.
Få cellen til at blinke rødt med VBA
Få cellen til at blinke rødt med VBA
For at få celler til at blinke for at tiltrække brugernes opmærksomhed er her en VBA-kode.
1. Aktivér det ark, du vil blinke celler, og tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt derefter VBA-koden under Moduler manuskript. Se skærmbillede:
VBA: Få cellen til at blinke rødt
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. Trykke F5 nøgle og en Kutools for Excel dialog vises for at vælge celler, du vil lave flash, se skærmbillede:
4. klik OK. Nu har den valgte celle blinket med rød baggrund.
tips:
(1) I VBA-koden kan du ændre baggrundsfarven (xFarve = 3), blinkhastighed (xSpeed = 0.6) og blink gange (Gør indtil xCount = 20) som du vil.
(2) Denne VBA-kode føjer ikke flashbaggrund til det tomme valg.
(3) Denne flashbaggrund fjernes automatisk, når de tomme tider er færdige.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools for Excel, og oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Office Tab Giver fanebladsgrænseflade til Office og gør dit arbejde meget nemmere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
