makro çalışma süresi

[acar6783]

Merhaba arkadaşlar.
Yazdığım kodların çalışma süresine ihityacım var fakat tam olarak istediğimi elde edemdim.

Sub salise()
a = Now


For i = 1 To 100
Sheets("sayfa2").Select
Sheets("sayfa1").Select
Next
b = Now
c = Round((b - a), 5)
MsgBox "makronun süresi  " & CDate(c) & "  saniye"

End Sub

En basit bu olur diye düşündüm ama haliyle sadece saniye olarak geliyor.Halbuki 1saniye 15 salise olarak gelmesiini istiyorum

 

[Ömer]

Merhaba,

Kodların başlangıç satırından sonra;

Zaman = Timer

ilave edin.

Mesajı da aşağıdaki gibi yazabilirsiniz.

MsgBox "makronun süresi " & Format(Timer - Zaman, "0.000")

.

 

[acar6783]

Teşekkürler bunu arıyordum

 

[burcin_end_muh]

Merhaba arkadaşlar.
Yazdığım kodların çalışma süresine ihityacım var fakat tam olarak istediğimi elde edemdim.

Sub salise()
a = Now


For i = 1 To 100
Sheets("sayfa2").Select
Sheets("sayfa1").Select
Next
b = Now
c = Round((b - a), 5)
MsgBox "makronun süresi  " & CDate(c) & "  saniye"

End Sub

En basit bu olur diye düşündüm ama haliyle sadece saniye olarak geliyor.Halbuki 1saniye 15 salise olarak gelmesiini istiyorum

Merhabalar,

Bu mesajdaki makro çalışma süresi olan saniyeyi --> dakika ve saniye şeklinde nasıl yazdırabiliriz?

Şimdiden teşekkürler.

 

[ÖmerFaruk]

Aşağıdaki linkte benzer kullanım var.

iki tarih arası ilave

iyi akşamlar; Forumda ki iki tarih arası veri getirme makro' ya bir de isim seçeneği eklemek istiyordum. Gereken bilgim yoktur. Teşekkürler. Option Explicit Sub Tarih_Araligina_Gore_Ozet_Rapor_Dictionary() Dim S1 As Worksheet, S2 As Worksheet, Dizi As Object, Son As Long, Say As Long...

www.excel.web.tr

 

[Tevfik_Kursun]

Merhaba,
Alternatif olsun

Sub Zaman1()
    tr1 = Now
        [B6] = tr1
        [B6] = Format([B6], "dd.mm.yyyy hh:nn:ss")
End Sub

İşinizi görür mü?
İyi çalışma

 

[burcin_end_muh]

çok teşekkürler