for-next dögüsüne zaman koymak

[Muhammet Okumuş]

merhaba arkadaşlar aşağıdaki kod rastgele sayı üretiyor.Ancak çok hızlı bir şekilde üretiyor.for-next dögüne nasıl bir kod ilave edelim ki 1 saniye yada istediğimiz bir zaman diliminde döngü yapsın.

sub deneme ()
for a = 1 to 100
randomize timer
x=int(rnd*87)+1
cells(1,a)= x
next a
end sub

 

[Zeki Gürsoy]

Merhaba,

"next a" satırından önce,

application.wait timeserial(0,0,1) ilave edin.

 

[Muhammet Okumuş]

sn zeki gürsoy teşekkür ederim.Ancak ilave yaptıktan sonra bir sayı üretip bekliyor vekum saati simgesi çıkıyor.esc tuşuna basınca bütün sayılar yazılıyor.her sayı için 1 saniye beklemesini istiyorum.

 

[Orion1]

Dosyanız ektedir.
1 sn ara ile 1nci satıra yazar.

Dim a As Integer

Sub deneme()
Application.OnTime Now + TimeValue("00:00:01"), "m"
a = a + 1
If a > 100 Then Exit Sub
End Sub
Sub m()
Dim x
x = Int(Rnd * 87) + 1
Cells(1, a) = x
Call deneme
End Sub
Sub basla()
a = 0
Rows("1:1").Clear
Call deneme
End Sub

 

[Muhammet Okumuş]

Sn Evren Gizlen çok teşekkür ederim.

 

[Orion1]

Sn Evren Gizlen çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.