zaman sayacı

[mozdem]

Dosyamda VBA kodlarımın işe başlaması ile bitirmesi arasında zamanın saymasını istiyorum. onunla ilgil örnek bir dosya hazırladım. Dosyamda bir userform ve üstünde label nesnesine ne kadar zaman geçtiğini yazmasını istiyorum.

şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Linki inceleyin. Aynı mantıkla msgboxa değil de labela yazdırabilirsiniz.

http://www.excel.web.tr/f48/makro-caly-ma-suresi-t148478.html

.

 

[mozdem]

Merhaba,

Linki inceleyin. Aynı mantıkla msgboxa değil de labela yazdırabilirsiniz.

http://www.excel.web.tr/f48/makro-caly-ma-suresi-t148478.html

.

Cevabınız için çok teşekkür ederim. Ancak benim istediğim tam bu değil. Ben tam anlatamadım. Örnek dosyamda makro çalışırken bir userform aktif oluyor ve makro çalıştığı sürece görünüyor. Makroda her saniyesini o anda göstersin. sürekli zamanın kronometre misali çalışmasını ve görünmesini istiyorum.
teşekkür ederim.

 

[Ömer]

Bu istediğiniz dolaylı yoldan yapılabilir.

Kodları aşağıdakiyle değiştirerek deneyin. İlaveleri kırmızı ile işaretledim.

Sub zaman()
[COLOR="Red"]
    Dim z As Date
    
    z = Now()[/COLOR]
    
    [A:A].ClearContents
    
    For i = 1 To 100
    
        For k = 1 To 1000
        
 [COLOR="red"]           DoEvents
            f = Format(Now() - z, "hh:mm:ss")[/COLOR]
        
            Cells(k, "A").Value = i

            [COLOR="Red"]UserForm1.Label1.Caption = f[/COLOR]
        
        Next k

    Next i
    
    UserForm1.Hide

End Sub

.

 

[mozdem]

Çok Teşekkür ederim, elinize sağlık

 

[mozdem]

Çalıştırdım çok güzel. Ancak, format saat, dakika,saniye değilde

dakika, saniye, salise şeklinde nasıl yapabilirim.
biraz araştırdım ama yapamadım. Teşekkür ederim