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

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

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

。选择您要闪烁的单元格。

。从格式菜单中选择样式。 Excel将显示“样式”对话框。 （参见图1。）

。在“样式名称”框中，输入一个新的样式名称。 （对于此示例，使用样式名称Flashing。）

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

。单击确定。

现在，您可以将样式应用于工作簿中所需的任何其他单元格。现在创建宏（有两个），如下所示：

Dim NextTime As Date

Sub StartFlash()

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

With ActiveWorkbook.Styles("Flashing").Font         If .ColorIndex = xlAutomatic Then .ColorIndex = 3         .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宏。

关于此宏，有一件重要的事情要注意：变量NextTime在使用它的实际过程中声明为_outside_。这样做是为了使NextTime在从一次StartFlash调用到下一次调用之间保持其值。

注意：

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

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

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

本技巧（2134）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

Flashing Cells。