Timer Hakkında

[eksoy]

Herkese Merhaba ,

Forumdaki örnekleri inceledim ama bulamadım.benim ihtiyacım olan , 15 sn arayla a1 hücresindeki rakamın 1 artmasını sağlamak.Yardımlarınız için teşekkürler.

 

[Haluk]

Bir modül ekleyin ve içine de aşağıdakileri yapıştırın.

Başlatmak için StartCounter, durdurmak için de StopCounter prosedürlerini kullanın.

Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _
                        ByVal nIDEvent As Long, _
                        ByVal uElapse As Long, _
                        ByVal lpTimerFunc As Long) As Long

Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
                        ByVal nIDEvent As Long) As Long
Public ID As Long
'
Sub StartCounter()
    ID = SetTimer(0, 0, 15000, AddressOf RunMe)
End Sub
'
Sub StopCounter()
    RetVal = KillTimer(0, ID)
End Sub
'
Function RunMe()
    On Error Resume Next
    Range("A1") = Range("A1") + 1
End Function

 

[eksoy]

Teşekkürler Haluk