如何在Excel中使单元格闪烁红色？

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！