Wie kann man Zellen in Excel rot blinken lassen?

Im Allgemeinen werden die Zellen mit unterschiedlichen Hintergründen hervorgehoben, um sie von anderen zu unterscheiden. In diesem Artikel stelle ich jedoch einen VBA-Code vor, mit dem die spezifischen Zellen mit rotem Hintergrund in Excel auffällig blinken können.

Lassen Sie die Zelle mit VBA rot blinken

---

Lassen Sie die Zelle mit VBA rot blinken

Hier ist ein VBA-Code, damit Zellen blinken, um die Aufmerksamkeit der Benutzer auf sich zu ziehen.

1. Aktivieren Sie das Blatt, für das Sie Zellen blinken möchten, und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modulund fügen Sie dann den folgenden VBA-Code in das ein Modul Skript. Siehe Screenshot:

VBA: Zelle blinken lassen

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. Drücken Sie F5 Schlüssel und a Kutools for Excel Das Dialogfeld zur Auswahl der Zellen, die Sie blinken lassen möchten, wird angezeigt. Siehe Screenshot:

4 Klicken OK. Jetzt blinkt die ausgewählte Zelle mit rotem Hintergrund.

Tipps:

(1) Im VBA-Code können Sie die Hintergrundfarbe ändern (xFarbe = 3), Blinkgeschwindigkeit (xSpeed ​​= 0.6) und blink mal (Bis xCount = 20) wie du willst.

(2) Dieser VBA-Code fügt der leeren Auswahl keinen Flash-Hintergrund hinzu.

(3) Dieser Flash-Hintergrund wird nach Ablauf der Leerzeiten automatisch entfernt.