TQTHAMI قام بنشر مايو 15, 2022 مشاركة قام بنشر مايو 15, 2022 السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بالصحة والخير لدي اشكالية بسيطة اتمنى ان اجد حلها لديكم وهي كالتالي ان يكون الوقت شغال يعني تقلب الثواني والدقائق مجرد فتح اليوزر فورم وتقبلوا خالص التحية مثال.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر مايو 15, 2022 أفضل إجابة مشاركة قام بنشر مايو 15, 2022 In standard module Dim timerActive As Boolean Public Sub Start_Timer() timerActive = True Application.OnTime Now() + TimeValue("00:00:01"), "Timer" End Sub Public Sub Stop_Timer() timerActive = False End Sub Public Sub Timer() If timerActive Then UserForm1.Label1.Caption = Time Application.OnTime Now() + TimeValue("00:00:01"), "Timer" End If End Sub then in userform module Private Sub UserForm_Activate() Call Start_Timer End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Call Stop_Timer End Sub 2 رابط هذا التعليق شارك More sharing options...
TQTHAMI قام بنشر مايو 15, 2022 الكاتب مشاركة قام بنشر مايو 15, 2022 الحمد لله عرفت الخلل وضبط عي جزاك الله عنا خير الجزاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان