高考倒计时时钟制作—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()

    CountDown

End Sub

'这段程序的作用是打开Excel时自动调用时钟倒计时模块。

6、现在退出Excel，然后重新打开看看！

OK！高考倒计时时钟做好了！

愿您安排好每一秒，轻松愉快迎接丰收时刻的到来！