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

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() CountDownEnd Sub'这段程序的作用是打开Excel时自动调用时钟倒计时模块。

6、现在退出Excel，然后重新打开看看！OK！高考倒计时时钟做好了！愿您安排好每一秒，轻松愉快迎接丰收时刻的到来！