Funkcije VBA Timer vraćaju broj sekundi koje su protekle od ponoći tekućeg dana (vraćene kao pojedinačna vrsta podataka).
Korištenje funkcije VBA Timer
Sljedeći kôd pokazat će vam kako koristiti funkciju VBA Timer za određivanje koliko je sekundi prošlo od ponoći u vrijeme izvođenja koda:
| 12345678 | Pod KorištenjeVBATimerFunction ()Zatamnjene sekundeOtkad samsecondsSince = Timer ()Otklanjanje pogrešaka. Ispis sekundiSinceKraj podm |
Rezultat je:
Koristite VBA Timer za dobivanje stvarnog vremena
Možete pretvoriti sekunde vraćene iz funkcije Timer u format hh: mm: ss da biste vidjeli stvarno vrijeme pomoću sljedećeg koda:
| 123456789101112131415 | Sub GettingTheActualTime ()Zatamnjene sekundeOtkad samZatamni cTime kao dvostrukoZatamnite stvarno vrijeme kao varijantusecondsSince = Timer ()cTime = secondsSince / (86400)theActualTime = Format (cTime, "hh: mm: ss")MsgBox "Vrijeme proteklo od ponoći u sekundama je" & "" & secondsSince & vbNewLine & _"Stvarno vrijeme je:" & "" & theActualTimeKraj podm |
Rezultat je:
Vrijeme odjeljak VBA koda
Ako želite mjeriti re-napisani kod ili raspravljati o "bržim" metodama u VBA-i, možete koristiti VBA-in ugrađeni mjerač vremena. Postavljanje varijable jednake mjeraču vremena na početku vašeg koda i oduzimanje toga od brojača na kraju dat će vam dobra procjena koliko je potrebno da se izvrši komad koda.
Između ostalog, na izvedbu mogu utjecati drugi programi koji se pokreću ili pokušavaju pokrenuti dok ste aktivni makro.
Sljedeći je primjer upotrijebljen da se vidi koliko će vremena trebati da se riječ "test" upiše u ćeliju A1 na listu 1 pola milijuna puta. Na stroju mi je trebalo 21 sekundu.
| 123456789101112131415161718 | Sub BenchMark ()Dim Count As LongDim BenchMark As DoubleBenchMark = Mjerač vremena'Početak testiranja kodaZa računanje = 1 do 500000List1.Cells (1, 1) = "test"Sljedeći broj'Kraj koda za testiranjeMsgBox Timer - BenchMarkKraj podm |
Ako vaš kôd radi sporo, pokušajte ga ubrzati onemogućivanjem ažuriranja zaslona. Da bi ekran programa Excel bio aktivan dok je mjerač vremena u tijeku, možemo umetnuti metodu DoEvents u kôd.
