Hur får jag cellen att blinka rött i Excel?
I allmänhet lyfter vi fram celler med olika bakgrunder för att skilja dem från andra. Men i den här artikeln kommer jag att introducera en VBA-kod som får specifika celler att blinka med en röd bakgrund för att sticka ut i Excel.
Låt cellen blinka rött med VBA
Låt cellen blinka rött med VBA
För att få celler att blinka och dra till sig användarnas uppmärksamhet, här är en VBA-kod.
1. Aktivera arket du vill blinka celler och tryck på Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. klick Insert > Modulernaoch klistra sedan in under VBA-koden i Modulerna manus. Se skärmdump:
VBA: Låt cellen blinka rött
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. Tryck F5 nyckel och en Kutools för Excel dialogruta dyker upp för att välja celler som du vill göra flash, se skärmdump:
4. klick OK. Nu har den valda cellen blixtsnabbt med röd bakgrund.
Tips:
(1) I VBA-koden kan du ändra bakgrundsfärg (xFärg = 3), blinkhastighet (xSpeed = 0.6) och blinka gånger (Gör tills xCount = 20) som du vill.
(2) Denna VBA-kod lägger inte till flash-bakgrund i tomt val.
(3) Denna blixtbakgrund tas bort automatiskt när de tomma tiderna är slut.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!