如何在Excel中使單元格閃爍紅色？

通常，我們突出顯示具有不同背景的單元格，以使其與其他單元格區分開來，但是在這裡，在本文中，我介紹了一個VBA代碼，該代碼可以使特定的單元格以紅色背景閃爍，從而在Excel中表現出色。

使用VBA使單元閃爍紅色

---

使用VBA使單元閃爍紅色

為了使單元格閃爍以吸引用戶的注意力，這是一個VBA代碼。

1.啟用要閃爍單元的工作表，然後按 Alt + F11鍵 打開鑰匙 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊，然後將以下VBA代碼粘貼到 模塊 腳本。 看截圖：

VBA：使單元閃爍紅色

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。 按 F5 鑰匙和一個 Excel的Kutools 彈出對話框，選擇要閃爍的單元格，請參見屏幕截圖：

4。 點擊 OK。 現在，所選單元格已閃爍紅色背景。

提示：

（1）在VBA代碼中，您可以更改背景顏色 （xColor = 3），眨眼速度 （xSpeed = 0.6） 和眨眼時間 （直到xCount = 20為止） 如你所願。

（2）此VBA代碼不會將Flash背景添加到空白選擇中。

（3）空白時間結束後，此閃光燈背景將被自動刪除。