许多人使用Excel的条件格式设置功能来吸引人们注意其工作表的特定值或区域。例如，如果某个单元格的格式高于或低于某个阈值，则其格式可能会以红色或黑体显示。

但是，缺少的是使单元格内容闪烁或闪烁的方法。对于这样的壮举，您将拥有自己的设备和宏的奇迹。通过使用这些工具，可以通过为闪烁的单元格设计特殊的样式，然后运行一个简单的宏来使单元格闪烁。

若要创建特殊样式，请按照下列步骤操作：

。选择您要闪烁的单元格。 （确保单元格中有东西；不应为空。）

。确保“主页”选项卡显示在功能区上。

。在“样式”组中，单击“单元格样式”。 Excel将显示预定义样式的选择。

。选择“新单元格样式”。 Excel将显示“样式”对话框。 （请参见图1。）

。在“样式名称”框中，输入名称“ Flashing”（不带引号）。

。使用对话框中的控件，根据需要修改样式的任何属性。

。单击确定。

现在定义了样式，您需要将该样式应用于要“刷新”的所有单元格。确保不将样式应用于其他任何单元格。

现在创建宏（有两个），如下所示：

Dim NextTime As Date

Sub StartFlash()

NextTime = Now + TimeValue("00:00:01")

With ActiveWorkbook.Styles("Flashing").Font         If .ColorIndex <> 2 And .ColorIndex <> 3 Then             .ColorIndex = 3         End If         .ColorIndex = 5 - .ColorIndex     End With     Application.OnTime NextTime, "StartFlash"

End Sub
Sub StopFlash()

Application.OnTime NextTime, "StartFlash", schedule:=False     ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic End Sub

要开始闪烁项目，只需运行StartFlash。用“闪烁”样式设置格式的单元格将在红色和白色文本之间交替大约每秒一次。当您要关闭闪光灯时，只需运行StopFlash宏。

在本技巧的前面，宏通过修改您先前定义的样式来工作。 （请务必确保将样式命名为“ Flashing”，

，如步骤5所示。）所有操作都是更改ColorIndex属性，以便在两个值（3和2）之间切换。导致闪烁效果，因为文本颜色从红色（3）变为白色（2）并再次变回。

关于此宏，还有另一件事要注意：变量NextTime在使用它的实际过程中声明为_outside_。这样做是为了使NextTime在从一次StartFlash调用到下一次调用之间保持其值。该值用于指定下一次（将来一秒钟）重新运行StartFlash。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（7223）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

Flashing Cells。