Várakozás vagy késleltetés a VBA -ban
Sok esetben előfordulhat, hogy az időzítő hasznos lehet az Excelben, itt van egy módszer a kipróbálásra:
| 1234 | Al -MyTimer ()Application.Ware Now + TimeValue ("00:00:05")MsgBox ("5 másodperc")End Sub |
Pár használat a időzítő az Excel VBA programban a kód szüneteltetése és az eltelt idő mérése. Az alábbiak a megfelelő helyre visznek, ahol minden felhasználásra példát tettem közzé:
1. Szüneteltesse a kódfuttatást egy kívánt ideig az Alkalmazással. Várjon (időzítőt szimulálva)
link: Az Excel elrejtése
2. Mérje meg az eltelt időt egy időzítővel VBA -ban
link: Benchmarking Code
Várjon vagy késleltesse az Access VBA -t
Az Access VBA fenti módszereit is használhatja. Érdemes például tudni, hogy mennyi ideig tart egy rekordhalmaz átlépése.
| 123456789101112131415 | Sub LoopThroughRecords ()Halvány gróf, mint hosszúDim BenchMark As DoubleBenchMark = Időzítő'A tesztelni kívánt kód kezdeteÁllítsa be a dbs = CurrentDb értéketÁllítsa be az rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)Az elsővelTedd addig .EOF = Igaz.MoveNextHurokVége ezzel'A tesztelés végeMsgBox "Kellett" & Timer - BenchMark & "másodperc a ciklushoz"End Sub |
