اذهب الي المحتوي
أوفيسنا

تفعيل الوقت


إذهب إلى أفضل إجابة Solved by lionheart,

الردود الموصى بها

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

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

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

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

مثال.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

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

 

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information