来源：

Dim Runtime As Date          Sub RunTimer()         Runtime = Now() + TimeValue("00:00:01")         Application.OnTime Runtime, "my_Procedure"     End Sub          Sub my_Procedure()         Static count As Integer         count = count + 1         For i = 1 To 10             For j = 1 To 20                 Cells(i + (count - 1) * 10, j) = "我中毒了~~~~"                 Cells(i + (count - 1) * 10, j).Font.Color = vbRed                 Cells(i + (count - 1) * 10, j).Font.Size = 10             Next         Next         If count = 10 Then             Exit Sub         End If              RunTimer     End Sub

就是一个在单元格中的循环，按时间来循环，每过1秒钟进行一个循环~

为了不让其无限循环下去，设置了循环10次即退出~

吃饭倒计时：

Dim Runtime As Date          Sub RunTimer()         Runtime = Now() + TimeValue("00:00:01")         Application.OnTime Runtime, "my_Procedure"     End Sub          Sub my_Procedure()         Cells(1, 2) = Format(Now(), "h:mm:ss")         Cells(2, 2) = "18:00:00"         Cells(3, 2) = Format(Cells(2, 2) - Cells(1, 2), "h:mm:ss")         Cells(4, 2) = Format(TimeValue("18:00:00") - TimeValue(Now()), "h:mm:ss")         RunTimer     End Sub