Excel VBA hónap
A VBA Month Function egy beépített függvény, amelyet a hónap dátumtól való lekérésére használnak, és ennek a függvénynek a kimenete egész szám, 1 és 12 között. Ez a függvény csak a hónap számát vonja ki a mellékelt dátumértékből.
Például, ha a dátum 2019. május 28.-május, akkor a hónap számának ebből a dátumból történő kivonásához használhatjuk a MONTH függvényt.
Hogyan használjuk a hónap funkciót a VBA-ban?
Az alábbiakban látható a MONTH függvény szintaxisa.
Csak meg kell adnunk azt a dátumot, amelytől megpróbáljuk kivonni a hónap számát.
1. példa
Meglátjuk, hogyan kell kódot írni, hogy kivonjuk a hónap számát a dátumból. Mi lesz a dátumot a „10 -én október 2019".
1. lépés: Indítsa el a makró eljárást.
Kód:
Hónap_Példa1 () Vége Rész
2. lépés: Adja meg a változót a dátumérték megtartásához. Mivel az adatok értékét tároljuk, adattípusunknak „Dátum” -nak kell lennie. Nyújtsa be tehát a változót, és rendelje az adattípust “Dátum” néven a deklarált változóhoz.
Kód:
Sub Month_Példa1 () Dim DDate as Date End Sub
3. lépés: Erre a változó adja meg a dátum értékét 10 -én október 2019.
Kód:
Sub Month_Példa1 () Dim DDate as Date DDate = "2019. október 10." End Sub
4. lépés: Most rendelje hozzá a hónap számát, hogy még egy változót egész számnak nyilvánítson.
Kód:
Hónap_Example1 () Dim DDate as Date Dim MonthNum As Integer DDate = "2019. október 10." End Sub
5. lépés: Ehhez a változóhoz megnyitjuk a MONTH függvényt.
Kód:
Hónap_Example1 () Dim DDate as Date Dim MonthNum As Integer DDate = "2019. október 10." MonthNum = hónap (End Sub
6. lépés: Hónapfüggvény, amely megkérdezi a „Dátumot”, amelyet meg kell adni a hónapszám kibontásához. Mivel már tároltuk a megcélzott dátumot a „DDate” változóhoz, adjuk meg ezt a változót a hónap függvény bemeneti paramétereként.
Kód:
Hónap_Example1 () Dim DD as as Date Dim MonthNum as Integer DDate = "2019. október 10." MonthNum = hónap (DDate) End Sub
7. lépés: Most a „Month” funkció visszaadja a hónap számát a megadott dátumtól a „MonthNum” változóig, és végül az eredményt megjeleníti egy üzenetmezőben a VBA-ban.
Kód:
Hónap_Example1 () Dim DDate as Date Dim MonthNum As Integer DDate = "2019. október 10." MonthNum = hónap (DDate) MsgBox MonthNum End Sub
Futtassa a kódot, és az üzenet mezőben tekintse meg a hónap számát.
Kimenet:
Tehát a megadott hónap dátumától számított hónap száma 10, azaz október hónap.
2. példa
Most cellahivatkozásokat veszünk a kódoláshoz. Az alábbiakban látható a munkalapon szereplő dátum.
Tehát az A2 cella dátumértékéből ki kell vonnunk a hónap számát a B2 cellába.
Kód:
Alhónap_Példa2 () Tartomány ("B2"). Érték = Végső rész
Nyissa meg a MONTH funkciót, és adja meg a dátumot RANGE A2 értékként.
Kód:
Hónap_példa2 () tartomány ("B2"). Érték = hónap (tartomány ("A2")) vége
Az ok, amiért szállítottuk az A2 tartomány cellát, mert ezúttal a dátum az A2 cellában van, tehát ugyanaz lesz a referencia.
Most hajtsa végre a kódot, és kapja meg a hónap számát a dátumtól a B2 cellában.
Tessék, megkapjuk a hónap számát a B2 cellában.
3. példa
Kivontuk az egycellás dátum hónapját, de mi van, ha több adatsorunk van, mint az alábbiakban.
Ezekben az esetekben meg kell vizsgálnunk a cellákat, és végre kell hajtanunk a hónap számának minden egyes dátumból való kivonását.
Az alábbi kód elvégzi a munkát helyettünk.
Kód:
Hónap_példa3 () Dim k, amíg k = 2 - 12 sejt (k, 3). Érték = hónap (cellák (k, 2). Érték) Következő k Vége Sub
Ez a kód azt fogja tenni, hogy végigvonul a 2-től 12-ig terjedő sorokon, kivonja a hónap számát a második oszlopból, és az eredményt a harmadik oszlopban tárolja.
Emlékezetes dolgok itt
- A MONTH egy munkalapfüggvény, valamint egy VBA függvény.
- A MONTH más szempontból érvényes dátum hivatkozást igényel, hibaüzenetet kapunk.
- Ha a hónap száma 12, akkor hibaüzenetet dob.
