excel如何实现循环倒计时呢？

来源：百度知道 编辑：UC知道 时间：2024/05/25 22:34:47
比如我想在 A1 开始显示倒计时时间 我想显示成15分钟循环倒计时

那要是在B1设置一个按钮，按一下后，A1就自动开始做15分钟的倒循环。

请问这个按钮的宏怎么写呢？

问题的关键是：循环倒计时。
1楼的答案执行看不到在哪里显示，可以说明一下吗？

注意不能少public a
public a
Sub now()
If a = 0 Then
a = Time
Else
Cells(1, 1) = 900 - DateDiff("s", a, Time)
End If
If Cells(1, 1) > 0 Then
Application.OnTime DateAdd("s", 1, Time), "now"
End If
End Sub

结果在 a1 单元格
你可以在a1之外的地方插入一个图形里的形状或插入图片，设置 指定宏为 now,点击就开始