كود استوب وتش

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

بعد التحية

ادارة حساب كل جهاز

لكم جزيل الشكرااستوب وتش1.rar

[طارق زكريا حسين جاه الرسول]

UPUP

UP

[محمود_الشريف]

أخى الكريم 

إليك محاولة منى 

ضع هذا الكود فى موديول واربط زر التشغيل بـ START وزر الايقاف بـ STOP

ولكنه سيعمل على خلية واحده B4

Dim NextTick As Date, t As Date

Sub StartClock()
t = Time
Call TickTock
End Sub

Private Sub TickTock()
Range("B4").Value = Format(Time - t, "hh:mm:ss")
NextTick = Now + TimeValue("00:00:01")
Application.OnTime NextTick, "TickTock"
End Sub

Sub StopClock()
Application.OnTime earliesttime:=NextTick, procedure:="TickTock", schedule:=False
End Sub

 

[طارق زكريا حسين جاه الرسول]

الاستاذ الكبير محمد الشريف

لك الف شكر وتقدير

[محمود_الشريف]

 

أخى الكريم

جزيتم عنى خيرا