Question

如何用excel做一个动态倒计时精确到秒?

Answer 1

用excel做一个动态倒计时精确到秒步骤如下：

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

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

3、按照上图的代码，照着输入就行。上述代码输入成功之后，在窗口的左边右键点击“ThisWorkbook”，选择“查看代码”。

4、在弹出的VBA代码窗口中，输入上图所需要的代码。最后，关闭VBA窗口，返回Excel并保存文件，然后关闭Excel，之后再打开该Excel文件，效果就出来了。

Answer 2

一、步骤：

A1 输入 1993-10-15 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