Question

VBA中如何设置倒计时

想在VBA中设置个时钟（象VB中时钟控件一样）用来计时，例如：半小时倒数等。

可没找到相关控件，初学VBA，还请各路高手赐教。

Answer 1

不用控件,VBA有个计时函数OnTime可以实现

下面的代码可以实现在单元格A1倒计时(以EXCEL为例):
把A1=20(或其他任意一个正数),按ALT+F11,在新窗口双击左边的SHEET1 ,在右边窗口把代码粘进去,运行这个小程序

Sub nn()
[a1] = [a1] - 1
If [a1] < 1 Then End
Application.OnTime Now + TimeValue("00:00:1"), "sheet1.nn"
End Sub

Answer 2

其实你只需要在h1里面输入下面的公式就可以了：
=if(now()>g1+i1/24/60,"时间到",text(g1+i1/24/60-now(),"hh:mm"))
有个要求g1输入的时间必须还有日期，例如
2014/5/27
8:49