如何在 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 键，弹出一个 Kutools for Excel 对话框，用于选择您希望闪烁的单元格，参见截图：

4. 单击 确定。现在所选单元格将以红色背景闪烁。

提示：

(1) 在 VBA 代码中，您可以根据需要更改背景颜色 (xColor = 3)、闪烁速度 (xSpeed = 0.6) 和闪烁次数 (Do Until xCount = 20)。

(2) 此 VBA 代码不会为未选择的空白区域添加闪烁背景。

(3) 闪烁背景将在空白时间结束后自动移除。