Excel 单元格里的时间，如何让它开始动起来，变成时钟？

在 Excel 中，如何让时间动起来？自动计时或倒计时？

今天就教大家用最简单的方法实现效果。

案例如下：

解决方案：

先在 Excel 中用公式设置时间。

1. 在 A1 单元格中输入“=NOW（）”

这个公式比较简单，就是计算现在的时间，默认情况下，仅精确到分钟，我们需要设置为精确到秒才能看得到时间的动态变化。

2. 选中 A1 单元格 --> 按 Ctrl+1 --> 在弹出的对话框中选择“数字”选项卡 --> 在当前自定义的格式后面加上“：ss”，使得整段格式变成“yyyy/m/d h：mm：ss”

此时，虽然时间已经精确到了秒，但是此时的时间是不会动的，我们还需要用 VBA 简单设置一下。

3. 按 Alt+F11 --> 在弹出的 VBE 窗体中选择“插入模块”-->“模块”

4. 在右侧的窗体中输入以下代码：

Sub aaa()

   '对表格中的公式重新进行计算

  Calculate

   '从现在开始，之后每秒运行一次这个宏模块"aaa"

  Application.OnTime Now + TimeValue("00:00:01"), "aaa"

End Sub

5. 关闭 VBE --> 将 Excel 保存为 .xlsm 格式的文件

6. 打开这个文件，按 Alt+F11 --> 按 F5 --> 关闭 VBE，单元格中的时间就以每秒为单位，自动开始计时。

7. 如果要停止计时，可以按 Alt+F11 --> 选择菜单栏的“中断” --> 关闭 VBE，时间就静止了。

8. 如果要设置倒计时时间，比如，离 目标日期还有多少天，可以将 A1 单元格的公式修改为：

=目标日期（日期格式）-now()

但此时的格式很奇怪，差额变成了日期格式，需要重新设置该日期和时间格式一下。

9. 现在再运行 VBA，时间就开始自动倒计时。