VBA tagad (soli pa solim) - Kā izmantot funkciju Excel VBA tagad?

Satura rādītājs

Excel VBA tagad funkcija

Excel VBA tagad funkcija

NOW ir datuma un laika funkcija abās VBA, kas tiek izmantota, 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 izeja šai funkcijai ir datums.

VBA NOW funkcija ir līdzīga tai, kas ir Excel darblapas funkcijā. Tāpat kā VBA DATUMA funkcijai, arī “NOW” nav parametru, kurus ievadīt. Mums vienkārši jānodod funkcija ar aizvērtām iekavām vai arī nav vajadzīgas iekavas. Izmantojot VBA funkciju DATE, mēs varam ģenerēt pašreizējo datumu kā sistēmu, kurā 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 dažādas 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 rakstītu VBA kodu un iegūtu pietiekamas zināšanas par TAGAD, 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 mainīgais ir jādeklarē 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 mums bija 5:03:35, bet otrajā piemērā rezultāts bija 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 = Now '' 'Ievadiet savu kodu šeit' '' MsgBox "Makro kopējais laiks, kas vajadzīgs uzdevuma izpildei, ir:" & _ Format ((Now - k), "HH: MM : SS ") Beigu apakšdaļa

Zaļās krāsas 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.