Hoe de workday-functie in vba te gebruiken (met voorbeeld)

U kunt de WorkDay- methode in VBA gebruiken om een bepaald aantal werkdagen op te tellen bij of af te trekken van een datum.

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

 SubAddWorkDays ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.WorkDay(Range("A" & i), Range("B" & i))
Next i

End Sub

Deze specifieke macro voegt het aantal werkdagen gespecificeerd in het bereik B2:B10 toe aan elke datum in het bereik A2:A10 en geeft de resultaten weer in het bereik C2:C10 .

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

Voorbeeld: hoe u de WorkDay-functie in VBA gebruikt

Laten we zeggen dat we een kolom met datums in Excel hebben, evenals een andere kolom die het aantal werkdagen specificeert dat aan elke datum moet worden toegevoegd:

We kunnen de volgende macro maken om het aantal werkdagen in kolom B op te tellen bij elke overeenkomstige datum in kolom A:

 SubAddWorkDays ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.WorkDay(Range("A" & i), Range("B" & i))
Next i

End Sub

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

Standaard geeft kolom C datums weer als serienummers.

Om deze waarden als herkenbare datums weer te geven, markeert u het bereik C2:C10 en klikt u vervolgens op het tabblad Invoegen op het bovenste lint, klikt u vervolgens op het vervolgkeuzemenu Getalnotatie en klikt u op Korte datum :

Elk serienummer wordt nu weergegeven als een datum:

Kolom C geeft elke datum in kolom A weer, waaraan het specifieke aantal werkdagen in kolom B is toegevoegd.

Houd er rekening mee dat als we een negatief getal opgeven in kolom B, de WorkDay- methode dat aantal werkdagen aftrekt van de datum in kolom A.

Let op : De volledige documentatie voor de VBA WorkDay- methode vindt u hier .

Aanvullende bronnen

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

VBA: Hoe de maandnaam van de datum te krijgen
VBA: sorteren op datum
VBA: hoe toe te voegen als tussen twee datums