Cách chạy nhiều đồng hồ đếm giờ trong VBA (3 người xem)

[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

 

[tranduc36]

cho mình số phone tạo hô mình cái chứ mình ngu cntt.có được k bạn hay bạn làm hộ mình cái video hd đc không.đội ơn ban

 

[Tuấn Bụng Bự]

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.

bạn nên mô tả rõ yêu cầu ứng dụng nó làm gì, kích hoạt đếm giờ khi có sự kiện gì, kích hoạt tạm dừng khi có sự kiện gì, kích hoạt reset giừo khi có sự kiện gì ?

 

[thuytrangbp28]

cho mình số phone tạo hô mình cái chứ mình ngu cntt.có được k bạn hay bạn làm hộ mình cái video hd đc không.đội ơn ban

1. Bạn muốn nhận được nhiều hỗ trợ thì đầu tiên đừng viết tắt, có mấy chữ còn "lười" gõ thì chắc gì bạn đã "siêng năng" tiếp nhận hỗ trợ của người khác
2. Muốn người khác giúp mình thì phải nói rõ mình cần gì, vì cái "mong muốn" đó bạn hiểu, nhưng người khác không hiểu, muốn người khác hiểu thì mình phải giải thích rõ ràng