如何用Excel制作随时跳动的
倒计时 以制作2008
北京奥运会倒计时为例: 启动Excel并新建工作簿，按下Alt+F11进入VBA编辑状态。在左侧的"工程
资源管理器"中选择当前工作簿，然后执行"插入"－"模块"命令，插入一个新模块（模块1）。
双击"模块1"进入代码编辑区域中，输入以下代码。输入完成后，关闭窗口返回工作表中。
Sub Timer()
ss=DateDiff("s", Now, "2008-8-8 20:00:00")
dd=ss\86400
ss=ss-dd*86400
hh=ss\3600
ss=ss-hh*3600
mm=ss\60
ss=ss-mm*60
ActiveSheet.Range("A1") = "现在离北京2008奥运会开幕还有" & vbCrLf & dd & "天" & hh & "小时" & mm & "分钟" & ss & "秒"
Application.OnTime Now + TimeValue("00:00:01"), "Timer"
End Sub
按下Alt+F8展开"宏"对话框，选中"Timer"宏，单击"执行"按钮返回，当前工作表的A1单元格中即刻出现一个北京奥运的倒计时钟
以上代码首先计算出当前时间与结束时间相隔的总秒数，再分别转换成对应的天数、小时数、分钟数和秒数。其中的Application.OnTime用于安排倒计时宏每隔一秒运行一次。大家在Excel使用中如果要用到时间的倒计时计算，便可使用这种方式。