Excel如何制作倒计时牌?
1、按<Alt+F11>组合键, 打开VBE窗口。

2、插入→模块

3、在模块区输入以下代码:
Sub 倒计时()
Dim t As Variant
t = Timer
Do While Cells(5, 3) > 0'
DoEvents
If Timer - t > 1 Then
t = Timer:
Cells(5, 3) = Cells(5, 3) - TimeValue("00:00:01")
End If
Loop
End Sub

4、开发工具→插入

5、插入表单控件(按钮)

6、在C5单元格输入一个起始时间,然后点击按钮.最后效果如下

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。