VBA Månedsfunktion - Hvordan får man månedsnummer fra dato?

Indholdsfortegnelse

Excel VBA-måned

Excel VBA-måned

VBA-månedsfunktion er en indbygget funktion, der bruges til at få måned fra en dato, og det output, der returneres af denne funktion, er et helt tal fra 1 til 12. Denne funktion udtrækker kun månedstallet fra den leverede datoværdi.

For eksempel, hvis datoen er 28. maj 2019, kan vi bruge MÅNED-funktionen for at udtrække månedens nummer fra denne dato.

Hvordan bruges månedsfunktion i VBA?

Nedenfor er syntaksen for MONTH-funktionen.

Vi skal bare angive den dato, hvorfra vi prøver at udtrække månedens nummer.

Eksempel nr. 1

Vi vil se, hvordan man skriver en kode for at udtrække månedens nummer fra datoen. Vi vil tage den dato som ”10 ^th okt 2019".

Trin 1: Start makroproceduren.

Kode:

Under måned_eksempel1 () afslut sub

Trin 2: Definer variablen, der skal indeholde datoværdien. Da vi gemmer dataværdien, skal vores datatype være "Dato". Så erklær variablen, og tildel datatypen som "Dato" til den deklarerede variabel.

Kode:

Undermåned_eksempel1 () Dim D-dato som slutdato sub

Trin 3: Til denne variabel, tildele datoen værdi af 10 ^th okt 2019.

Kode:

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

Trin 4: Tildel nu månedsnummeret til at erklære en variabel til som "Heltal".

Kode:

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

Bemærk: Årsagen til, at vi har deklareret variablen som heltal, fordi vores månedstal kun slutter ved 12. Så heltal datatype kan indeholde dette nummer.

Trin 5: For denne variabel åbner vi MÅNED-funktionen.

Kode:

Undermåned_eksempel1 () Dim DDate som dato Dim MonthNum Som heltal DDate = "10. okt 2019" MonthNum = Month (End Sub

Trin 6: Månedsfunktion, der spørger "Dato", der skal leveres for at udtrække månedens nummer. Da vi allerede har gemt den målrettede dato til variablen "DDate", skal du angive denne variabel som inputparameter for månedsfunktionen.

Kode:

Undermåned_eksempel1 () Dim DDate som dato Dim MonthNum Som Heltal DDate = "10. okt 2019" MonthNum = Month (DDate) End Sub

Trin 7: Funktionen "Måned" returnerer nu månedens nummer fra den leverede dato til variablen "MånedNum" og viser endelig resultatet i en meddelelsesboks i VBA.

Kode:

Under Måned_eksempel1 () Dim DDate Som Dato Dim MonthNum Som Heltal DDate = "10. okt 2019" MonthNum = Måned (DDate) MsgBox MånedNum End Sub

Kør koden, og se månedens nummer i meddelelsesfeltet.

Produktion:

Så månedstallet fra den leverede dato er 10, dvs. oktober måned.

Eksempel 2

Nu tager vi cellehenvisninger til kodning. Nedenfor er den dato, vi har i regnearket.

Så fra celle A2-datoværdien skal vi udtrække månedens nummer til cellen B2.

Kode:

Undermåned_eksempel2 () Område ("B2"). Værdi = Afslut sub

Åbn MÅNED-funktionen, og angiv datoen som RANGE A2-værdi.

Kode:

Under Månedeksempel2 () Område ("B2"). Værdi = Måned (Område ("A2")) Afslut Sub

Årsagen til, at vi har leveret række A2-celle, fordi denne dato er vores dato i cellen A2, så det samme vil være referencen.

Udfør nu koden, og få månedens nummer fra datoen i celle B2.

Her går du, vi har månedens nummer i celle B2.

Eksempel 3

Vi har udtrukket måneden for datoen med en celle, men hvad nu hvis vi har flere datarækker som den nedenstående.

I disse tilfælde er vi nødt til at løbe gennem cellerne og udføre opgaven med at udtrække månedens nummer fra hver respektive dato.

Koden nedenfor gør jobbet for os.

Kode:

Undermåned_eksempel3 () Dim k så længe for k = 2 til 12 celler (k, 3). Værdi = måned (celler (k, 2). Værdi) Næste k slut sub

Hvad denne kode vil gøre, er at den løber gennem rækkerne fra 2 til 12 og udtrækker månedens nummer fra den anden kolonne og gemmer resultatet i den tredje kolonne.