VBA Most (lépésenkénti útmutató) | Hogyan használjuk a Most funkciót az Excel VBA-ban?

Excel VBA Most funkció

A NOW egy dátum és idő függvény mind a VBA-ban, amelyet az aktuális rendszer dátumának és időpontjának lekérésére használnak, akárcsak a munkalapfüggvény, amely nem tartalmaz benne argumentumot, a VBA most funkcióban szintén nem vesz fel argumentumokat, a return kimenet mert ez a függvény a dátum.

A VBA NOW függvény hasonló az Excel munkalap funkcióhoz. A VBA-ban a DATE függvényhez hasonlóan a „NOW” -nak sincsenek paraméterei, amelyeket át kell adni, csak zárt zárójelekkel kell átadni a függvényt, vagy nincs szükség zárójelekre. A DATE függvény használatával a VBA-ban előállíthatjuk az aktuális dátumot, amely megmutatja a rendszeret, amin dolgozunk. Láttam azonban olyan helyzeteket, amikor aktuális időre van szükségünk a dátummal együtt. Az excelben sokféle dolgot megtehetünk, hasonlóan az aktuális dátumot és időt is előállíthatjuk az MOST nevű egyszerű funkcióval az excelben.

A VBA MOST képlete egyszerű.

MOST ()

Példa a MOST funkcióra a VBA Excel-ben

Nézze meg a VBA NOW függvényének egyszerű példáját. Kövesse az alábbi lépéseket a VBA kód megírásához, és megfelelő ismeretekkel rendelkezik a MOST-ról, valamint a kód megírásáról.

1. lépés: Indítsa el az alfolyamatot makrónév megadásával.

Kód:

 Sub Now_Példa1 () End Sub

2. lépés: Nyújtsa be a változót „Dátum” -nak. Az ok, amiért a változót „Dátumnak” kell nyilvánítanunk, mert a végeredmény dátum és idő formátumú.

Kód:

 Sub Now_Példa1 () Dim k As Date End Sub 

3. lépés: A VBA NOW függvény alkalmazásával rendelje hozzá az értéket a „k” változóhoz.

Kód:

 Sub Now_Példa1 () Dim k As Date k = Now End Sub 

4. lépés: Most mutassa meg annak a funkciónak az értékét MOST, amelyet a „k” változóhoz rendeltünk a VBA üzenetmezőjében.

Kód:

 Sub Now_Példa1 () Dim k As Date k = Now MsgBox k End Sub 

Ok, készen vagyunk.

Futtassa a kódot az F5 billentyűvel vagy manuálisan, és nézze meg, mi az eredmény.

Az eredmény 2019.04.15-én 5: 03: 35-kor mutat.

A számítógépem dátumformátuma „éééé-hhééé”.

A dátumformátumot a FORMAT funkció segítségével is megváltoztathatjuk. Az alábbiakban látható a dátumformátum megváltoztatására szolgáló kód.

Kód:

 Sub Now_Példa1 () Dim k As Date k = Most MsgBox Format (k, "DD-MMM-YYYY HH: MM: SS") End Sub 

Futtassa a kódot, és nézze meg a különbséget.

Most van egy megfelelő dátum- és időformátumunk. Ezzel a formátummal bárki megértheti a dátum és az idő formátumát.

Illékony természet:

Amint az első példában láthatja, az időeredményt 5:03:35-ként kaptuk, a második példában pedig az eredményt 17:19:02-nek vesszük. Tehát ez azt mutatja, hogy a NOW függvény minden pillanatban változó volatilis függvény.

Az időzítő funkció alternatívája a VBA-ban

A VBA TIMER alternatívájaként a „VBA MOST” funkcióval kiszámíthatjuk a makró által a feladat elvégzéséhez szükséges teljes időt.

Használja az alábbi kódot a kódja által elvárt idő kiszámításához.

C0de:

 Sub TotalDuration () Dim k As Date k = Most '' 'Írja be ide a kódját' '' MsgBox "A makró által a feladat végrehajtásához szükséges összes idő:" & _ Format ((Now - k), "HH: MM : SS ") Vége al 

A zöld színű területre másolja és illessze be a kódot.

Végezze el a kódot az F5 gomb megnyomásával vagy a futtatás gomb megnyomásával. Amint befejezi a végrehajtást, megkapjuk a makró által az üzenetmezőben lévő feladatüzenet kitöltéséhez szükséges időt. Az alábbiakban példa erre.

Így a VBA-ban a NOW függvényt sokféleképpen használhatjuk.

Itt töltheti le ezt az Excel VBA Now Function sablont - VBA Now Function Template