Jak v aplikaci Excel blikat červeně?

Obecně zvýrazňujeme buňky s různým pozadím, abychom je odlišili od ostatních, ale zde v tomto článku představuji kód VBA, díky kterému mohou konkrétní buňky blikat s červeným pozadím na vynikající v aplikaci Excel.

Zajistěte, aby buňka blikala červeně pomocí VBA

---

Zajistěte, aby buňka blikala červeně pomocí VBA

Aby buňky blikaly, aby přilákaly pozornost uživatelů, je zde kód VBA.

1. Povolte list, který chcete bleskovat, a stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula poté vložte pod kód VBA do Modul skript. Viz screenshot:

VBA: Zajistěte, aby buňka blikala červeně

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. lis F5 klíč a Kutools pro Excel Zobrazí se dialogové okno pro výběr buněk, které chcete bleskovat, viz screenshot:

4. cvaknutí OK. Vybraná buňka nyní bliká červeně.

Tip:

(1) V kódu VBA můžete změnit barvu pozadí (xColor = 3), rychlost blikání (xSpeed ​​= 0.6) a bliká krát (Do Dokud xCount = 20) jak chceš.

(2) Tento kód VBA nepřidá zábleskové pozadí do prázdného výběru.

(3) Toto pozadí blesku bude automaticky odstraněno po skončení prázdných časů.