VBA nu (trin-for-trin guide) - Hvordan bruges nu funktion i Excel VBA?

Indholdsfortegnelse

Excel VBA Now-funktion

Excel VBA Now-funktion

NU er en dato- og tidsfunktion i begge VBA, der bruges til at få den aktuelle systemdato og -tid, ligesom regnearkfunktionen, der ikke tager nogen argumenter i den, i VBA tager funktionen nu heller ikke nogen argumenter, returoutputtet for denne funktion er dato.

VBA NU-funktionen ligner den i excel-regnearksfunktionen. Ligesom DATE-funktionen i VBA har "NU" heller ikke parametre at passere i. Vi skal bare videregive funktionen med lukket parentes eller intet behov for parentes også. Ved at bruge DATE-funktionen i VBA kan vi generere den aktuelle dato som det system, vi arbejder på. Jeg har dog set situationer, hvor vi også har brug for aktuel tid sammen med datoen. I excel kan vi gøre mange forskellige ting; på samme måde kan vi generere aktuel dato og tid med en simpel funktion kaldet NU i Excel.

Formlen for VBA NU er enkel.

NU ()

Eksempel på NU-funktion i VBA Excel

Se på det enkle eksempel på funktionen NU i VBA. Følg nedenstående trin for at skrive VBA-koden og have en hel del viden om NU samt at skrive koden.

Trin 1: Start underproceduren ved at give et makronavn.

Kode:

Sub Now_Example1 () Afslut Sub

Trin 2: Erklær variablen som "Dato". Årsagen til, at vi har brug for at erklære variablen som "Dato", fordi vores slutresultat er i dato- og tidsformat.

Kode:

Sub Now_Example1 () Dim k Som Dato End Sub

Trin 3: Tildel værdien til variablen “k” ved at anvende VBA NOW-funktionen.

Kode:

Sub Now_Example1 () Dim k as Date k = Now End Sub

Trin 4: Vis nu værdien af funktionen NU, som vi har tildelt variablen “k” i meddelelsesboksen i VBA.

Kode:

Sub Now_Example1 () Dim k As Date k = Now MsgBox k End Sub

Okay, vi er færdige.

Kør koden ved hjælp af F5-tasten eller manuelt og se, hvad resultatet er.

Resultatet viser 15.4.2019 kl. 05:03:35.

Min computerformat er "mm-dd-åååå."

Vi kan også ændre datoformatet ved hjælp af FORMAT-funktionen. Nedenfor er koden for at ændre datoformatet.

Kode:

Sub Now_Example1 () Dim k as Date k = Now MsgBox Format (k, "DD-MMM-YYYY HH: MM: SS") End Sub

Kør koden og se forskellen.

Nu har vi et korrekt dato- og tidsformat. Med dette format kan enhver forstå dato- og tidsformatet.

Flygtige i naturen:

Som du kan se i det første eksempel, fik vi tidsresultatet som 5:03:35, og i det andet eksempel går vi resultatet som 17:19:02. Så dette viser, at NOW-funktionen er en ustabil funktion, der skifter hvert sekund.

Alternativ til timerfunktion i VBA

Som et alternativ til VBA TIMER kan vi bruge “VBA NOW” -funktionen til at beregne den samlede tid, det tager af makroen at fuldføre opgaven.

Brug nedenstående kode til at beregne den tid, det tager af din kode.

C0de:

Sub TotalDuration () Dim k Som dato k = Nu '' 'Indtast din kode her' '' MsgBox "Samlet tid taget af makroen for at fuldføre opgaven er:" & _ Format ((Nu - k), "HH: MM : SS ") Afslut sub

I det grønne område skal du kopiere og indsætte din kode.

Udfør koden ved at trykke på F5-tasten eller tryk på kør-knappen. Så snart det er færdig med udførelsen, får vi makroen til at fuldføre opgavebeskeden i meddelelsesboksen. Nedenfor er et eksempel på det samme.