Mi a VBA DateValue függvény?
A DateValue függvény az Excel VBA beépített függvénye a Dátum / idő függvény kategóriában. VBA és munkalap funkcióként is működik az vba-ban. Ez a függvény a karakterlánc-reprezentációs formátumban megadott Date sorozatszámát vagy értékét adja vissza, figyelmen kívül hagyva a Date string által megadott időinformációkat. Az Excel kétféle módon használható. Ezt a függvényt munkalap-képletként használják, amely egy munkalap cellába kerül. Makrókódként használják a VBA alkalmazásban, a Microsoft Excel programhoz társított Visual Basic Editor segítségével.
Ebben a cikkben megismerjük a VBA DATEVALUE példáit és annak világos magyarázattal történő használatát.
A VBA Datevalue függvény magyarázata
A VBA-ban a DATEVALUE a következő szintaxist használja.
Ez a függvény csak egyetlen argumentumot vagy paramétert használ
- Dátum : Ez a karakterlánc formátumban megjelenített dátum
- Visszatér: Ez a függvény visszaadja a dátum értékét, amikor VBA függvényként használják. Visszaadja a dátumértéket, ha munkalapfüggvényként használják
A VBA DateValue függvény képes értelmezni a szöveg formátumban ábrázolt adatokat, amelyeket érvényes Excel formátumban említenek. Nem tudja visszaadni a dátumértéket, ha a karakterlánc tartalmazza a hétköznap szöveges ábrázolását.
A VBA DateValue függvény előnyei a dátumérték kibontása a karaktersorozatból és a dátum időbeli átalakítása az egyetlen dátumra. Egyszerűen annyit tehetünk, hogy amikor egy dátumot idővel adunk meg, ez a függvény csak dátumértéket kerül, elkerülve az időértéket.
Hogyan kell használni az Excel VBA DATEVALUE értéket?
Az Excel DateValue függvényének használatához először meg kell nyitnia a VBA szerkesztőt.
A VBA program sorainak hozzáadásához a Command gombot kell elhelyezni az Excel munkalapon. A program sorainak megvalósításához a felhasználónak az Excel lapon a parancs gombra kell kattintania. Ahhoz, hogy érvényes kimenete legyen a programnak, érvényes argumentumot adunk meg. Például az alábbi kód segít egy makró létrehozásában a DateValue függvény futtatásához, hogy kivonja a dátumértéket a VBA szövegéből.
VBA program:
Sub Datebutton () Dim myDate as Date myDate = DateValue (“1991. augusztus 15.”) MsgBox Date (myDate) End Sub
Ennek a kódnak a dátuma a megadott bemenet 15-ös értéke.
Példák az Excel VBA DATEVALUE-ra
Az alábbiakban bemutatjuk az Excel VBA DateValue példáit.
Ezt a VBA DateValue Excel sablont innen töltheti le - VBA DateValue Excel sablont1. példa - Nap, hónap és év beszerzése dátumtól
Néhány lépést követünk a program VBA-ban történő létrehozásához és végrehajtásához. Ezek közé tartozik
1. lépés: Lépjen a Fejlesztő fülre, helyezze a kurzort az Excel lap egyik cellájára, kattintson a „Beszúrás” opcióra, és válassza az „Active Directory vezérlés” alatt a „Parancs gomb” lehetőséget, az ábra szerint.
Húzza a Gombot a kívánt helyre, és adja meg a feliratot Datebuttonként a tulajdonságok ablakban.
2. lépés: Kattintson duplán arra a gombra, amely átirányítja a VBA projektbe, és beírja a kódot a Private Sub parancs gomb és az sub aljába.
A kódot az alábbiak szerint kell fejleszteni, hogy megkapja a dátumot, a hónapot és az évet.
Kód:
Privát Sub Datebutton1_Click () Dimenziós példány mint Date Exampledate = DateValue ("2019. április 19.") MsgBox dátum MsgBox év (példázott) MsgBox hónap (példázott) Vége al 
Ebben a kódban a Datebutton1_Click () a név, és a példaérték változó a Dátum adattípussal és az Msgbox-szal a kimenet megjelenítéséhez.
3. lépés: A kód fejlesztése közben vba típusú eltérési hibák lépnek fel, és ezeket gondozniuk kell.
4. lépés: Ebben a lépésben futtassa a programot a futtatás opcióra kattintva.
Vagy ellenőrizhetjük vagy hibakereshetjük a programot lépésről lépésre, a Debug menüben a Step Into opciót választva. Ha kódunk hibátlan, akkor megjeleníti a kimenetet.
5. lépés : A program végrehajtása után először megjelenik az üzenetmező a szövegbevitelben megadott dátummal. Ezután kattintson az OK gombra az évérték újbóli megtekintéséhez. Kattintson az üzenet mezőbe az OK gombra a hónap értékének megtekintéséhez.
2. példa - A DatePart használata a dátum különböző részeinek megszerzéséhez
1. lépés: Lépjen az Excel Developer fülre, helyezze a kurzort az Excel lap egyik cellájára, és kattintson az „Insert” opcióra, és válassza az „ActiveX Control” alatt a „Command Button” lehetőséget, az ábra szerint.
2. lépés: Húzza a gombot, és adja meg a feliratot DatePart néven a tulajdonságok alatt.
Kattintson duplán erre a gombra, és a Visual Basic Editor lapra mutat, és a következőképpen jelenik meg.
3. lépés: Fejlessze a kódot a DatePart with DateValue használatával, az ábra szerint.
Kód:
Private Sub Datepart1_Click () Dim partdate As Variant partdate = DateValue ("1991/08/15") MsgBox partdate MsgBox Datepart ("yyyy", partdate) MsgBox Datepart ("dd", partdate) MsgBox Datepart ("mm", partdate) MsgBox Datepart ("q", partdate) End Sub 
Ebben a programban a DatePart1 a makró neve, a partDate pedig a argumentum neve, a 'variant' adattípussal. Az év, a dátum, a hónap és a negyed megjelenítéséhez a formátumot „éééé”, „d”, „m” és „q” formátumban alkalmazzák. Ha bármilyen hibát követünk el a formátumban, akkor a következő hibát jeleníti meg.
4. lépés: A program sikeres hibakeresése után futtassa a programot a futtatás gombra kattintva használja az Excel F5 gyorsbillentyűt.
A kód először a teljes dátumot jeleníti meg, majd miután minden OK gombra kattintott az msgbox-ból, megmutatja a dátumérték utáni évértéket, a Hónap értéket, illetve a Quater értéket.
Emlékezetes dolgok a VBA DATEVALUE-ról
Az Excel VBA DateValue függvényének használata során a következő dolgokra kell emlékezni
- A 13. futási hiba a Type Mismatch üzenettel akkor jelenik meg, ha a DateValue függvényhez megadott dátum nem képes érvényes dátumra konvertálni. Szükségünk van a dátum megfelelő szöveges formátumra
- Amikor megpróbáljuk megszerezni az egyetlen dátumot a karakterlánc argumentumból, az 'msgbox date (argumentum neve)' kóddal, akkor megjelenik a típus eltérési hiba.
- A DateValue függvény kimenetét a VBA szerkesztő megnyitása nélkül is láthatjuk. A parancs gombra kattintva válassza ki az adott programhoz létrehozott makrót
- When DatePart is used to get the values, the appropriate format should be followed. Otherwise, it leads ‘run time error 5’ with message invalid procedure call or argument.