[HỎI] Cách tạo đồng hồ đếm giây trong VBA (2 người xem)

[harrybotboy]

Chào các anh chị, em đang cho chạy một thủ tục tính toán và muốn biết thủ tục của em chạy tốn bao nhiêu thời gian, nhưng chưa biết phải làm thế nào, không lẽ lại ngồi cầm đồng hồ đếm xem thủ tục mình soạn ra chạy hết bao nhiêu giây. Anh chị nào có đoạn code về đếm thời gian trong VBA không chỉ em với?

 

[SA_DQ]

Xài tạm cái này

Sub TínhGiay()
 Dim Cls As Range
 Dim J As Long, Thg As Byte, K As Byte
  Tmp = Timer()
 For J = 1 To 10 ^ 5
     Set Cls = Cells(J)
     Set Cls = Nothing
 Next J
 MsgBox Timer - Tmp
End Sub

 

[harrybotboy]

Bạn có cách nào khai thác được hàm Timer không HYen17 ? mình muốn cái đồng hồ nó chạy liên tục trong 1 cell, định dạng là 00:00, như đồng hồ bấm giờ ấy.