seychellesartprojects.org

Excel VBA taimera funkcija

VBA taimeris ir iebūvēta funkcija, ko izmanto, lai dotu mums sekundes daļu vērtību, tā ir ļoti noderīga funkcija, kuru izmanto, lai dažreiz apturētu jebkuru darbojošos kodu kopu vai atsāktu to darbību, pamatojoties uz lietotāja sniegto laiku, taimeris ir vienkārši izmanto kā paziņojumu VBA ar laika ievadi.

Vienkārši sakot, taimeris norāda kopējo sekunžu skaitu, kas pagājis no pašreizējās dienas pusnakts. Tieši no koda pirmās rindas mēs faktiski varam izsekot koda patērētajam laikam, lai pabeigtu apakšprocedūrā norādīto procesu.

Dažreiz, kad jūs rakstāt kodu un vēlaties pārbaudīt koda ilgumu, ti, cik ilgs laiks ir nepieciešams jūsu kodam, lai pabeigtu apakšprocedūru. Pārbaudot koda faktisko ilgumu, jūs varat padarīt savu kodu efektīvu un novērst laikietilpīgo procesu, izdzēšot nevēlamus vai garus kodus no sava moduļa.

Kā VIM izmantot TIMER funkciju?

Kā es teicu, taimeris funkcija atgriež kopējās sekundes, kas pagājušas kopš pašreizējā datuma pusnakts. Kad rakstu šo rakstu, Indijā laiks ir 13:50:45.

Esmu izveidojis makro nosaukumu un piešķīris TIMER vērtību VBA ziņojumu lodziņā.

Kods:

 Apakš taimeris_piemērs1 () MsgBox taimera beigu apakšgrupa 

Kad es palaidu šo kodu, rezultāts bija 50480,08.

Šīs ir kopējās sekundes, kas pagājušas no šodienas pusnakts, ti, no pulksten 12:00:00

Tātad no 12. pusnakts līdz pašreizējam laikam 14:01:20 kopā pagāja 14 stundas 1 minūte 20 sekundes. Dažās sekundēs tas ir vienāds ar 50480,08, ko dod mūsu TIMER funkcija.

Piemēri

Šo VBA Timer Excel veidni varat lejupielādēt šeit - VBA Timer Excel veidne

1. piemērs - aprēķiniet kopējo laiku, ko aizņem jūsu kods

Tagad mēs veiksim vienkāršu kodēšanu, lai pārbaudītu laiku, kas VBA vajadzīgs procedūras izpildei. Esmu uzrakstījis kodu, kā parādīts zemāk esošajā attēlā.

Kods:

 Sub Do_Until_Example1 () Dim ST kā viens ST = taimeris Dim x tik ilgi x = 1 dariet līdz x = 100000 šūnas (x, 1). Vērtība = xx = x + 1 cikla MsgBox taimeris - ST End Sub 

Ja es palaidīšu šo kodu tagad, tas parādīs kopējo laiku, ko VBA ir izpildījis.

Tajā teikts 3.058594. Šīs funkcijas rezultāts ir sekundēs, ti, kopējais šī koda laiks ir 3.058 sekundes.

Lai jūs varētu izmantot kodu, es jums uzrakstīju zemāk esošo kodu.

Kods:

 Sub taimeris_piemērs1 () Dim StartingTime kā vienots StartingTime = Taimeris 'Ievadiet savu kodu šeit' Ievadiet savu kodu šeit 'Ievadiet savu kodu šeit' Ievadiet savu kodu šeit MsgBox taimeris - StartingTime End Sub 

Izmantojiet iepriekš minēto un ierakstiet kodu aiz koda StartingTime = Timer, bet pirms koda MsgBox Timer - StartingTime, ti, zaļajā zonā jāievada kods.

Paskaidrojums: Pirmkārt, mainīgais StartingTime = Taimeris nozīmē, ka koda izpildes laikā kods ir vienāds ar laiku, kas pagājis no pusnakts līdz koda darbības laikam.

Taimeris - StartingTime: Tas nozīmē, ka pēc koda izpildīšanas ir pagājis laiks, no kura atņemts kods, kas reģistrēts koda sākumā, izmantojot mainīgo sākuma laiku .

Tas dos starpību starp sākuma un beigu laiku un atgriezīs rezultātu.

2. piemērs - parādiet rezultātu pareizā laika formātā

Kā redzējām, funkcijas sniegtais rezultāts ir sekundēs, bet ne precīzā formātā. Tomēr mēs varam piemērot VBA laika formātu gala rezultātam, izmantojot FORMAT funkciju.

Izmantojiet zemāk esošo kodu, lai redzētu rezultātu pareizajā laika formātā, ti, “hh: mm: ss” formātā.

Es šeit esmu izmantojis funkciju FORMAT. Rezultātu dod (Taimeris - sākuma laiks). Es to esmu dalījis ar skaitli 86400, lai pārvērstu to sekundēs atbilstoši laika formāta noteikumiem, pēc tam laika formātu esmu lietojis stundā, minūtē un otrajā formātā.

Tagad, ja es palaidīšu kodu, tas dos šādu rezultātu.

Tātad kopējais koda patērētais laiks ir 3 sekundes.

Šī koda skaistums ir brīdis, kad tas šķērso 60 sekundes, un rezultāts tiks parādīts minūtēs. Vienu minūti esmu apturējis koda darbību (izmantojot Ctrl + Break) un redzu rezultātu.

Tātad šī koda kopējais laiks tagad ir 1 minūte 2 sekundes.

3. piemērs - taimera alternatīvais kods

Ir alternatīva TIMER, izmantojot funkciju NOW () . Zemāk ir alternatīvais kods.

Atceramās lietas

• Taimera funkcija atpūtinās vērtību dienas beigās, ti, plkst. 23:59:59.
• NOW funkcija atgriež pašreizējo datumu un pašreizējo laiku.
• Taimeris rāda kopējo pagājušo sekunžu skaitu no pašreizējā datuma pusnakts.