Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 17 Haziran 2010, 17:27:51

Başlık: [Çözüldü] User Form Üzerine Kronometre koymak
Gönderen: drejan62 - 17 Haziran 2010, 17:27:51

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

Başlık: Ynt: User Form Üzerine Kronometre koymak
Gönderen: Rami - 17 Haziran 2010, 19:16:10

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.

Başlık: Ynt: User Form Üzerine Kronometre koymak
Gönderen: drejan62 - 18 Haziran 2010, 11:47:52

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

Başlık: Ynt: User Form Üzerine Kronometre koymak
Gönderen: Rami - 18 Haziran 2010, 19:44:27

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



Başlık: Ynt: User Form Üzerine Kronometre koymak
Gönderen: drejan62 - 21 Haziran 2010, 10:31:51

Çok Teşekkürler kamil bey,.