Innholdsfortegnelse
Vent eller forsink i VBA
Det er mange tilfeller når en timer kan være nyttig i Excel, her er en metode for å prøve:
| 1234 | Sub MyTimer ()Application.Wait Now + TimeValue ("00:00:05")MsgBox ("5 sekunder")Slutt Sub |
Et par bruksområder av en timer i Excel VBA stopper koden og måler forløpt tid. Følgende tar deg til det respektive stedet jeg har lagt ut et eksempel på hver bruk:
1. Sett kodeutførelsen på pause i ønsket tid med Application.Wait (simulerer en timer)
lenke: Skjul Excel
2. Mål forløpt tid med en timer i VBA
lenke: Benchmarking Code
Vent eller forsink i Access VBA
Du kan også bruke metodene ovenfor i Access VBA. For eksempel vil du kanskje vite hvor lang tid det tar å gå gjennom et platesett.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count As LongDim BenchMark As DoubleBenchMark = Timer'Start av kode for å testeSett dbs = CurrentDbSett rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Med førsteGjør inntil .EOF = True.MoveNextLøkkeSlutt med'Slutt på kode for å testeMsgBox "Det tok" og tidtaker - BenchMark og "sekunder å sløyfe"Slutt Sub |
