vba 周期性执行一个方法

问题10：如何使工作表中的文本闪烁？
解答：为了使文本闪烁，您需要周期性地执行一个程序来变换文本的前景色，OnTime方法可以用于周期性地运行一个程序。
‘**************************************************
Public RunWhen As Double
Sub StartBlink()
If Range("A1").Font.ColorIndex = 2 Then
        Range("A1").Font.ColorIndex = xlColorIndexAutomatic
    Else
        Range("A1").Font.ColorIndex = 2
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
‘**************************************************
Sub StopBlink()
Range("A1").Font.ColorIndex = xlColorIndexAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub
在上面的这些程序中，您可以改变参数A1为您想要使文本闪烁的单元格或单元格区域。在工作簿打开时，您需要初始化这个程序，因此，您可以放置下面的代码到ThisWorkbook代码模块中。
‘**************************************************
Private Sub Workbook_Open()
StartBlink
End Sub
当工作簿关闭时，您需要取消OnTime事件，因此，您需要放置下面的代码到ThisWorkbook代码模块中。
‘**************************************************
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub
示例文档见在Excel中闪烁文本.xls。UploadFiles/2006-8/81151110.rar

上述内容来自
http://blog.excelhome.net/user1/fanjy/archives/2006/555.html