Hücrede, zamana bağlı değer artışı

[EKREM1661]

Selamlar..!
Arkadaşlar...Bir hücrede, 1'den başlayarak 5'er saniye ara ile sayı yazdırabilirmiyiz. (butona atanacak)

Diyelimki, A1 hücresinde 1 yazacak, yine aynı hücrede 5 sn.sonra 2 yazacak...ve böyle 100'e kadar devam edecek..
Yani sayıları 5'er sn.ara ile, bir bir artıracak..(kronometre gibi, sadece zamanı farklı oluyor)

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
Application.OnTime Now + TimeValue("00:00:05"), "DEG"
End Sub
Sub DEG()
Dim S, D As Long
S = S + 1
For D = 1 To S
[A1] = [A1] + D
Next
Call TEST
End Sub

 

[EKREM1661]

Değerli hocam..! teşekkürlerimi ifade ediyorum..istediğim gibi olmuş...
hayırlı çalışmalar ve hoşça kalın...

 

[N.Ziya Hiçdurmaz]

Bişey değil.

 

[EKREM1661]

hocam..istemiyerek te olsa sizi tekrar rahatsız ediyorum..
bu sayıya bir sınır koysak nasıl olur, örn.100'e gelince makro sonlansın..
veya bir durdur butonu mu koysak..(her ikisi de olabilir)
çünku sizden aldığım bu kodu farklı uygulama türlerinde kullanmayı düşünüyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
Application.OnTime Now + TimeValue("00:00:05"), "DEG"
End Sub
Sub DEG()
Dim S, D As Long
S = S + 1
For D = 1 To S
[COLOR="Blue"]If [A1] = 10 Then Exit For: Exit Sub[/COLOR]
[A1] = [A1] + D
Next
Call TEST
End Sub

 

[EKREM1661]

işte bir konuyu bilenle bilmeyenin farkı...
uğraşıp duracaktık..tekrar ellerine sağlık..