Cách chạy nhiều đồng hồ đếm giờ trong VBA

[micam111]

Cho mình hỏi nếu mình muốn set nhiều đồng hồ đếm ngược thay vì một cái như trong file excel đính kèm sử dụng VBA thì có cách nào không.
Mình cảm ơn.

 

[heyhey1994]

Sub Timer()
Dim gCount As Date
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "ResetTime"
End Sub

Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("N3:N8")
For Each cell In xRng
cell.Value = cell.Value - TimeSerial(0, 0, 1)
If cell.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Next cell
Call Timer
End Sub

Thử này nhé bạn, muốn đến ô bao nhiêu thì đổi chỗ N8, nó sẽ dừng khi có 1 cái chạm mốc 0