VBA taimer - Näited Exceli VBA taimeri funktsiooni kasutamiseks

Lang L: none (table-of-contents)

Exceli VBA taimeri funktsioon

Exceli VBA taimeri funktsioon

VBA taimer on sisseehitatud funktsioon, mida kasutatakse sekundite murdosa väärtuse andmiseks, see on väga kasulik funktsioon, mida kasutatakse mõnikord mõne töötava koodikomplekti peatamiseks või nende jätkamiseks kasutaja antud aja põhjal, taimer on lihtsalt kasutatakse VBA-s avaldusena koos aja sisestamisega.

Lihtsamalt öeldes annab Taimer praeguse päeva südaööst möödunud sekundite koguarvu. Juba koodi esimesest reast saame tegelikult jälgida meie koodi kulutatud aega alamprotseduuris määratud protsessi lõpuleviimiseks.

Mõnikord, kui kirjutate koodi ja soovite testida koodi kestust, st kui palju on teie koodil alamprotseduuri lõpuleviimiseks kulunud aega. Testides oma koodi tegelikku kestust, saate oma koodi tõhusaks muuta ja aeganõudva protsessi kõrvaldada, kustutades soovimatud või pikad koodid oma moodulist.

Kuidas kasutada funktsiooni TIMER VBA-s?

Nagu ma ütlesin, et funktsioon TIMER tagastab, on sekundite koguarv möödunud praeguse kuupäeva südaööst. Kui ma seda artiklit kirjutan, on aeg Indias 13:50:45.

Olen loonud makro nime ja määranud VBA sõnumikasti väärtuse TIMER.

Kood:

Alamtaimer_näide1 () MsgBoxi taimer Lõpp-alam

Selle koodi käivitamisel sain tulemuseks 50480,08.

See on sekundite koguarv, mis möödus tänasest keskööst, st alates 00:00:00.

Nii et südaööst 12 kuni praeguse ajani 14:01:20, kokku 14 tundi 1 minut, 20 sekundit möödas. Mõne sekundi jooksul on see võrdne 50480,08-ga, mille annab meie TIMER-funktsioon.

Näited

Näide # 1 - arvutage oma koodi kogu aeg kokku

Nüüd teostame mõne lihtsa kodeerimise, et testida VBA poolt protseduuri läbiviimiseks kuluvat aega. Olen kirjutanud koodi, nagu on näidatud alloleval pildil.

Kood:

Alam Do_Until_Eexample1 () Dim ST kui üksik ST = Taimer Dim x nii pikk x = 1 Do Kuni x = 100000 lahtrit (x, 1). Väärtus = xx = x + 1 silmus MsgBox taimer - ST End Sub

Kui käivitan selle koodi kohe, näitab see mulle kogu VBA täitmiseks kulunud aega.

Seal on kirjas 3.058594. Selle funktsiooni tulemus on sekundites, st selle koodi kogu aeg on 3,058 sekundit.

Selleks, et saaksite koodi kasutada, olen teile kirjutanud alloleva koodi.

Kood:

Sub Timer_Example1 () Dim StartingTime Single StartingTime = Timer 'Sisestage oma kood siia' Sisestage oma kood siia 'Sisestage oma kood siia' Sisestage oma kood siia MsgBox Timer - StartingTime End Sub

Kasutage ülaltoodut ja sisestage kood pärast koodi StartingTime = Taimer, kuid enne koodi MsgBox Timer - StartingTime, st rohelises piirkonnas, peate sisestama oma koodi.

Selgitus: Esiteks, muutuja StartingTime = Taimer tähendab, et koodi käivitamise ajal võrdub aeg südaööst koodi tööajani.

Taimer - StartingTime: see tähendab pärast koodi käivitamist, mis on kulunud aeg miinus aeg, mis registreeriti koodi alguses muutuva algusajaga .

See annab alguse ja lõpu aja erinevuse ning annab tulemuse.

Näide # 2 - näita tulemust õiges ajavormingus

Nagu nägime, on funktsiooni antud tulemus sekundites, kuid mitte täpses vormingus. Siiski võime lõpptulemusele rakendada VBA-vormingut funktsiooni FORMAT abil.

Kasutage allolevat koodi, et näha tulemust õiges ajavormingus, st vormingus “hh: mm: ss”.

Olen siin kasutanud funktsiooni FORMAT. Tulemuse annab (Taimer - algusaeg). Olen selle jaganud arvuga 86400, et teisendada see sekunditeks vastavalt ajavormingu reeglitele, seejärel olen rakendanud ajavormingu tunnis, minutis ja teises vormingus.

Kui ma koodi käivitan, annab see sellise tulemuse.

Niisiis, kogu koodile kuluv aeg on 3 sekundit.

Selle koodi ilu on hetk, kui see ületab 60 sekundit; see näitab tulemust minutites. Olen oma koodi töötamise minutiks peatanud (kasutades klahve Ctrl + Break) ja näen tulemust.