Makro Çalışma Süresini Hesaplama

[Astalavista58]

Merhabalar hayırlı akşamlar, makromun ne kadar sürede işlemi tamamladığını nasıl gösterebilirim. Uyarı ekranında "İşleminiz .. .. .. saniyede tamamlanmıştır." şeklinde uyarı vermesini istiyorum.

 

[Korhan Ayhan]

Aşağıdaki kurguyu deneyiniz.

Option Explicit

Sub Makronuzun_Adi()
    Dim Zaman As Double
    
    Zaman = Timer
    
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...

    MsgBox "İşleminiz tamamlanmıştır." & vbLf & vbLf & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye"
End Sub

 

[Astalavista58]

Kod çalışıyor çok teşekkür ederim.

 

[hakanaktun]

Aşağıdaki kurguyu deneyiniz.

Option Explicit

Sub Makronuzun_Adi()
    Dim Zaman As Double
   
    Zaman = Timer
   
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...
    Rem Kodlarınız...

    MsgBox "İşleminiz tamamlanmıştır." & vbLf & vbLf & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye"
End Sub

Merhaba,
"Rem Kodlarınız...."
Bu bilgiye nasıl erişebilirim?

 

[ÖmerBey]

Merhaba,
"Rem Kodlarınız...."
Bu bilgiye nasıl erişebilirim?

Merhaba,
Yani hali hazırda kullanmakta olduğunuz kodlar, çalışma süresini hesaplayacağınız kodlar...
Kısacası kullandığınız kodların başına

Dim Zaman As Double
Zaman = Timer

satırlarını; sonuna da

MsgBox "İşleminiz tamamlanmıştır." & vbLf & vbLf & _
       "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye"

satırlarını ilave ediniz.

 

[unıconferdi]

Merhaba bende bir ekleme yapmak isterim.

Sub SureHesaplama()

Z = TimeValue(Now)

Rem Kodlarınız...
Rem Kodlarınız...
Rem Kodlarınız...
Rem Kodlarınız...
Rem Kodlarınız...
Rem Kodlarınız...
Rem Kodlarınız...
Rem Kodlarınız...


MsgBox "İşleminiz başarıyla " & CDate(TimeValue(Now) - Z) & " saniyede tamamlanmıştır", vbInformation
End Sub



Bu şekilde süreyi 00:00:00 formatında görebilirsiniz.