Kronometre

[erdincsen11]

Merhaba arkadaşlar
Acil kronometre ye ihtiyacım var dosya olarak olursada iyi olur. Start stop temizle özelliği olan, şimdiden teşekkürler

 

[Haluk]

Userform açıldığı andan itibaren otomatik sıfırdan sayan kronemetre...!

Merhaba, Userform açıldığın andan itibaren otomatik sıfırdan sayan kronometre için kod talebim bulunmaktadır. Bu şekilde bir kronometre sayesinde userformda kalınma süresini veya şöyle izah edeyim çalışma süresini görmeyi hedefliyorum. Şimdiden destekleriniz için teşekkür eder, hayırlı akşamlar...

www.excel.web.tr

.

 

[gelibolu]

Sub StartTimer()
If Not TimerStatus Then
TimerStatus = True
StartTime = Now
UpdateTimer
End If
End Sub

Sub StopTimer()
TimerStatus = False
End Sub

Sub ResetTimer()
TimerStatus = False
ElapsedTime = 0
Sheets("Sayfa1").Range("A1").Value = "00:00:00"
End Sub

Sub UpdateTimer()
If TimerStatus Then
ElapsedTime = Now - StartTime
Sheets("Sayfa1").Range("A1").Value = Format(ElapsedTime, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "UpdateTimer"
End If
End Sub

Sekme Sayfa1 olsun 3 şekil yada düğme ekleyiniz.