如何用excel做一个动态倒计时精确到秒，比如3天15小时20分7秒开始倒计时。

如何用excel做一个动态倒计时精确到秒，比如3天15小时20分7秒开始倒计时。

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
你试试看行不

vba不知道你用过没有，可以下个宏，很简单去一下系统时间再做个减法，Ok追问有详细的操作过程吗？

这个功能实现起来比较困难，必须用VBA才能解决，最好增加一列到期时间，在表格中编辑数据时会冲突，编辑数据是停用“倒计时”，建议增加一个按钮进行切换，

操作方法：
第一步：
C2单元格输入 到期时间，如2018-1-3 0:0:0
D2单元格 输入 =NOW()
E2单元格 输入 =C2-D2
B2单元格输入:
=INT(E2)&"天"&TEXT(E2-INT(E2),"h时m分s秒")
第二步：把C、D、E三列设为隐藏，以保美观和安全。
说明如果C、D、E三列有数据，可在选没有数据的三列作辅助列，但上面的公式中单元格地址要作同样的修改。
第三步：按AIT+F11调出宏编辑器，单击“插入” / “模块”,在弹出的代码编辑区输入下列代码：

Sub Olympic()

ActiveSheet.Calculate
Application.OnTime Now + TimeValue("00:00:01"), "Olympic"
End Sub
第四步：返回工作表，在合适位置画一个图形，右键单击图形 ，在快捷菜单中单击“指定宏/”01ympic"/确定。
第五步：单击图形，执行宏代，计时每秒运行。