Vba: hoe de maandnaam van de datum te krijgen

U kunt de functie MonthName in VBA gebruiken om de maandnaam uit een datum in Excel te halen.

Hier is een gebruikelijke manier om deze functie in de praktijk te gebruiken:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i) = MonthName(Month(Range(" A " & i)))
Next i

End Sub

Deze specifieke macro zoekt de maandnaam voor elke datum in het bereik A2:A11 en geeft deze namen weer in de overeenkomstige cellen in het bereik C2:C11 .

Het volgende voorbeeld laat zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: hoe u de maandnaam uit de datum kunt halen met behulp van VBA

Stel dat we de volgende gegevensset in Excel hebben die informatie bevat over de verkopen van een bedrijf op verschillende data:

Stel dat we de naam van de maand voor elke cel in de kolom Datum willen ophalen.

We kunnen hiervoor de volgende macro maken:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)))
Next i

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Houd er rekening mee dat kolom C de naam van de maand bevat voor elke overeenkomstige datum in kolom A.

Als u in plaats daarvan de afgekorte maandnaam wilt retourneren, kunt u als volgt een optioneel True- argument in de functie MonthName gebruiken:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)), True )
Next i

End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Kolom C bevat nu de afgekorte maandnaam voor elke overeenkomende datum in kolom A.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

Datums vergelijken in VBA
Hoe string naar datum te converteren in VBA
Hoe dagen tussen twee datums in VBA te berekenen