seychellesartprojects.org

Excel VBA tagad funkcija

NOW ir datuma un laika funkcija abās VBA, kuras tiek izmantotas, lai iegūtu pašreizējo sistēmas datumu un laiku, tāpat kā darblapas funkcija, kurā tajā nav argumentu, VBA tagad funkcija arī neņem argumentus, atgriešanās izvade šai funkcijai ir datums.

VBA NOW funkcija ir līdzīga tai, kas ir Excel darblapas funkcijā. Tāpat kā VBA DATUMA funkcijai “TAGAD” arī nav parametru, kurus ievadīt, mums vienkārši jānodod funkcija ar slēgtu iekavu vai arī nav vajadzīga iekava. Izmantojot VBA funkciju DATE, mēs varam ģenerēt pašreizējo datumu, parādot sistēmu, pie kuras strādājam. Tomēr esmu redzējis situācijas, kad līdz ar datumu mums vajadzīgs arī pašreizējais laiks. Programmā Excel mēs varam paveikt daudzas lietas, līdzīgi, mēs varam ģenerēt pašreizējo datumu un laiku ar vienkāršu funkciju, ko Excel tagad sauc par NOW.

VBA NOW formula ir vienkārša.

TAGAD ()

Funkcijas NOW piemērs VBA Excel

Apskatiet vienkāršo funkcijas NOW piemēru VBA. Veiciet tālāk norādītās darbības, lai uzrakstītu VBA kodu, un jums ir pietiekami daudz zināšanu par NOW, kā arī koda rakstīšanu.

1. darbība: sāciet apakšprocedūru, piešķirot makro nosaukumu.

Kods:

 Apakšsadaļa_piemērs1 () Beigu apakšnodaļa

2. darbība: paziņojiet mainīgo kā “Datums”. Iemesls, kāpēc mums ir jāpaziņo mainīgais kā “Datums”, jo mūsu gala rezultāts ir datuma un laika formātā.

Kods:

 Sub tagad_Piemērs1 () Dim k Kā Datuma beigu apakšsadaļa 

3. darbība: piešķiriet vērtību mainīgajam “k”, izmantojot funkciju VBA NOW.

Kods:

 Sub Now_Piemērs1 () Dim k As Date k = Now End Sub 

4. solis: Tagad parādiet funkcijas NOW vērtību, kuru esam piešķīruši mainīgajam “k” VBA ziņojumu lodziņā.

Kods:

 Sub tagad_piemērs1 () Dim k As Date k = Tagad MsgBox k End Sub 

Labi, mēs esam galā.

Palaidiet kodu, izmantojot F5 taustiņu vai manuāli, un noskaidrojiet, kāds ir rezultāts.

Rezultāts rāda 15.04.2019 plkst. 5:03:35.

Mana datora datuma formāts ir “mm-dd-gggg”.

Datuma formātu mēs varam mainīt arī, izmantojot FORMAT funkciju. Zemāk ir kods, lai mainītu datuma formātu.

Kods:

 Sub tagad_piemērs1 () Dim k As Date k = Tagad MsgBox formāts (k, "DD-MMM-GGGG HH: MM: SS") Beigu apakšdaļa 

Palaidiet kodu un skatiet atšķirību.

Tagad mums ir pareizs datuma un laika formāts. Izmantojot šo formātu, ikviens var saprast datuma un laika formātu.

Gaistoša daba:

Kā redzams pirmajā piemērā, laika rezultāts bija 5:03:35, bet otrajā - rezultāts 17:19:02. Tātad tas parāda, ka funkcija NOW ir nepastāvīga funkcija, kas mainās katru sekundi.

Alternatīva taimera funkcijai VBA

Kā alternatīvu VBA TIMER mēs varam izmantot funkciju “VBA NOW”, lai aprēķinātu kopējo laiku, kas makro nepieciešams uzdevuma izpildei.

Izmantojiet zemāk esošo kodu, lai aprēķinātu koda patērēto laiku.

C0de:

 Sub TotalDuration () Dim k As Date k = Tagad '' 'Ievadiet savu kodu šeit' '' MsgBox "Makro kopējais laiks, kas nepieciešams uzdevuma izpildei, ir:" & _ Format ((Tagad - k), "HH: MM : SS ") Beigu apakšdaļa 

Zaļajā zonā nokopējiet un ielīmējiet kodu.

Izpildiet kodu, nospiežot taustiņu F5 vai nospiežot palaišanas pogu. Tiklīdz tā būs pabeigta, mēs saņemsim makro laiku, kas nepieciešams uzdevuma ziņojuma izpildei ziņojuma lodziņā. Zemāk ir piemērs tam pašam.

Šādi mēs VBA daudzos veidos varam izmantot funkciju NOW.

Šo Excel VBA Now Function veidni varat lejupielādēt šeit - VBA Now Function Template