Microsoft Excel倒计时器

Microsoft Excel倒计时器

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

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

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

推荐:Microsoft Excel中将图表保存为图像的6种方法

倒计时器模板

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

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

Microsoft Excel倒计时器
Microsoft Excel倒计时器
  1. 第一个模板在单元格中显示剩余时间。
  1. 第二个模板以矩形显示剩余时间,以增强视觉吸引力。

您选择的模板由您决定。

启动倒计时器

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

  1. 通过更改左上角的绿色值来设置开始时间 倒计时器 工作表。您可以将开始时间设置为 小时分钟
  1. 点击 开始 按钮开始倒计时。

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

停止倒计时器

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

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

推荐:TopPic主题响应式WordPress摄影作品集主题 

重置倒计时器

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

  1. 可选择按照步骤 1 中的说明设置新的开始时间 启动倒计时器 部分。
  1. 点击 重置 按钮,剩余时间将显示您的新开始时间。
  1. 点击 开始 当您准备从重置开始时间开始倒计时时,请按下按钮。

配置倒计时器

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

  1. 前往 配置 表来编辑配置设置。
  2. 工作表名称 设置指示包含计时器的工作表。如果您将计时器移至其他工作表或重命名工作表,则需要更新此设置。
  3. 更改 更新间隔 如果您希望剩余时间的显示刷新得更慢。这意味着 2 将导致计时器倒计时 2 秒,而不是默认值 1 秒。请注意,这只会影响显示,而不会改变计时器达到零所需的实际时间。
  4. 剩余天数形状名称 设置表示跟踪剩余天数的形状的名称。如果您重命名或更改形状,这将很有用。此设置和形状名称必须始终匹配。请参阅 Excel 功能 部分以获取有关形状的更多信息。
  5. 剩余小时数形状名称 设置与 剩余天数形状名称 但持续了几个小时。
  6. 剩余分钟数形状名称 设置与 剩余天数形状名称 但只有几分钟。
  7. 剩余秒数形状名称 设置与 剩余天数形状名称 但只需几秒钟。
  1. 在显示单元格剩余时间的模板中,有一个名为 RemainingTime。从中选择此范围 名称框 验证剩余时间的显示位置。您可以将此单元格移动到任意位置,计时器仍可正常运行。

此模板中使用的 Excel 功能

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

  1. OnTime 方法是 VBA 代码中必不可少的一部分。它是一种内置方法,可让您让 Excel 在特定时间执行任务。重复使用 OnTime 方法可实现倒计时效果。
Timer = Now + IntervalTimeValue
...
Application.OnTime Timer, "CountDownTime"

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

  1. 时间序列 函数也是一个重要的函数。Excel 将特定时间视为单个数字。一旦您知道小时、分钟和秒,就可以使用 时间序列 将它们转换成一个数字,以便倒计时。
RemainingTime = TimeSerial(hh, nn, ss)

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

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

  1. 形状对象是用于跟踪模板中剩余时间的另一个关键 Excel 功能:
Set RemainingDays = wsTimer.Shapes("RemainingDays")
...
RemainingDays.TextFrame2.TextRange.Characters.Text = Days

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

结论

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

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

推荐:多功能AMP报纸杂志WordPress主题Vinkmag 


发表评论