Wachten of vertragen in VBA
Er zijn veel gevallen waarin een timer nuttig kan zijn in Excel, hier is een methode om te proberen:
| 1234 | Sub Mijn Timer()Toepassing.Wacht nu + TimeValue ("00:00:05")MsgBox ("5 seconden")Einde sub |
Een paar toepassingen van a tijdopnemer in Excel VBA pauzeren code en meten verstreken tijd. Het volgende brengt u naar de respectieve plaats waar ik een voorbeeld van elk gebruik heb gepost:
1. Pauzeer de uitvoering van de code voor een gewenste hoeveelheid tijd met Application.Wait (simulatie van een timer)
link: Excel verbergen
2. Meet de verstreken tijd met een timer in VBA
link: Benchmarkingcode
Wachten of vertragen in Access VBA
U kunt de bovenstaande methoden ook gebruiken in Access VBA. U wilt bijvoorbeeld weten hoe lang het duurt om door een recordset te gaan.
| 123456789101112131415 | Sub LoopThroughRecords()Dimtelling zo langDim BenchMark als dubbelBenchMark = Timer'Begin van te testen code'Stel dbs = CurrentDb inStel rst = dbs.OpenRecordset("tblInvoices", dbOpenDynaset)Met eerstDoen tot .EOF = True.VerplaatsVolgendeLusEindigt met'Einde van code om te testen'MsgBox "Het duurde " & Timer - BenchMark & " seconden om te herhalen"Einde sub |
