A timer can be created using Excel and the Visual Basic language available through Excel.
A rough version of the Visual Basic code could look like the following:
Sub FreezeStart_EndTime()
'
' FreezeStart_EndTime Macro
'
' Keyboard Shortcut: Ctrl+Shift+F
'
Dim Endtime
Endtime = Now()
Range("A6").Select
Selection.Copy
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B7").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[-1]C+R[-3]C[3]"
Endtime = Worksheets("sheet1").Range("B7").Value
Call Timer2(Endtime)
End Sub
Sub Timer2(B)
Dim Check, Counter
Check = True: Counter = 1
Worksheets("sheet1").Range("C8").Value = "WORKINGa"
Do
Do While Counter > 0
' ActiveCell.FormulaR1C1 = "working"
Worksheets("sheet1").Range("C8").Value = "workingB"
Counter = Counter + 1
If (Worksheets("sheet1").Range("A9").Value) = "Y" Then
' If "=$A$6" > B Then
' If "$A$6" > ActiveCell.FormulaR1C1 Then
Check = False
' ActiveCell.FormulaR1C1 = "Working"
Worksheets("sheet1").Range("C8").Value = "WorkingC"
Exit Do
End If
Loop
Loop Until Check = False
' Call Timer3
Call Timer4
End Sub
Sub Timer4()
' Dim Count1 As Integer
Range("C8").Select
ActiveCell.FormulaR1C1 = "FINISHED"
' For Count1 = 1 To 200
' Beep
' Beep
' Beep
' Next
'
' Sound Macro
' Sound (Music) for alarm
'
'
ActiveSheet.Shapes("Object 2").Select
Selection.Verb Verb:=xlPrimary
End Sub
After running, the accompanying spreadsheet, for 10 seconds elapsed time, it might look like the following:
A........................... B...... ...... C ............ D.............. E
...........................Hours......... Minutes .....Seconds... Total
1=->................... 0.0416667 0.000694444 1.15741E-05
desired elapsed--> 0 .............. 0 ..................10 .....0.000116
..............23:02:21. 22:37:22
..............23:02:31. 22:37:32
..............23:02:31 .................FINISHED
Y
Ctl+Shift+F