如何在excel中做一个时间倒计时，注意精确到秒数，而不是到天数！

Question

如题所述

Answer 1

在a1输入
="现在距离春节还剩"&text("2010-02-14"-now(),"d天h时m分s秒")
这个只有你重新打开或者按f9才能自动变化。
如果要自动倒计时，需右键点该工作表的名字（在excel窗口的下面），查看代码，粘贴以下代码：
private
sub
worksheet_calculate()
application.wait
now
+
timevalue("00:00:01")
range("a1").calculate
end
sub
会到excel中，按一次f9就可以了。
问题是，这时，你什么也干不了了，只能看着它变化。按esc停止。

Answer 2

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
如需停止倒计时,
要另多写一个宏