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

注明孙弯意不能少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,点击就开始

当倒计时到正禅宏0 的时候举册 先执行某代码

然后再下面添加语句： Command1_click 就可以了 过程是可以调用的

不明白袭困可以追问 记得别放错位置了 顺序很重要

---