1、新建一个Excel文件，将其打开。
2、按下Alt+F11打开VBA窗口，右击工程窗口空白处插入模块。
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
4、按下F5运行。调整好单元格大小，设置好背景色和字体。
绿色背景代表青春活力，红色字代表提醒，黄色字代表丰收。
寓意：向丰收冲刺，迎接丰收的喜悦！
5、在工程窗口中双击ThisWorkbook对象，在右边的代码窗口中输入下面的代码：
Private Sub Workbook_Open()
CountDown
End Sub
'这段程序的作用是打开Excel时自动调用时钟倒计时模块。
6、现在退出Excel，然后重新打开看看！
OK！高考倒计时时钟做好了！
愿您安排好每一秒，轻松愉快迎接丰收时刻的到来！
