Hoe eomonth in vba te gebruiken (met voorbeeld)

U kunt de EoMonth- methode in VBA gebruiken om de laatste dag van de maand voor een bepaalde datum te retourneren.

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

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

Deze specifieke macro zoekt de laatste dag van de maand voor elke datum in het bereik A2:A11 en geeft die datum weer in de overeenkomstige cel in het bereik C2:C11 .

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

Voorbeeld: EoMonth gebruiken in 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 voor elke datum in kolom A de laatste dag van de maand willen vinden en deze in kolom C willen weergeven.

We kunnen hiervoor de volgende macro maken:

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

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

Merk op dat kolom C de laatste dag van de maand bevat voor elke overeenkomstige datum in kolom A.

Merk op dat we de eigenschap NumberFormat hebben gebruikt om datumwaarden in een herkenbaar datumformaat in kolom C weer te geven in plaats van serienummers, wat het standaardformaat is in Excel.

Houd er ook rekening mee dat het laatste argument van de EoMonth- methode het aantal maanden voor of achter specificeert dat moet worden gebruikt bij het berekenen van de laatste dag van de maand.

In dit voorbeeld hebben we de waarde 0 gebruikt om aan te geven dat we de laatste dag van de huidige maand willen vinden.

We kunnen echter in plaats daarvan een waarde van -1 gebruiken om aan te geven dat we de laatste dag van de vorige maand willen vinden, of een waarde van 1 om aan te geven dat we de laatste dag van de volgende maand willen vinden.

Opmerking : u kunt hier de volledige documentatie van de EoMonth- methode in VBA vinden.

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