Indholdsfortegnelse
Vent eller forsink i VBA
Der er mange tilfælde, hvor en timer kan være nyttig i Excel, her er en metode til at prøve:
| 1234 | Sub MyTimer ()Application.Wait Now + TimeValue ("00:00:05")MsgBox ("5 sekunder")Afslut Sub |
Et par anvendelser af en timer i Excel VBA holder koden på pause og måler den forløbne tid. Følgende tager dig til det respektive sted, hvor jeg har indsendt et eksempel på hver brug:
1. Sæt kodeudførelsen på pause i en ønsket tid med Application.Wait (simulering af en timer)
link: Skjul Excel
2. Mål den forløbne tid med en timer i VBA
link: Benchmarking Code
Vent eller forsink i Access VBA
Du kan også bruge metoderne ovenfor i Access VBA. For eksempel vil du måske gerne vide, hvor lang tid det tager at flytte gennem et rekordsæt.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count så længeDim BenchMark As DoubleBenchMark = Timer'Start af kode til testIndstil dbs = CurrentDbIndstil rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Med førsteGør indtil .EOF = True.MoveNextSløjfeAfslut med'Slut på kode til testMsgBox "Det tog" & Timer - BenchMark & "sekunder at sløjfe"Afslut Sub |
