Pričekajte ili odgodite u VBA -i
Postoji mnogo slučajeva kada bi odbrojavanje moglo biti korisno u Excelu, evo jedne metode za isprobavanje:
| 1234 | Sub MyTimer ()Aplikacija. Čekajte sada + TimeValue ("00:00:05")MsgBox ("5 sekundi")Kraj podm |
Par koristi a mjerač vremena u Excelu VBA pauziraju kôd i mjere proteklo vrijeme. Sljedeće će vas odvesti na odgovarajuće mjesto na kojem sam objavio primjer svake upotrebe:
1. Pauzirajte izvršavanje koda na željeno vrijeme s aplikacijom. Čekajte (simulirajući mjerač vremena)
veza: Sakrij Excel
2. Izmjerite proteklo vrijeme pomoću mjerača vremena u VBA
veza: Benchmarking kôd
Pričekajte ili odgodite pristup VBA pristupa
Također možete koristiti gore navedene metode u programu Access VBA. Na primjer, možda biste htjeli znati koliko je vremena potrebno za kretanje kroz skup zapisa.
| 123456789101112131415 | Sub LoopThroughRecords ()Dim Count As LongDim BenchMark As DoubleBenchMark = Mjerač vremena'Početak testiranja kodaPostavite dbs = CurrentDbPostavi rst = dbs.OpenRecordset ("tblInvoices", dbOpenDynaset)S prvimUčiniti do .EOF = Istina.Pomiči seSljedećiPetljaZavrši s'Kraj koda za testiranjeMsgBox "Trebalo je" & Tajmer - BenchMark & "sekunde za petlju"Kraj podm |
