كيف اضع ساعه مع اضافه زرين ماكرو للتشغيل والايقاف

[atob]

السلام عليكم ورحمه الله وبركاته

اشكر كل من في هذا المنتدى لتعاونهم في الرد على استفسارات الاعضاء والله يجعل الاجر من حظ الجميع

سؤالي هو انني عملت ورقه اكسيل ووضعت فيها ساعه وكودين لتشغيل الساعه والاخر لايقافها

ولكن بعد الانتهاء من العمل وجدت ان الساعه تشتغل عند ضغط على زر التشغيل بينما عند الضغط على زر الايقاف لا تتوقف

فطلبي منكم مأجورين مساعدتي بايجاد كود لايقاف الساعه

الملف موجود في المرفقات

وشكرا للجميع

[omar elhosseini]

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

الاخ atob

يجب الاعلان عن المتغير "stopit" كمتغير عام

ضع "Dim stopit" قبل اول روتين

لتصبح هكذا :

Dim stopit

Sub startclock()
stopit = False
clock
End Sub

Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub

Sub stopclock()
stopit = True
istop = i
End Sub

وسوف يعمل الكود جيدا

تحياتى

[atob]

اخوي tameromar الله يوفقك دنيا واخره بالفعل نجح الكود في ايقاف الساعه ..........وشكرا لك