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,点击就开始

Dim fxing As Integer '设置一个全局变量

Private Sub Form_Load()

Timer1.Interval = 100 '设置时钟事件为1000毫秒,也就是1秒,设置值小一定会移动得快一些

Timer1.Enabled = True '时钟控件为触发状态

Shape1.Shape = 3 'shape控件为 圆形

fxing = 100

End Sub

Private Sub Timer1_Timer() '时钟事件

Cls '

Shape1.Top = Shape1.Top + fxing

If Shape1.Top + 500 + Shape1.Height >= Form1.Height Or Shape1.Top <120 Then fxing = -fxing

End Sub ELyt 2008-07-05 08:01 检举

---