User Form Tarih ve Saat ekleme

[medsel]

Arkadaşlar Vb de yeniyim excel de bi user form yaptım ve üzerinde label içerisinde tarih ve saat olmasını istiyorum timer kullanmadan bunu yapabilirmiyim vb 7 de timer yok yapılıyorsa kodları yollarmısınız...

 

[vardar07]

Merhaba, dosyayı inclermisin.

 

[medsel]

kardeş kendi hazırladığım userformda kullanacağım için tetikleyicisi buton değil yani programı açar açmaz tarih ve saatin çıkmasını istiyorum
Private Sub UserForm_Activate()
Do
Label1.Caption = Format(Now, "dd.mm.yy - hh:mm:ss")
DoEvents
Loop
End Sub

bu kısmı label içine yazdım tarih ve saat istediğim yerde çıktı lakin bu seferde programı kapatıp açmak isteyince tekrar açılmıyor arka planda excel devamlı çalışıyor ve cpu nun %36 sını kullanıyor diğer kullandığım kodlardada aynı tepkiyi aldım bi çözümünü bulamadım

 

[ExcelF1]

Ek'teki dosyayı deneyiniz. İşlemciyi veya Excel'in çalışmasını etkilemez (yük bindirmez). Userform üzerine flash nesne eklenmek suretiyle yapılmıştır.