[Çözüldü] User Form Üzerine Kronometre koymak

[drejan62]

Merhabalar
Hazırladığımız bir excel dosyasını açtığımızda  açılan user form üzerine koyacağımız bir label nesnesi üzerine  program açıldığında başlayacak bir kronometra koyabilirmiyiz.
Durdur butonuna bastığımızda da durmasını sağlayacak bir kod da tabi

Teşekkürler

[Rami]

Bir modüle:

Kod: [Seç]

Public zmn As Date
Public Start As Boolean
Sub makro()
    Application.OnTime Now + TimeValue("00:00:01"), "makro2"
End Sub
Sub makro2()
   UserForm1.Label1.Caption = Format(Time - zmn, "hh:mm:ss")
    If Start = True Then Call makro
End Sub
Durdur butonu ve label nesnesi ekleyip; Userform sayfasına:

Kod: [Seç]

Private Sub UserForm_Activate()
  makro
    zmn = Time
    Start = True
End Sub

Private Sub CommandButton1_Click()
  Start = False
End Sub


Kodlarını ekleyin.

[drejan62]

Kamil Bey çok teşekkür ederim
peki son bi soru sorsam
zamanı durdur dedğimizde programın kaç dakika çalıştığını msgbox ile kullanıcıya söyleyebilirmiyiz
teşekkürler

[Rami]

Label nesnesinden alarak istiyorsanız; buton altındaki kodu şöyle değiştirin.

Kod: [Seç]


Private Sub CommandButton1_Click()
  Start = False
 MsgBox "PROGRAM  " & Mid(Me.Label1.Caption, Len(Me.Label1.Caption) - 7, 2) & " saat   " & Mid(Me.Label1.Caption, Len(Me.Label1.Caption) - 4, 2) & " dakika   " & _
    Mid(Me.Label1.Caption, Len(Me.Label1.Caption) - 1, 2) & "  saniye  " & " ÇALIŞMIŞTIR"
   
End Sub



[drejan62]

Çok Teşekkürler kamil bey,.