Bạn có thể làm vầy:
(/iết 1 macro có ~ nội dung sau:
Option Explicit
Dim TGian As Variant: Dim Dem As Boolean
Sub DemTG()
1 If Dem = 0 Then
2 Dem = -1
3 TGian = Timer()
4 Else
5 Dem = 0
6 MsgBox Str(Timer() - TGian)
End If
End Sub
Bạn sẽ nhận được thông báo thời gian giữa 2 lần nhấn nút lệnh mà bạn gán Macro này vô!
Còn muốn giá trị hiện lên 1 ô nào đó (VD A9) thì thay dòng lệnh 9 = 2 dòng sau
9 Range("A9").Select
10 Activecell.Value= Timer()-TGian