需要用到VBA编程,以下是前人的留贴,供参考
操作步骤:
1、在Excel工作表里按Alt+F11,打开VBA编程界面
2、在VBA编程界面的工具栏,第二个按钮拉下来选模块
3、在左边栏的你需要计时器的那个工作表名字上双击,打开右边的程序书写区域
4、把下面的程序代码粘贴进去
PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)
IfTarget.Cells.Count=1And(NotIntersect(Target.Cells(1),Range("B1"))IsNothing)Then
[B1]="开始时间"
[C1]=Format(Now(),"Hh:mm:Ss")
[D1]=Timer
[D1].Font.ColorIndex=2
[B2:D3].ClearContents
EndIf
IfTarget.Cells.Count=1And(NotIntersect(Target.Cells(1),Range("B2"))IsNothing)Then
[B2]="结束时间"
[C2]=Format(Now(),"Hh:mm:Ss")
[D2]=Timer
[D2].Font.ColorIndex=2
[B3]="总共用时"
[C3]=Format([D2]-[D1],"#0.00")
[D3]="秒"
EndIf
Target.Offset(1,0).Select
EndSub
5、关闭VBA编程界面回到工作表
6、双击B1开始计时,双击B2终止计时,用时结果在C3单元格
(特别提醒:要在Exce中通过菜单“工具-宏-安全性”把宏的安全级别设为中或低以允许宏的运行,否则宏不能运行也得不到你要的结果)