تفعيل الوقت

[TQTHAMI]

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

اسعد الله اوقاتكم بالصحة والخير

لدي اشكالية بسيطة اتمنى ان اجد حلها لديكم وهي كالتالي  ان يكون الوقت شغال يعني تقلب الثواني والدقائق مجرد فتح اليوزر فورم 

وتقبلوا خالص التحية 

مثال.xlsm

[lionheart]

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

 

[TQTHAMI]

الحمد لله عرفت الخلل وضبط عي جزاك الله عنا خير الجزاء