excel表格倒数怎么显示

1.excel 倒数时间

Sub 倒计时（） [a1].NumberFormatLocal = "h:mm:ss;@" [a1] = [a1] - 1 / 3600 / 24 '减去1秒 If [a1] < 1 / 60 / 24 Then [a1].Font.ColorIndex = 3 '小于1分钟，红色显示 Else [a1].Font.ColorIndex = 5 '否则蓝色显示 End If If [a1] > 0 Then Application.OnTime Time + TimeSerial(0, 0, 1), "sheet1.倒计时"， ， True '每过一秒调用本程序一次 Else [a1] = "00:00:00" End If End Sub ALT+F11，双击右边sheet1后粘贴代码。

最好建一命令按钮，单击开始运行Sheet1.倒计时。 Private Sub CommandButton1_Click() Sheet1.倒计时 End Sub。