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

高考快要临近了，冲刺倒计时的时钟撞击着每位家长的心，甚至全社会都在随之一同跳动。小编做了一个高考倒计时时钟，希望自己也能融入到这一跳动的脉搏，同时也希望与家长朋友分享制作过程。请跟我来！放松一下！开始轻松愉快的制作吧！

前期准备工作（包括相关工具或所使用的原料等）

Excel/vba

详细的操作方法或具体步骤

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

按下Alt+F11打开VBA窗口，右击工程窗口空白处插入模块。

双击刚插入的模块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

按下F5运行。调整好单元格大小，设置好背景色和字体。

绿色背景代表青春活力，红色字代表提醒，黄色字代表丰收。

寓意：向丰收冲刺，迎接丰收的喜悦！

在工程窗口中双击ThisWorkbook对象，在右边的代码窗口中输入下面的代码：

Private Sub Workbook_Open()

CountDown

End Sub

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

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

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

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

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。