In questo articolo imparerai come inserire i giorni feriali, ad esempio dal lunedì al venerdì automaticamente utilizzando il codice VBA in qualsiasi colonna.

Fare clic sulla scheda Sviluppatore. Dal gruppo Codice selezionare Visual Basic

img1

Fare clic su Inserisci, quindi su Modulo

img2

Questo creerà un nuovo modulo.

Inserisci il seguente codice nel Modulo

Sub WeekendOut ()

Dim Start As Date, Off As Date

Dim y%, i #

Inizio = InputBox (“Data inizio:”)

Off = InputBox (“End Date:”)

===

For i = Start To Off

y = y + 1

Se Weekday (i, 2) <6 Allora

Celle (y, 2) = Formato (i, “mm-gg-aa”)

Celle (y, 1) = Formato (i, “dddd”)

ElseIf Weekday (i, 2) = 6 Allora

Altrimenti

y = y – 1

End If

Avanti i

End Sub

===

img3

Premere il tasto di scelta rapida ALT + F8 per aprire la finestra Macro e quindi selezionare la macro.

img4

In alternativa, puoi premere F5 per eseguire il codice nella schermata VBA.

Dopo aver eseguito la macro, otterremo la seguente casella di input Richiediamo di inserire la data di inizio nel formato MM / GG / AAAA

img5

Quindi il codice chiederà di inserire la data di fine

img6

img7

Quindi, otterremo il giorno della settimana nella colonna A e la cella successiva memorizzerà la data.

In questo modo, puoi entrare facilmente nei giorni feriali senza prendere alcun dolore manuale.