makro koduna süre eklemek

[mersilen]

Herkese selamlar

Makro kodlarının işleyişini daha iyi analiz edebilmek için (yavaşlatmak amacıyla) içine süre belirleyici/timer gibi bişey eklemek mümkün mü?Mesala bir sonraki hamleyi 2 -5 sn sonra yap gibi?

Sub cellPro()
    Dim I As Integer
    Dim K As Integer
    For K = 1 To 5
        For I = 1 To 10
            Cells(I, K).Value = I * K
            [COLOR="Red"]'2/5 sn durakla-bir sonraki adıma geç[/COLOR]
        Next I
    Next K
End Sub

 

[uzmanamele]

merhaba

bu mudur?

Sub cellPro()
    Dim I As Integer
    Dim K As Integer
    For K = 1 To 5
        For I = 1 To 10
            Cells(I, K).Value = I * K
            [COLOR="Red"]Application.Wait (Now + TimeValue("0:00:02"))[/COLOR]            
'2/5 sn durakla-bir sonraki adıma geç
        Next I
    Next K
End Sub

 

[mersilen]

Sayın Uzman Amele hocam
Aradığım buydu, 2 sn bayağı uzun bir zamanmış, 1 sn ile daha güzel oluyor.

2 sorum daha olacak
1- 1 sn' nin altı (50/100 milisaniye) diye yada
2- Bu kod çalışırken işlemin yarısında pause/stop diye bir kavram var mı?

 

[turkanet]

merhaba, bu konuda cevabınıza ihtiyacım var. şimdiden tşk ederim.