Giúp code dừng code stop Application.OnTime

[minhtuan55]

Chào cả nhà GPE ! Em có dùng đoạn code dưới để cập nhật thời gian sau 3 giây. Nhưng em muốn làm thêm 1 nút bấm để code ngưng chạy nữa. Mong mọi người giúp đở. Xin chân thành cảm ơn

Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:03"), "ProTimer"
End Sub

Sub ProTimer()
Range("a1") = Now
Ontimer
End Sub

 

[Quang_Hải]

Chào cả nhà GPE ! Em có dùng đoạn code dưới để cập nhật thời gian sau 3 giây. Nhưng em muốn làm thêm 1 nút bấm để code ngưng chạy nữa. Mong mọi người giúp đở. Xin chân thành cảm ơn

Sub Ontimer()
Application.OnTime Now + TimeValue("00:00:03"), "ProTimer"
End Sub

Sub ProTimer()
Range("a1") = Now
Ontimer
End Sub

Sub StartOntimer()
Application.OnTime Now + TimeValue("00:00:03"), "ProTimer"
End Sub
Sub ProTimer()
With ActiveSheet.Shapes("Oval 1").TextFrame2.TextRange.Characters
    If .Text <> "ON" Then
        StartOntimer
        Range("a1") = Range("a1") + 1
    End If
End With
End Sub
Sub StopOnTimer()
With ActiveSheet.Shapes("Oval 1").TextFrame2.TextRange.Characters
    If .Text <> "OFF" Then
        .Text = "OFF"
        ProTimer
    Else
      .Text = "ON"
    End If
End With
End Sub