小伙伴们好啊,今天和大家分享一个VBA代码的趣味应用,一起来制作一个倒计时牌:
接下来咱们说说具体的操作步骤:
步骤一:
按组合键, 打开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
步骤三:
开发工具插入表单控件(按钮)
根据提示指定宏:
图文制作:梁倩
领取专属 10元无门槛券
私享最新 技术干货