atob قام بنشر يوليو 23, 2006 مشاركة قام بنشر يوليو 23, 2006 السلام عليكم ورحمه الله وبركاته اشكر كل من في هذا المنتدى لتعاونهم في الرد على استفسارات الاعضاء والله يجعل الاجر من حظ الجميع سؤالي هو انني عملت ورقه اكسيل ووضعت فيها ساعه وكودين لتشغيل الساعه والاخر لايقافها ولكن بعد الانتهاء من العمل وجدت ان الساعه تشتغل عند ضغط على زر التشغيل بينما عند الضغط على زر الايقاف لا تتوقف فطلبي منكم مأجورين مساعدتي بايجاد كود لايقاف الساعه الملف موجود في المرفقات وشكرا للجميع رابط هذا التعليق شارك More sharing options...
omar elhosseini قام بنشر يوليو 23, 2006 مشاركة قام بنشر يوليو 23, 2006 بسم الله الرحمن الرحيم الاخ 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 وسوف يعمل الكود جيدا تحياتى رابط هذا التعليق شارك More sharing options...
atob قام بنشر يوليو 23, 2006 الكاتب مشاركة قام بنشر يوليو 23, 2006 اخوي tameromar الله يوفقك دنيا واخره بالفعل نجح الكود في ايقاف الساعه ..........وشكرا لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها