[摘 要]因为Excel集数据库和程序设计于一体，令广大VBA编程爱好者前赴后继地奔走在Excel考试系统路上，定时器作为考试系统的基本要求，而Excel却没有Timer，使爱好者乱了方寸，幸好Application对象OnTime方法带来了一线生机，但它又无法感知系统时间被修改的弊端，成了Excel考试系统的死穴，又让爱好者垂头丧气。
　　[关键词]探讨 Excel Application对象 OnTime方法
　　中图分类号：TP311.52 文献标识码：A 文章编号：1009-914X（2016）02-0351-01
　　Excel考试系统的重点和难点都是定时器的实现，但定时器作为任何考试系统的基本要求，又无法回避，怎样彻底实现Excel考试系统的定时器功能呢？
　　一、实现定时器的基本方法
　　虽然Excel VBA没有提供定时器，但可以通过Application对象的OnTime方法实现简单的定时器功能，OnTime方法能够安排一个过程在将来的特定时间运行，既可以是具体指定的某个时间，也可以是指定的一段时间之后。
　　语法如下：Application.OnTime EarliestTime，Procedure，LatestTime，Schedule
　　在OnTime方法中递归调用Procedure过程，就可实现定时器。
　　二、致命的死穴
　　尽管OnTime方法可以具体指定的某个时间和指定的一段时间之后两种方式执行Procedure，但本质上都是具体指定的某个时间，因此一旦修改系统时间，不管是提前或延后时间，让其错过指定时刻，或让指定时刻延后数小时或更长，导致OnTime方法失效，从而失去定时器的功能，成为Excel考试系统的死穴。
　　三、解决方案
　　许多编程爱好者都在苦苦探索一旦修改系统时间，立刻让Excel感知系统时间被修改了，从而调整定时器方案，其中想利用类似lostfocus和getfocus事件的Workbook_Activate（）、Workbook_SheetActivate（）、Workbook_WindowActivate（）等事件的探索者，均以失败而告终，因为WindowActivate等事件都是在有两个以上workbook打开时（也就是多个excel文件），互相之间切换起作用，而不是workbook和其他程序窗口间切换。同理，WindowDeactivate也得是在多个workbook时起作用。
　　经过多次探索，终于发现Worksheet_Change（）或Workbook_SheetChange（）可担当此大任，两个事件都在编辑单元格后触发事件，类似TextChange事件，因为一般而言，Excel随时随地都处于编辑状态，所以时时刻刻都会触发Worksheet_Change（）或Workbook_SheetChange（）事件，只要在事件中获取系统时间，并比较前后时间的变化，即可判断系统时间是否被修改。尤其是系统时间被修改为以前的时间，更容易感知，因为时间毕竟不能倒流。
　　四、具体实现方法
　　首先定义两个全局变量Public pass As Date，Public nowtime As Date，在Workbook_Open（）事件中获取系统时间，启动定时器过程displaytime（）。
　　Private Sub Workbook_Open（）
　　nowtime = Now（）
　　pass = nowtime - TimeValue（"01：00：00"） '防恶意修改系统时间
　　displaytime
　　End Sub
　　而在定时器中递归调用过程displaytime（）。
　　Public Sub displaytime（）
　　nexttime = Now + TimeValue（"00：00：01"）
　　If Range（"D2"）.Value > TimeValue（"00：00：00"） Then
　　Application.OnTime nexttime， "ThisWorkbook.displaytime"， ， True
　　End If
　　End Sub
　　在Worksheet_Change（）或Workbook_SheetChange（）事件中利用DateDiff函数比较pass和nowtime两个变量，当nowtime比pass还早，说明修改了系统时间，提示并作关闭Excel处理。
　　Private Sub Workbook_SheetChange（ByVal Sh As Object， ByVal Target As Range）
　　nowtime = Now（）
　　If DateDiff（"s"， pass， nowtime） < 0 Then '修改系统时间，按提交处理
　　Response = MsgBox（" 恶意修改系统时间 "， 0， "提示"）
　　ActiveWorkbook.Save
　　Application.Quit
　　Else
　　pass = nowtime '正常，时间在一分一秒过去
　　End If
　　End Sub
　　五、定时器在考试系统中的注意事项
　　在考试系统中，发现修改系统时间进行异常处理时，一般都要在Workbook_SheetChange（）中记录考试状态和退出考试的原因，并存放在Excel文档中，此时又会触发Workbook_SheetChange（）形成递归调用，而又没有递归的退出机制，导致堆栈空间溢出，Excel出现1004号错误，使整个考试系统崩溃，那么又怎样避免Workbook_SheetChange（）形成递归调用呢？可在事件处理中使用Application.EnableEvents=False禁止触发事件，而处理完成后Application.EnableEvents=True重新启动触发事件。
　　至此，Excel考试系统的重点和难点——定时器的实现方法探讨完毕，整个考试系统彻底健壮起来了，真正完成了Excel考试系统的开发工作。
　　参考文献
　　[1] 张志群，EXCEL单元格自定义数字格式探讨，微型电脑应用，2008，24
　　[2] 甘伟明，用Excel构建计算机等级考试自动改卷评分系统，电脑学习 2010，2