Funcția Excel VBA Now
ACUM este o funcție de dată și oră în ambele VBA, care este folosită pentru a obține data și ora curentă a sistemului, la fel ca funcția foaie de lucru care nu ia niciun argument în ea, în funcția VBA acum nu ia niciun argument, ieșirea returnată pentru această funcție este data.
Funcția VBA ACUM este similară cu cea din funcția de foaie de lucru Excel. La fel ca și funcția DATE din VBA „ACUM” nu are parametri în care să treacă, trebuie doar să trecem funcția cu paranteză închisă sau fără nevoie de paranteză. Folosind funcția DATE în VBA putem genera data curentă ca afișând sistemul la care lucrăm. Cu toate acestea, am văzut situații în care avem nevoie de ora curentă, împreună cu data. În Excel putem face multe varietăți de lucruri, în mod similar, putem genera data și ora curente cu o funcție simplă numită ACUM în Excel.
Formula VBA ACUM este simplă.
ACUM ()
Exemplu de funcție ACUM în VBA Excel
Uită-te la exemplul simplu al funcției ACUM în VBA. Urmați pașii de mai jos pentru a scrie codul VBA și pentru a avea un pic de cunoștințe despre ACUM, precum și pentru a scrie codul.
Pasul 1: Porniți subprocedura dând un nume de macro.
Cod:
Sub Now_Example1 () End Sub
Pasul 2: declarați variabila ca „Data”. Motivul pentru care trebuie să declarăm variabila drept „Data”, deoarece rezultatul nostru final este în format Data și Ora.
Cod:
Sub Now_Example1 () Dim k As Data End Sub
Pasul 3: Atribuiți valoarea variabilei „k” aplicând funcția VBA ACUM.
Cod:
Sub Now_Example1 () Dim k As Date k = Now End Sub
Pasul 4: Arătați acum valoarea funcției ACUM pe care am atribuit-o variabilei „k” în caseta de mesaj din VBA.
Cod:
Sub Now_Example1 () Dim k As Date k = Now MsgBox k End Sub
Ok, am terminat.
Rulați codul folosind tasta F5 sau manual și vedeți care este rezultatul.
Rezultatul arată 15.04.2019 la 5:03:35.
Formatul de dată al computerului meu este „mm-zz-aaaa”.
De asemenea, putem schimba formatul datei folosind funcția FORMAT. Mai jos este codul pentru a schimba formatul datei.
Cod:
Sub Now_Example1 () Dim k As Date k = Now MsgBox Format (k, "DD-MMM-YYYY HH: MM: SS") End Sub
Rulați codul și vedeți diferența.
Acum avem un format de dată și oră adecvat. Cu acest format, oricine poate înțelege formatul datei și orei.
Volatil în natură:
După cum puteți vedea în primul exemplu, am obținut rezultatul în timp la 5:03:35, iar în al doilea exemplu, vom obține rezultatul ca 17:19:02. Deci, acest lucru arată că funcția ACUM este o funcție volatilă care se schimbă în fiecare secundă.
Alternativă la funcția Timer în VBA
Ca alternativă la VBA TIMER, putem folosi funcția „VBA ACUM” pentru a calcula timpul total al macro-ului pentru a finaliza sarcina.
Utilizați codul de mai jos pentru a calcula timpul necesar codului dvs.
C0de:
Sub TotalDuration () Dim k As Date k = Now '' 'Introduceți codul dvs. aici' '' MsgBox "Total Time luat de macro pentru a finaliza sarcina este:" & _ Format ((Now - k), "HH: MM : SS ") End Sub
În zona verde, copiați și lipiți codul.
Executați codul apăsând tasta F5 sau apăsați butonul de rulare. De îndată ce finalizează execuția, vom obține timpul necesar macro-ului pentru a finaliza mesajul de activitate din caseta de mesaje. Mai jos este un exemplu de același lucru.
Astfel, putem folosi funcția ACUM în multe moduri în VBA.
Puteți descărca acest șablon Excel VBA Now Function aici - Șablon VBA Now Function