高考倒计时时钟制作—Excel VBA应用

1、新建一个Excel文件，将其打开。

3、双击刚插入的模块1,在打开的代码窗口中输入下面的程序。Sub CountDown() s = DateDiff("s", Now, "2015-6-7 09:00:00") d = s \ 86400 s = s - d * 86400 h = s \ 3600 s = s - h * 3600 m = s \ 60 s = s - m * 60 Sheets(1).[A1] = "离2015年高考还有" Sheets(1).[A2] = d & "天" & h & "小时" & m & "分钟" & s & "秒" Application.OnTime Now + TimeValue("00:00:01"), "CountDown"End Sub

5、在工程窗口中双击ThisWorkbook对象，在右边的代码窗口中输入下面的代码：Private Sub Workbook_Open() CountDownEnd Sub'这段程序的作用是打开Excel时自动调用时钟倒计时模块。