Makronun süresi

[YASINT]

Merhaba arkadaşlar
Makronun kaç saniye veya salise sürdüğünü hesaplayan bir kod yazabilir miyiz ?

 

[parametre]

herhangi bir makroya ilkinde saati bittiğindede saati alır farkı alırsan sureyi ogrenmiş olursunuz

 

[fedeal]

Sub n()
Cells(2, 1) = Now
[COLOR="Red"]For i = 1 To 1000
Sheets("sayfa2").Select
Sheets("sayfa1").Select
Next[/COLOR]
Cells(2, 2) = Now
Cells(2, 3) = Cells(2, 2) - Cells(2, 1)
End Sub

A2 hücresine başlama zamanını
b2 hücresine bitiş zamanını
c2 hücresine ne kadar sürdügünü yazacaktır.

Sub f()
a = Now
[COLOR="red"]For i = 1 To 1000
Sheets("sayfa2").Select
Sheets("sayfa1").Select
Next[/COLOR]
b = Now
c = Round(b - a, 5)
MsgBox "makronun süresi  " & CDate(c)
End Sub

makronun süresini msgbox la verecektir,saygılar.
not:kırmızı olan satırları zaman harcayacak bir kod oluşturmak için yazdım oraya ilgili makro kodlarınızı girersiniz.

 

[YASINT]

Teşekkür ederim yardımınız için sağolun