Nhờ mọi người xem giúp, mình có code đồng hồ đếm ngược sau, chạy bình thường nhưng nếu tạm dừng 2 lần thì báo lỗi code.

[TruongVanThuy]

Public interval As Date
Sub timer()
If Range("K7").value = 0 Then Exit Sub

Range("K7") = Range("K7") - TimeValue("00:00:01")
interval = Now + TimeValue("00:00:01")
Application.OnTime interval, "timer"

End Sub
Sub pauser_timer()
Application.OnTime EarliestTime:=interval, Procedure:=("timer"), Schedule:=False

End Sub
Sub stop_timer()
Range("K7").value = TimeValue("00:00:01")

End Sub

 

[truongvu317]

Thử code này xem bạn.
Sub pauser_timer()
if interval=0 then exit sub' da dung rùi thi thôi dừng
Application.OnTime EarliestTime:=interval, Procedure:=("timer"), Schedule:=False
interval=0
End Sub

 

[TruongVanThuy]

Thử code này xem bạn.
Sub pauser_timer()
if interval=0 then exit sub' da dung rùi thi thôi dừng
Application.OnTime EarliestTime:=interval, Procedure:=("timer"), Schedule:=False
interval=0
End Sub

Cám ơn bạn mình đã làm được