Microsoft Excel倒计时器

您是否曾希望在 Excel 工作簿中有一个动态倒计时器？

倒数计时器非常适合为观众营造一种紧迫感或兴奋感。也许您想要一个视觉提醒，让您的团队参与办公室即将举行的活动。

本文介绍了一个您可以在 Excel 工作簿中配置和使用的倒计时器。

倒计时器模板

计时器的原理是，您可以按所需的天数、小时数、分钟数和秒数启动计时器。计时器会倒计时，直到剩余时间归零。

这里描述了两个倒计时器模板：

第一个模板在单元格中显示剩余时间。

Countdown Timer Templates 02 shape display — Microsoft Excel倒计时器 1

第二个模板以矩形显示剩余时间，以增强视觉吸引力。

您选择的模板由您决定。

启动倒计时器

打开倒计时器模板开始新的倒计时：

Start the Countdown Timer 01 set start time — Microsoft Excel倒计时器 2

通过更改左上角的绿色值来设置开始时间 倒计时器 工作表。您可以将开始时间设置为天，小时，分钟和秒。

Start the Countdown Timer 02 start button — Microsoft Excel倒计时器 3

点击开始按钮开始倒计时。

Start the Countdown Timer 03 countdown — Microsoft Excel倒计时器 4

观察底部的剩余时间如何不断倒计时，直到剩余时间为零。计时器将在此时自动停止。

停止倒计时器

您可以在计时器到达零之前停止它，并在需要时随时恢复倒计时：

Stop the Countdown Timer 01 stop button — Microsoft Excel倒计时器 5

点击停止按钮，倒计时剩余时间将冻结。

Stop the Countdown Timer 02 restart timer — Microsoft Excel倒计时器 6

当您准备恢复计数时，请点击开始按钮，剩余时间将取消冻结并继续计数。

重置倒计时器

如果你提前停止了计时器或者只是想开始一个全新的倒计时，你可能需要重置计时器：

Reset the Countdown Timer 01 set start time — Microsoft Excel倒计时器 7

可选择按照步骤 1 中的说明设置新的开始时间 启动倒计时器 部分。

Reset the Countdown Timer 02 reset button — Microsoft Excel倒计时器 8

点击重置按钮，剩余时间将显示您的新开始时间。

Reset the Countdown Timer 03 restart timer — Microsoft Excel倒计时器 9

点击开始当您准备从重置开始时间开始倒计时时，请按下按钮。

配置倒计时器

倒计时器有几个功能允许您自定义它，而无需更改任何宏代码：

Configure the Countdown Timer 01 configuration sheet — Microsoft Excel倒计时器 10

前往配置表来编辑配置设置。
这 工作表名称 设置指示包含计时器的工作表。如果您将计时器移至其他工作表或重命名工作表，则需要更新此设置。
更改 更新间隔 如果您希望剩余时间的显示刷新得更慢。这意味着 2 将导致计时器倒计时 2 秒，而不是默认值 1 秒。请注意，这只会影响显示，而不会改变计时器达到零所需的实际时间。
这 剩余天数形状名称 设置表示跟踪剩余天数的形状的名称。如果您重命名或更改形状，这将很有用。此设置和形状名称必须始终匹配。请参阅 Excel 功能 部分以获取有关形状的更多信息。
这 剩余小时数形状名称 设置与 剩余天数形状名称 但持续了几个小时。
这 剩余分钟数形状名称 设置与 剩余天数形状名称 但只有几分钟。
这 剩余秒数形状名称 设置与 剩余天数形状名称 但只需几秒钟。

Configure the Countdown Timer 02 remainingtime named range — Microsoft Excel倒计时器 11

在显示单元格剩余时间的模板中，有一个名为 RemainingTime。从中选择此范围 名称框 验证剩余时间的显示位置。您可以将此单元格移动到任意位置，计时器仍可正常运行。

此模板中使用的 Excel 功能

倒计时器模板整合了几个关键的 Excel 功能：

OnTime 方法是 VBA 代码中必不可少的一部分。它是一种内置方法，可让您让 Excel 在特定时间执行任务。重复使用 OnTime 方法可实现倒计时效果。

Timer = Now + IntervalTimeValue
...
Application.OnTime Timer, "CountDownTime"

上面的代码演示了 OnTime 方法。 IntervalTimeValue 表示默认的1秒间隔。 Timer 表示从现在起 1 秒的时间。 OnTime 方法运行 CountDownTime 1 秒后。 CountDownTime 程序在调用之前更新剩余时间的显示 OnTime 方法让计时器继续运行。

这 时间序列 函数也是一个重要的函数。Excel 将特定时间视为单个数字。一旦您知道小时、分钟和秒，就可以使用 时间序列 将它们转换成一个数字，以便倒计时。

RemainingTime = TimeSerial(hh, nn, ss)

上面的代码展示了如何使用 TimeSerial。 hh， nn 和 ss 值分别代表剩余的小时、分钟和秒。 TimeSerial 将该时间转换为数字并将其存储在 RemainingTime。

你可以从中减去 1 秒 RemainingTime 计算新的剩余显示时间。您需要计算 RemainingTime - (1/24/60/60) 因为时间总是以一天的分数来表示。这意味着 1 秒等于 (1/24/60/60) 一天的。

形状对象是用于跟踪模板中剩余时间的另一个关键 Excel 功能：

Excel Features 01 remainingdays shape — Microsoft Excel倒计时器 12

Set RemainingDays = wsTimer.Shapes("RemainingDays")
...
RemainingDays.TextFrame2.TextRange.Characters.Text = Days

上述代码引用了一个名为 RemainingDays 位于 wsTimer 工作表。形状的文本将更新为 Days 这是计时器的剩余天数。

结论

本文介绍了一个倒计时器模板，您可以使用它作为 Excel 中的自己的计时器。

请随意将您自己的表格与倒计时器相结合，并根据需要调整配置。