接下来咱们说说具体的操作步骤:
步骤一:
按<Alt+F11>组合键, 打开VBE窗口。
步骤二:
插入→模块。
Sub 倒计时()
Dim t As Variant
t = Timer
Do While Cells(5, 3) > 0'这里的数值用于指定行号和列号,5和3,表示第五行第3列,即C5单元格。
DoEvents
If Timer - t > 1 Then
t = Timer:
Cells(5, 3) = Cells(5, 3) - TimeValue("00:00:01")
End If
Loop
End Sub
步骤三:
开发工具→插入→表单控件(按钮)
根据提示指定宏:
现在,在C5单元格中输入一个起始时间,然后单击一下按钮,就可以显示倒计时效果了。
联系客服