Makronun Hızını Yavaşlatma

[alptun20]

Yaptığımız makroların çalışma hızını yavaşlatmak mümkünmüdür?

Saygılarımla..

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub normal_calıs()
baslangıc = Now
On Error GoTo dip
For i = 1 To 100
'Application.Wait (Now + TimeValue("0:00:01"))
Next
bitis = Now
süre = bitis - baslangıc
MsgBox Format(süre, "hh:mm:ss:dd")
dip:
End Sub

Sub yavas_calıs()
baslangıc = Now
On Error GoTo dip
For i = 1 To 100
Application.Wait (Now + TimeValue("0:00:01"))
Next
bitis = Now
süre = bitis - baslangıc
MsgBox Format(süre, "hh:mm:ss:dd")
dip:
End Sub

araya reklam alabilirsiniz

Sub yavas_calıs_araya_reklam_al()
For i = 1 To 100
If i = 25 Or i = 50 Or i = 75 Then
Application.Wait (Now + TimeValue("0:00:01"))
 CreateObject("WScript.Shell").Popup _
"Bugün :" & Date & vbCrLf & "Gününüz Dünden Güzel Olsun." & vbCrLf & vbCrLf _
& "Uzmanamele İyi Çalışmalar Diler." & vbCrLf & vbCrLf & "www.excel.web.tr", 1, "Merhaba", vbInformation
End If
Next
End Sub

 

[alptun20]

Süleyman Bey hemen deniyorum teşekkürler saygılarımla..