VBA mjesec funkcija - Kako dobiti mjesečni broj od datuma?

Excel VBA mjesec

VBA Mjesečna funkcija je ugrađena funkcija koja se koristi za dobivanje mjeseca od datuma, a izlaz koji vraća ova funkcija je cijeli broj u rasponu od 1 do 12. Ova funkcija samo izdvaja broj mjeseca iz isporučene vrijednosti datuma.

Na primjer, ako je datum 28. svibnja 2019., da bismo izvukli broj mjeseca iz ovog datuma, možemo koristiti funkciju MJESEC.

Kako koristiti mjesečnu funkciju u VBA-u?

Ispod je sintaksa funkcije MONTH.

Samo trebamo navesti datum od kojeg pokušavamo izvući broj mjeseca.

Primjer # 1

Vidjet ćemo kako napisati kod za izdvajanje broja mjeseca iz datuma. Mi ćemo uzeti datum kao „10 -og listopada 2019".

Korak 1: Pokrenite postupak makronaredbi.

Kodirati:

Sub Month_Example1 () Kraj Sub

Korak 2: Definirajte varijablu koja će sadržavati datumsku vrijednost. Budući da pohranjujemo vrijednost podataka, naša vrsta podataka trebala bi biti "Datum". Dakle, deklarirajte varijablu i deklariranoj varijabli dodijelite tip podataka kao „Datum“.

Kodirati:

Sub Month_Example1 () Zatamni datum kao datum završetka Sub

Korak 3: Na ovoj varijabli dodijeliti datum vrijednosti 10 -og listopada 2019.

Kodirati:

Sub Month_Example1 () Dim DDate As Date DDate = "10. listopada 2019" End Sub

Korak 4: Sada dodijelite broj mjeseca kako biste još jednu varijablu proglasili "Integer".

Kodirati:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" End Sub
Napomena: Razlog zašto smo varijablu proglasili Integer jer naš broj mjeseci završava samo na 12. Dakle, cijeli broj podataka može sadržavati ovaj broj.

Korak 5: Za ovu varijablu otvorit ćemo funkciju MONTH.

Kodirati:

Sub Month_Example1 () Dim DDate Kao datum Dim MonthNum As Integer DDate = "10. listopada 2019" MonthNum = Month (End Sub

Korak 6: Mjesečna funkcija koja traži "Datum" koji treba dostaviti za izdvajanje broja mjeseca. Budući da smo ciljni datum već pohranili u varijablu "DDate", navedite ovu varijablu kao ulazni parametar za mjesečnu funkciju.

Kodirati:

Sub Month_Example1 () Dim DDate Kao datum Dim MonthNum As Integer DDate = "10. listopada 2019" MonthNum = Month (DDate) End Sub

Korak 7: Sada će funkcija "Mjesec" vratiti broj mjeseca od navedenog datuma na varijablu "MonthNum" i na kraju prikazati rezultat u okviru za poruke u VBA.

Kodirati:

Sub Month_Example1 () Dim DDate Kao datum Dim MonthNum As Integer DDate = "10. listopada 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub

Pokrenite kôd i u okviru za poruku pogledajte broj mjeseca.

Izlaz:

Dakle, broj mjeseca od navedenog datuma je 10, tj. Mjesec listopad.

Primjer # 2

Sada ćemo uzeti reference stanica za kodiranje. Ispod je datum koji imamo u radnom listu.

Dakle, iz vrijednosti datuma ćelije A2, moramo izvući broj mjeseca u ćeliju B2.

Kodirati:

Podmjesec_Primjer2 () Raspon ("B2"). Vrijednost = Kraj pod

Otvorite funkciju MONTH i navedite datum kao RANGE A2 vrijednost.

Kodirati:

Podmjesec_Primjer2 () Raspon ("B2"). Vrijednost = Mjesec (Raspon ("A2")) Kraj Pod

Razlog zašto smo isporučili ćeliju raspona A2 jer se ovaj put naš datum nalazi u ćeliji A2, pa će isti biti referenca.

Sada izvršite kod i dobijte broj mjeseca od datuma u ćeliji B2.

Izvolite, dobili smo broj mjeseca u ćeliji B2.

Primjer # 3

Izdvojili smo mjesec za jednoćelijski datum, ali što ako imamo više redaka podataka poput donjeg.

U tim slučajevima moramo petlju proći kroz ćelije i izvršiti zadatak izdvajanja broja mjeseca iz svakog određenog datuma.

Kôd u nastavku učinit će posao umjesto nas.

Kodirati:

Podmjesec_Primjer3 () Dim k Koliko dugo traje k = 2 do 12 ćelija (k, 3) .Vrijednost = mjesec (ćelije (k, 2) .Vrijednost) Sljedeći k Kraj Sub

Što će ovaj kod učiniti, petljat će se kroz retke od 2 do 12 i iz drugog stupca izvući broj mjeseca, a rezultat pohraniti u treći stupac.

Stvari koje treba ovdje zapamtiti

  • MJESEC je funkcija radnog lista, kao i funkcija VBA.
  • MONTH u suprotnom zahtijeva valjanu referencu datuma, dobit ćemo poruku o pogrešci.
  • Ako je broj mjeseca 12, tada će se pojaviti poruka o pogrešci.

Zanimljivi članci...