excel怎么倒计时?

来源:百度知道 编辑:UC知道 时间:2024/09/22 08:31:42
比如我输入一个时间01:23:17,怎么样才能让它自动每秒倒计至00:00:00呢?

A1 输入 2008-8-8 8:8:8
A2 输入 =NOW()
A3 输入 =A1-A2
A4 输入:
=INT(A3)&"天"&TEXT(A3-INT(A3),"h时m分s秒")
A4 便是倒计时

如要倒计时每秒运行, 便要执行宏, VBA代码:
Sub Olympic()
ActiveSheet.Calculate
Application.OnTime Now + TimeValue("00:00:01"), "Olympic"
End Sub

如需停止倒计时, 要另多写一个宏

用VB才有办法。

可以,是的