VBA Månedsfunksjon - Hvordan få månedstall fra dato?

Innholdsfortegnelse

Excel VBA-måned

Excel VBA-måned

VBA Månedsfunksjon er en innebygd funksjon som brukes til å få måned fra en dato, og utgangen som returneres av denne funksjonen er heltall fra 1 til 12. Denne funksjonen trekker bare ut månedstallet fra den angitte datoverdien.

For eksempel, hvis datoen er 28. mai 2019, kan vi bruke MONTH-funksjonen for å trekke ut månedstall fra denne datoen.

Hvordan bruke månedsfunksjon i VBA?

Nedenfor er syntaksen for MONTH-funksjonen.

Vi trenger bare å oppgi datoen vi prøver å trekke ut månedstallet fra.

Eksempel 1

Vi får se hvordan vi skriver en kode for å trekke ut månedstall fra datoen. Vi vil ta den datoen som “10 ^th oktober 2019".

Trinn 1: Start makroprosedyren.

Kode:

Undermåned_eksempel1 () Slutt sub

Trinn 2: Definer variabelen for å holde datoverdien. Siden vi lagrer dataverdien, bør datatypen være "Dato". Så erklær variabelen og tilordne datatypen som "Dato" til den deklarerte variabelen.

Kode:

Undermåned_eksempel1 () Dim DDato som dato Slutt sub

Trinn 3: For denne variabelen, tildele dato verdi på 10 ^th oktober 2019.

Kode:

Undermåned_eksempel1 () Dim DDate as Date DDate = "10 Oct 2019" End Sub

Trinn 4: Nå tildeler du månedsnummeret til å erklære en variabel til som "Heltall".

Kode:

Undermåned_eksempel1 () Dim DDate as Date Dim MonthNum As Integer DDate = "10 Oct 2019" End Sub

Merk: Årsaken til at vi har deklarert variabelen som heltall fordi månedstallet vårt ender kun på 12. Så heltal datatype kan inneholde dette tallet.

Trinn 5: For denne variabelen åpner vi MÅNED-funksjonen.

Kode:

Sub Month_Example1 () Dim DDate as Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (End Sub

Trinn 6: Månedsfunksjon som spør om "Dato" som må leveres for å trekke ut månedsnummeret. Siden vi allerede har lagret den målrettede datoen til variabelen “DDate”, må du oppgi denne variabelen som inngangsparameter for månedsfunksjonen.

Kode:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) End Sub

Trinn 7: Nå vil "Måned" -funksjonen returnere månedsnummeret fra den leverte datoen til variabelen "MånedNum" og til slutt vise resultatet i en meldingsboks i VBA.

Kode:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 Oct 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub

Kjør koden og se månedens nummer i meldingsboksen.

Produksjon:

Så månedstallet fra den leverte datoen er 10, dvs. oktobermåneden.

Eksempel 2

Nå tar vi cellehenvisninger for koding. Nedenfor er datoen vi har i regnearket.

Så fra celle A2-datoverdien, må vi trekke ut månedstallet til cellen B2.

Kode:

Sub Month_Example2 () Range ("B2"). Verdi = End Sub

Åpne MÅNED-funksjonen og oppgi datoen som RANGE A2-verdi.

Kode:

Sub Month_Example2 () Range ("B2"). Verdi = Month (Range ("A2")) End Sub

Grunnen til at vi har levert Range A2-celle fordi denne gangen er datoen vår i cellen A2, så den samme vil være referansen.

Utfør nå koden og få månedstall fra datoen i celle B2.

Her har du, vi har månedstallet i celle B2.

Eksempel 3

Vi har hentet ut måneden for encelledato, men hva om vi har flere datarader som den nedenfor.

I disse tilfellene må vi løpe gjennom cellene og utføre oppgaven med å trekke ut månedstall fra hver respektive dato.

Koden nedenfor vil gjøre jobben for oss.

Kode:

Undermåned_eksempel3 () Dim k så lenge for k = 2 til 12 celler (k, 3). Verdi = måned (celler (k, 2). Verdi) Neste k Avslut sub

Hva denne koden vil gjøre er at den vil løpe gjennom radene fra 2 til 12 og trekke ut månedstallet fra den andre kolonnen og lagre resultatet i den tredje kolonnen.