Question

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

如何用excel做一个动态倒计时精确到秒，比如3天15小时20分7秒开始倒计时。已经知道需要倒计时多久了，用excel如何实现？如下图，就是像这样，在待处理时间内输入要倒计时的时间，然后excel就会开始倒计时，大概就是这种感觉，求excel高手解答~~希望越详细越好，本人excel不太懂~~
最好能有个操作步骤文档发到a cglord@1 26.com 这个邮箱~~大家这样说的都太模糊了，或者是已经做好的excel发给我也可以~~

Answer 1

1、A3自动显示现在的时间，而B3是我们自己输入的到期日期时间，现在要制作的精确到秒的倒计时的提示，就显示在C3单元格中。

2、在Excel操作窗口中，按下组合键 Alt+F11 ，弹出VBA窗口，然后，执行如下图的菜单操作：“插入”→“模块”。

3、弹出如下图的代码输入窗口。

4、上述代码输入成功之后，在窗口的左边右键点击“ThisWorkbook”，选择“查看代码”如下图。

5、最后，关闭vba窗口，返回Excel并保存文件，然后关闭Excel，之后再打开该Excel文件，效果就出来了。

注意事项：

Excel虽然提供了大量的用户界面特性，但它仍然保留了第一款电子制表软件VisiCalc的特性：行、列组成单元格，数据、与数据相关的公式或者对其他单元格的绝对引用保存在单元格中。

Answer 2

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

Answer 3

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

Answer 4

http://jingyan.baidu.com/article/fdbd42773e4091b89e3f48cf.html

用EXCEL制作“倒计时器”

Answer 5

操作方法：
第一步：
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"/确定。
第五步：单击图形，执行宏代，计时每秒运行。