利用Excel制作秒表计时器.docxVIP

利用Excel制作秒表计时器 很多用户在进行Excel数据时，想知道自己在Excel中做一件事情需要多长时间，或是老师在上课的过程中，想在规定的时间内，来检测学生的实际动手能力，等等此类，都需要计时。 可能有的用户想到了操作系统中的时钟，或是想到了利用Flash来制作一个时钟，来进行计时，其实大可不必，Excel软件就能解决这个问题，我们可以用VBA在Excel中做一个秒表计时器，在做之前启动秒表，做完后停止秒表看用了多长时间，如图。这个秒表在单元格中显示时间，可以实现秒表的基本功能：单击“开始”按钮开始计时，单击“停止”按钮暂停与停止，再次单击“开始”按钮继续，单击“复位”按钮归零。 小时：分钟：秒-百分秒 Z7Z7/Z7Z7/Z7Z7-Z7Z7 开始 下面我们以Excel2010为例来说明其制作过程。 1.在“Sheetl”工作表中单击菜单栏中的“开发工具”菜单，如图2所示。（说明：若没有该菜单，打开“Excel 1. 选项”对话框，在“自定义功能区”选择“开发工具”项，如图3所示）。 串向视图开发二具曾屈性宇查看代码司执行对话框 表单控件■函回?==□AzJab|JJqActiveX控件 REDlKATItm 图3 单击“ActiveX控件”的“命令按钮”工具，在工作表中绘出3个按钮，其默认名称依次为“CommandButtonl”、“CommandButton2、“CommandButton3。 2,按Alt+F11，打开VBA编辑器，在“工程”窗口中双击“Sheetl(Sheetl)”，在右侧的代码窗口中粘贴 下面的代码： PublicStopItAsBoolean PublicResetItAsBoolean PublicLastTime PrivateSubCommandButton1_Click() DimStartTime,FinishTime,TotalTime,PauseTime StopIt=False ResetIt=False IfRange(E10”)=0Then StartTime=Timer PauseTime=0 LastTime=0 Else StartTime=0 PauseTime=Timer EndIf StartIt: DoEvents IfStopIt=TrueThenLastTime=TotalTimeExitSub ElseFinishTime=TimerTotalTime=FinishTime-StartTime+LastTime-PauseTimeTTime=TotalTime*100HM=TTimeMod100TTime=TTime\100hh=TTime\3600TTime=TTimeMod3600MM=TTime\60SS=TTimeMod60 Range(E10”).Vdue=Format(hh,00):Format(MM,00):Format(SS,00).Format(HM,00”)IfResetIt=TrueThenRange(E10)=Format(0,00):Format(0,00):Format(0,00).Format(0,00)LastTime=0PauseTime=0EndEndIfGoToStartIt EndIf EndSub PrivateSubCommandButton2_MouseDown(ByValButtonAsInteger,ByVhlShiftAsInteger,ByVilXAsSingle,ByValY AsSingle) StopIt=True EndSub PrivateSubCommandButton3_Click() Range(E10”).Vdue=Format(0,00):Format(0,00):Format(0,00).Format(0,00”) LastTime=0 ResetIt=True EndSub 说明：上述代码将在E10单元格中显示秒表时间，也可以将其改为其他单元格。代码中使用了Timer函数，Timer函数返回一个Single，代表从午夜开始到现在经过的秒数。 3.关闭VBA编辑器。在工作表中右击“CommandButtonl”按钮，在弹出的菜单中选择“属性”，弹出“属性”窗口。 OTnTOQCommandB OTnTO Q CommandB Cr S萸切CD复制? 粘贴凹辱查B代码堕i 命令技钮对蒙(S)?组合国? 图4稣屠??在“属性窗口”中，将“CommandButtonl”按钮的“Caption属性改名为“开始”。 图4 图5 图5 然后分别将“CommandButton2”、“CommandButton3”按钮用相同的方法修改其“Caption”属性改为“停止”和“复位”。 修改完