Funkcija Excel VBA TIMER
VBA Timer je vgrajena funkcija, ki se uporablja za delno vrednost sekund, je zelo koristna funkcija, ki se uporablja za zaustavitev katerega koli nabora zagnanih kod ali njihovo nadaljevanje na podlagi časa, ki ga določi uporabnik. uporablja kot stavek v VBA z vnosom časa.
Preprosto povedano, TIMER daje skupno število sekund od polnoči trenutnega dne. Prav iz prve vrstice kode lahko dejansko sledimo času, ki ga naša koda porabi za dokončanje postopka, navedenega v podproceduri.
Včasih, ko napišete kodo in želite preizkusiti trajanje kode, tj. Koliko časa traja vaša koda za dokončanje podprocedure. S preizkušanjem dejanskega trajanja kode lahko svojo kodo naredite učinkovito in odpravite dolgotrajen postopek tako, da iz modula izbrišete neželene ali dolge kode.
Kako uporabiti funkcijo TIMER v VBA?
Kot sem rekel, funkcija TIMER se vrne, skupno število sekund, ki so pretekle od polnoči trenutnega datuma. Ko pišem ta članek, je čas v Indiji 13:50:45.
Ustvaril sem ime makra in v polju za sporočila VBA dodelil vrednost TIMER.
Koda:
Sub Timer_Example1 () MsgBox Timer End Sub
Ko zaženem to kodo, dobim rezultat kot 50480.08.
To je skupno število sekund, ki so pretekle od današnje polnoči, torej od 00:00:00.
Torej od 12. ure do trenutnega časa 14:01:20, skupaj je preteklo 14 ur 1 minuto in 20 sekund. V nekaj sekundah je enako 50480,08, ki ga poda naša funkcija TIMER.
Primeri
Primer # 1 - Izračunajte skupni čas, ki ga je porabila vaša koda
Zdaj bomo izvedli nekaj preprostih kodiranj, da preizkusimo čas, ki ga VBA potrebuje za izvedbo postopka. Napisal sem nekaj kode, kot je prikazano na spodnji sliki.
Koda:
Sub Do_Until_Example1 () Dim ST As Single ST = Timer Dim x As Long x = 1 Do Until x = 100000 Celice (x, 1) .Value = xx = x + 1 Loop MsgBox Timer - ST End Sub
Če zdaj zaženem to kodo, se prikaže skupni čas, ki ga je VBA potreboval za izvedbo.
Piše 3.058594. Rezultat te funkcije je v sekundah, tj. Skupni čas, ki ga zahteva ta koda, je 3,058 sekunde.
Za uporabo kode sem za vas napisal spodnjo kodo.
Koda:
Sub Timer_Example1 () Dim StartingTime kot Single StartingTime = Timer 'Vnesite kodo tukaj' Tu vnesite kodo 'Tu vnesite kodo' MsgBox Timer - StartingTime End Sub
Uporabite zgornje in vnesite kodo za kodo StartingTime = Timer, vendar pred kodo MsgBox Timer - StartingTime, tj. V zelenem območju morate vnesti kodo.
Pojasnilo: Prvič, spremenljivka StartingTime = Timer pomeni, da je v času izvajanja kode enak času, ki je potekel od polnoči do časa delovanja kode.
Timer - StartingTime: Pomeni po zagonu kode, kolikšen je pretečeni čas minus čas, zabeležen na začetku kode skozi spremenljiv začetni čas .
To bo povzročilo razliko med začetnim in končnim časom ter vrnilo rezultat.
2. primer - Rezultat prikažite v pravilni časovni obliki
Kot smo videli, je rezultat funkcije v sekundah, vendar ne v natančni obliki. Vendar lahko s pomočjo funkcije FORMAT za končni rezultat uporabimo časovno obliko VBA.
Uporabite spodnjo kodo, da si rezultat ogledate v pravilni časovni obliki, tj. V obliki »hh: mm: ss«.
Tu sem uporabil funkcijo FORMAT. Rezultat je podan (Timer - začetni čas). Razdelil sem ga s številko 86400, da sem ga pretvoril v sekunde glede na pravila za časovno obliko, nato pa sem uporabil časovno obliko v obliki ure, minute in druge oblike.
Zdaj, če zaženem kodo, bo dala takšen rezultat.
Torej, skupni čas, ki ga zahteva koda, je 3 sekunde.
Lepota te kode je trenutek, ko preseže 60 sekund; rezultat bo prikazan v nekaj minutah. Kodo sem zaustavil za minuto (z uporabo Ctrl + Break) in si ogledal rezultat.
Torej skupni čas, ki ga ta koda vzame, znaša 1 minuto 2 sekundi.
Primer # 3 - Alternativna koda za časovnik
Z uporabo funkcije NOW () obstaja možnost TIMER . Spodaj je alternativna koda.
Stvari, ki si jih je treba zapomniti
- Funkcija TIMER bo vrednost počivala na koncu dneva, torej ob 23:59:59.
- Funkcija NOW vrne trenutni datum in trenutni čas.
- TIMER prikazuje skupno število sekund, pretečenih od polnoči trenutnega datuma.
