需要用到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中通過菜單“工具-宏-安全性”把宏的安全級別設為中或低以允許宏的運行,否則宏不能運行也得不到你要的結果)