VBA-maandfunctie

Excel VBA-maand

VBA-maandfunctie is een ingebouwde functie die wordt gebruikt om de maand vanaf een datum te krijgen en de uitvoer die door deze functie wordt geretourneerd, is een geheel getal van 1 tot 12. Deze functie haalt alleen het maandnummer uit de opgegeven datumwaarde.

Als de datum bijvoorbeeld 28-mei-2019 is, kunnen we de functie MAAND gebruiken om het maandnummer vanaf deze datum te extraheren.

Hoe de maandfunctie in VBA te gebruiken?

Hieronder vindt u de syntaxis van de functie MONTH.

We hoeven alleen de datum op te geven vanaf waar we het maandnummer proberen te extraheren.

U kunt deze VBA-maand Excel-sjabloon hier downloaden - VBA-maand Excel-sjabloon

Voorbeeld 1

We zullen zien hoe u een code schrijft om het maandnummer uit de datum te halen. We nemen de datum als “10 oktober 2019 ″.

Stap 1: Start de macro-procedure.

Code:

 Sub Month_Example1 () End Sub 

Stap 2: Definieer de variabele om de datumwaarde vast te houden. Aangezien we de datawaarde opslaan, moet ons datatype "Datum" zijn. Declareer dus de variabele en wijs het gegevenstype toe als "Datum" aan de gedeclareerde variabele.

Code:

 Sub Month_Example1 () Dim DDate As Date End Sub 

Stap 3: Wijs voor deze variabele de datumwaarde van 10 oktober 2019 toe.

Code:

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

Stap 4: Wijs nu het maandnummer toe om nog een variabele als "Geheel getal" te declareren.

Code:

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

Opmerking: de reden waarom we de variabele als geheel getal hebben gedeclareerd, omdat onze maandtelling alleen eindigt op 12. Dus het gegevenstype integer kan dit nummer bevatten.

Stap 5: Voor deze variabele openen we de functie MAAND.

Code:

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

Stap 6: Maandfunctie die de "Datum" vraagt ​​die moet worden opgegeven om het maandnummer te extraheren. Aangezien we de beoogde datum al in de variabele “DDate” hebben opgeslagen, moet u deze variabele als invoerparameter voor de maandfunctie opgeven.

Code:

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

Stap 7: Nu zal de functie "Maand" het maandnummer teruggeven vanaf de opgegeven datum naar de variabele "MonthNum" en tenslotte het resultaat weergeven in een berichtvenster in VBA.

Code:

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

Voer de code uit en zie het maandnummer in het berichtvenster.

Uitgang:

Het maandnummer vanaf de aangeleverde datum is dus 10, dwz de maand oktober.

Voorbeeld # 2

Nu nemen we celverwijzingen voor codering. Hieronder staat de datum die we in het werkblad hebben.

Dus uit de datumwaarde van cel A2 moeten we het maandnummer extraheren naar cel B2.

Code:

 Sub Month_Example2 () Bereik ("B2") Waarde = End Sub 

Open de MAAND-functie en geef de datum op als RANGE A2-waarde.

Code:

 Sub Month_Example2 () Bereik ("B2"). Waarde = Maand (Bereik ("A2")) End Sub 

De reden waarom we de cel Bereik A2 hebben geleverd, omdat deze keer onze datum in cel A2 staat, dus hetzelfde zal de referentie zijn.

Voer nu de code uit en haal het maandnummer op vanaf de datum in cel B2.

Alsjeblieft, we hebben het maandnummer in cel B2.

Voorbeeld # 3

We hebben de maand geëxtraheerd voor de datum met één cel, maar wat als we meerdere rijen met gegevens hebben, zoals de onderstaande.

In deze gevallen moeten we de cellen doorlopen en de taak uitvoeren om het maandnummer van elke respectieve datum te extraheren.

De onderstaande code zal het werk voor ons doen.

Code:

 Sub Month_Example3 () Dim k As Long For k = 2 tot 12 cellen (k, 3) .Value = Month (Cells (k, 2) .Value) Next k End Sub 

Wat deze code zal doen, is dat hij door de rijen van 2 tot 12 loopt en het maandnummer uit de tweede kolom haalt en het resultaat in de derde kolom opslaat.

Dingen om hier te onthouden

  • MAAND is zowel een werkbladfunctie als een VBA-functie.
  • MONTH vereist een geldige datumreferentie, anders krijgen we een foutmelding.
  • Als het maandnummer 12 is, wordt er een foutmelding weergegeven.