Excel制作倒计时与正计时器教程

首先在Excel中通过公式计算时间差并设置自定义格式显示倒计时或正计时，再利用VBA实现每秒自动刷新，最后通过条件格式对剩余时间进行可视化警示。

如果您希望在Excel中实时显示距离某个时间点的剩余时间或已过时间，可以通过公式与单元格格式设置实现动态倒计时或正计时功能。以下是具体操作步骤：

本文运行环境：Surface Laptop 5，Windows 11

一、使用公式创建倒计时器

倒计时器通过计算当前时间与目标结束时间之间的差值，动态显示剩余天数、小时、分钟和秒。

1、在单元格A1中输入目标截止时间，例如“2025/4/30 18:00”，并确保该单元格格式为日期时间类型。

2、在单元格B1中输入以下公式：=A1-NOW()，此公式将返回从当前时间到目标时间的时间差。

3、右键点击B1单元格，选择“设置单元格格式”，在“自定义”类别中输入 d"天" h"小时" m"分钟" s"秒"，以使结果显示为易读格式。

4、按F9键可手动刷新NOW()函数的值，观察倒计时变化；若需自动更新，请启用工作簿计算模式为“自动”。

二、使用公式创建正计时器

正计时器用于记录从某一固定起始时间到当前时刻所经过的时间长度。

1、在单元格A2中输入开始时间，例如“2025/4/1 9:00”，并确认其格式为日期时间。

2、在单元格B2中输入公式：=NOW()-A2，该公式计算当前时间与起始时间的差值。

3、对B2单元格应用自定义格式：d"天" h"小时" m"分钟" s"秒"，以便清晰展示累计时间。

4、同样通过F9刷新或设置自动重算来保持时间更新。

三、利用VBA实现高精度实时刷新

由于NOW()函数不会实时更新，仅在工作表重新计算时变动，因此使用VBA可以实现每秒自动刷新的精确计时效果。

1、按下Alt+F11打开VBA编辑器，在对应工作表代码窗口中粘贴以下代码：

Private Sub Worksheet_Calculate()
Application.OnTime Now + TimeValue("00:00:01"), "RecalculateSheet"
End Sub

2、在模块中添加如下子程序：

Sub RecalculateSheet()
ActiveSheet.Calculate
End Sub

3、关闭VBA编辑器并保存文件为启用宏的工作簿（.xlsm）。

4、首次运行可通过菜单栏“开发工具”→“宏”执行RecalculateSheet一次，之后计时器将每秒自动刷新。

四、设置条件格式突出关键阶段

为了增强可视化效果，可在倒计时期间根据剩余时间设置不同颜色警示。

1、选中包含倒计时结果的单元格（如B1）。

2、点击“开始”选项卡中的“条件格式”→“新建规则”。

3、选择“使用公式确定要设置格式的单元格”，输入公式：=DAY(B1)<3，表示剩余不足3天。

4、点击“格式”按钮，设置字体颜色为红色，背景设为黄色，点击“确定”完成设置。

5、可新增其他规则，例如针对剩余时间小于1小时的情况，使用公式=HOUR(B1)<1并设置闪烁样式或更醒目的颜色。