Hoe de weekdagfunctie in vba te gebruiken (met voorbeeld)

U kunt de functie Weekdag in VBA gebruiken om de dag van de week (als geheel getal) vanaf een bepaalde datum te verkrijgen.

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

 Sub FindWeekday()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
    Next i
    
End Sub

Deze specifieke macro zoekt de dag van de week (als een geheel getal) voor elke datum in het bereik A2:A9 en geeft de resultaten weer in het bereik B2:B9 .

Merk op dat de volgende gehele getallen overeenkomen met elke dag van de week:

• 1 : zondag
• 2 : maandag
• 3 : dinsdag
• 4 : woensdag
• 5 : donderdag
• 6 : vrijdag
• 7 : zaterdag

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

Opmerking : als u liever de dag van de week als naam retourneert, moet u in plaats daarvan de functie WeekdagNaam gebruiken.

Voorbeeld: Gebruik de functie Weekdag in VBA om de dag van de week te vinden

Stel dat we de volgende datumkolom in Excel hebben:

Stel dat we voor elke datum de dag van de week (als geheel getal) willen verkrijgen en de resultaten in kolom B willen weergeven.

We kunnen hiervoor de volgende macro maken:

 Sub FindWeekday()
    
    Dim i As Integer

    For i = 2 To 9
        Range(" B " & i) = WorksheetFunction.Weekday(Range(" A " & i))
    Next i
    
End Sub

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

Kolom B toont de dag van de week (als een geheel getal) voor elke datum in kolom A.

Bijvoorbeeld:

• 1-1-2023 is een zondag, dus de functie Weekdag retourneert 1 .
• 4-1-2023 is een woensdag, dus de functie Weekdag retourneert 4 .
• 23-02-2023 is een donderdag, dus de functie Weekdag retourneert 5 .

Enzovoort.

Opmerking : u kunt hier de volledige documentatie voor de VBA Weekday- functie vinden.

Aanvullende bronnen

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

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