Počkajte alebo meškajte vo VBA
Existuje mnoho prípadov, kedy by mohol byť časovač v programe Excel užitočný. Tu je jeden spôsob, ako to vyskúšať:
| 1234 | Sub MyTimer ()Aplikácia. Počkajte teraz + hodnota času („00:00:05“)MsgBox („5 sekúnd“)Koniec pod |
Niekoľko použití a časovač v programe Excel VBA pozastavujú kód a merajú uplynulý čas. Nasledujúce vás zavedie na príslušné miesto, kde som zverejnil príklad každého použitia:
1. Pozastavte spustenie kódu na požadovaný čas pomocou aplikácie Application.Wait (simulácia časovača)
odkaz: Skryť Excel
2. Zmerajte uplynulý čas pomocou časovača vo VBA
odkaz: Benchmarkingový kód
Počkajte alebo meškajte v programe Access VBA
Môžete tiež použiť metódy uvedené vyššie v programe Access VBA. Mohlo by vás napríklad zaujímať, ako dlho trvá prechádzanie sadou záznamov.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count Count As LongDim BenchMark ako dvojitýBenchMark = Časovač„Začiatok kódu na testovanieNastaviť dbs = CurrentDbNastaviť rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)S prvýmRobiť do .EOF = Pravda.MoveNextSlučkaUkončiť s„Koniec kódu na testovanieMsgBox „Trvalo to“ a časovač - BenchMark a „sekundy na slučku“Koniec pod |
