Timer i VBA

Det kan du godt. Lav den VBA kode, du vil have eksekveret i en SUB.

Opret dernæst denen timer:

Sub Timer()
  Application.OnTime Now + TimeSerial(0, 0, 0.5), "navn på din sub"
End Sub

Start funktionen ved at afspille Timer. Du kan også lade Worksheet_Open hændelsen starte timeren, hvis det skal ske automatisk. Den ovenstående afspilles hvert halve sekund. Først tal i parentesen er timer, andet minutter og trejde sekunder.

Oki, hvad så hvis den skal gentage sig selv hele tiden, således at den gør f.eks. hver halve sekund hele tiden indtil en hændelse optræder?

Hvilken hændelse?

Jeg skal have den til at farve nogle felter

Den er jeg med på, men kan du ikke beskrive præcis hvad du ønsker at opnå med timeren? Hvoad skal udløse den, og skal den gentage sig selv "til dommedag" eller skal den stoppe på et tidspunkt? Og i givet fald, hvad bestemmer, når den er færdig.

Jeg ønsker at opnå at brugeren klikker på en knap i excel arket, hvorefter koden startes. Koden skal løbe indtil at et felt i arket får værdien 0, og der bliver i feltet talt ned fra 3 under nogle bestemte forudsætninger.
Timer'en skal med nogle små tidsintervaller farve forskellige felter i arket som er defineret indenfor et dynamisk range.

Prøv med noget i denne stil:

Sub Timer()
Din kode, der farver her...'
If Range("A1").Value <> 0 Then
  Application.OnTime Now + TimeSerial(0, 0, 0.5), "Timer"
End If
End Sub

Nu er det timeren, du skal starte ved at klikke på knappen. Den indeholder koden, der farver, og hvert halvde sekund genstartes den, med mindre A1 = 0. Ret selv A1 til den celle, hvor værdien tækkes ned.

tækkes=tælles.

jkrons vil du smide et svar

Et svar...

jkrons det var ikke et svar :)

Så er det nu eller aldrig :-)

Et svar