"結束時哪個開始的時間點要與前面的相對應。要定義一個模組變數或全域性變數，保證時間點相同

dim ss

Sub proc()

Dim t

t = DateDiff("n", startime, Now())

If exam_s Then

Sheet4.Range("f2") = t & "分鐘"

Else

Sheet4.Range("f2") = Format(Now(), "hh:mm:ss")

End If

ss=Now() + TimeValue("00:01:00")

Application.OnTime Now() + TimeValue("00:01:00"), "proc"

End Sub

Sub stoptime()

On Error Resume Next

Application.OnTime ss, "proc", , False

End Sub

"這個是程式中指定停，也可以把, 這二句放在關視窗的事件中

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

Application.OnTime ss, "proc", , False

End Sub