MS Excel

Téma: Tlačítka START a STOP

Zaslal/a Jan.PRAHA 1.5.2014 10:00

Ahoj všem nadšencům excelu mám na Vás prosbu. Mám tlačítko START a potřebuji jakmile ho zmáčknu tak se zpustil čas ( ale kdybych ho zmač po druhy tak aby se uz nic nestalo cas by normalne bezel) a pak tlačítko STOP které když zmáčknu tak se čas zastaví (ale kdyz ho zmacknu po druhy tak aby se nic nestalo) momentalne mi to hazi chybu a nevim co s tim.
Tady jsou řádky

Šešit1:

Sub Count()

PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Cells(1, 1) = (Start + PauseTime) - Timer
Loop
End Sub
Private Sub CommandButton1_Click()
startTimer

End Sub
Private Sub CommandButton2_Click()
stopTimer
End Sub

Modul1:

Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
End Sub

Sub Increment_count()
Range("A1").Value = Range("A1") + 1
startTimer
End Sub

Sub stopTimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", Schedule:=False
End Sub