Innehållsförteckning
Vänta eller fördröj i VBA
Det finns många fall när en timer kan vara användbar i Excel, här är en metod att prova:
| 1234 | Sub MyTimer ()Application.Wait Now + TimeValue ("00:00:05")MsgBox ("5 sekunder")Avsluta Sub |
Ett par användningar av en timer i Excel VBA pausar kod och mäter förfluten tid. Följande tar dig till respektive plats där jag har lagt upp ett exempel på varje användning:
1. Pausa körningen av kod under en önskad tid med Application.Wait (simulera en timer)
länk: Dölj Excel
2. Mät förfluten tid med en timer i VBA
länk: Benchmarking Code
Vänta eller fördröj i Access VBA
Du kan också använda metoderna ovan i Access VBA. Till exempel kanske du vill veta hur lång tid det tar att flytta genom en inspelningsuppsättning.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count Så längeDim BenchMark As DoubleBenchMark = Timer'Start av kod att testaStäll in dbs = CurrentDbAnge rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Med förstaGör tills .EOF = Sant.MoveNextSlingaSluta med'Kodens slut att testaMsgBox "Det tog" & Timer - BenchMark & "seconds to loop"Avsluta Sub |
