ace cho loi bo sung di
Sub batdau()
Application.OnTime Now + TimeValue("00:00:01"), "tieptuc"
End Sub
Sub tieptuc()
If Sheet1.Range("e2").Value = 0 Then Exit Sub
Sheet1.Range("e2").Value = Sheet1.Range("e2").Value - TimeValue("00:00:01")
batdau
End Sub
Sub ketthuc()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "tieptuc", , False
End Sub