Čekání nebo zpoždění ve VBA
Existuje mnoho případů, kdy by časovač mohl být v Excelu užitečný. Zde je jedna metoda, kterou můžete vyzkoušet:
| 1234 | Sub MyTimer ()Application.Wait Now + TimeValue ("00:00:05")MsgBox („5 sekund“)End Sub |
Několik použití a časovač v aplikaci Excel VBA pozastavují kód a měří uplynulý čas. Následující vás zavede na příslušné místo, kde jsem zveřejnil příklad každého použití:
1. Pozastavte spuštění kódu na požadovanou dobu pomocí Application.Wait (simulace časovače)
odkaz: Skrýt Excel
2. Změřte uplynulý čas pomocí časovače ve VBA
odkaz: Srovnávací kód
Počkejte nebo zdržte v Access VBA
Můžete také použít výše uvedené metody v Access VBA. Můžete například chtít vědět, jak dlouho trvá přechod sadou záznamů.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count As LongDim BenchMark jako dvojitýBenchMark = Časovač„Začátek kódu k testováníNastavit dbs = CurrentDbNastavit rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)S prvníDo .EOF = True.MoveNextSmyčkaKonec s„Konec kódu k testováníMsgBox „Trvalo“ a časovač - BenchMark a „sekundy na smyčku“End Sub |
