Funzione mese VBA - Come ottenere il numero del mese dalla data?

Mese di Excel VBA

La funzione mese VBA è una funzione incorporata utilizzata per ottenere il mese da una data e l'output restituito da questa funzione è un numero intero compreso tra 1 e 12. Questa funzione estrae solo il numero del mese dal valore della data fornito.

Ad esempio, se la data è 28 maggio 2019, per estrarre il numero del mese da questa data, possiamo utilizzare la funzione MESE.

Come utilizzare la funzione mese in VBA?

Di seguito è riportata la sintassi della funzione MESE.

Dobbiamo solo fornire la data dalla quale stiamo cercando di estrarre il numero del mese.

Esempio 1

Vedremo come scrivere un codice per estrarre il numero del mese dalla data. Noi prenderemo la data come “10 ^° ottobre 2019".

Passaggio 1: avviare la procedura macro.

Codice:

Sub Month_Example1 () End Sub

Passaggio 2: definire la variabile per contenere il valore della data. Poiché stiamo memorizzando il valore dei dati, il nostro tipo di dati dovrebbe essere "Data". Quindi dichiarare la variabile e assegnare il tipo di dati come "Data" alla variabile dichiarata.

Codice:

Sub Month_Example1 () Dim DDate As Date End Sub

Fase 3: per questa variabile, assegnare il valore data del 10 ^° ottobre 2019.

Codice:

Sub Month_Example1 () Dim DDate As Date DDate = "10 ott 2019" End Sub

Passaggio 4: ora assegna il numero del mese per dichiarare un'altra variabile come "Integer".

Codice:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 ott 2019" End Sub

Nota: il motivo per cui abbiamo dichiarato la variabile come Integer perché il conteggio dei nostri mesi termina solo a 12. Quindi il tipo di dati intero può contenere questo numero.

Passaggio 5: per questa variabile, apriremo la funzione MESE.

Codice:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 ott 2019" MonthNum = Month (End Sub

Passaggio 6: funzione Mese che chiede la "Data" che deve essere fornita per estrarre il numero del mese. Poiché abbiamo già memorizzato la data di destinazione nella variabile "DDate", fornire questa variabile come parametro di input per la funzione mese.

Codice:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 ott 2019" MonthNum = Month (DDate) End Sub

Passaggio 7: ora la funzione "Mese" restituirà il numero del mese dalla data fornita alla variabile "MonthNum" e infine mostrerà il risultato in una finestra di messaggio in VBA.

Codice:

Sub Month_Example1 () Dim DDate As Date Dim MonthNum As Integer DDate = "10 ott 2019" MonthNum = Month (DDate) MsgBox MonthNum End Sub

Eseguire il codice e visualizzare il numero del mese nella finestra del messaggio.

Produzione:

Quindi, il numero del mese dalla data fornita è 10, ovvero il mese di ottobre.

Esempio n. 2

Ora prenderemo i riferimenti di cella per la codifica. Di seguito è riportata la data che abbiamo nel foglio di lavoro.

Quindi dal valore della data della cella A2, dobbiamo estrarre il numero del mese nella cella B2.

Codice:

Sub Month_Example2 () Intervallo ("B2"). Valore = End Sub

Aprire la funzione MESE e fornire la data come valore RANGE A2.

Codice:

Sub Month_Example2 () Intervallo ("B2"). Valore = Mese (Intervallo ("A2")) End Sub

Il motivo per cui abbiamo fornito la cella Intervallo A2 perché questa volta, la nostra data è nella cella A2, quindi lo stesso sarà il riferimento.

Ora esegui il codice e ottieni il numero del mese dalla data nella cella B2.

Ecco, abbiamo il numero del mese nella cella B2.

Esempio n. 3

Abbiamo estratto il mese per la data a cella singola, ma cosa succede se abbiamo più righe di dati come quella sotto.

In questi casi, è necessario scorrere le celle ed eseguire l'attività di estrazione del numero del mese da ciascuna rispettiva data.

Il codice seguente farà il lavoro per noi.

Codice:

Sub Month_Example3 () Dim k As Long For k = 2 To 12 Cells (k, 3) .Value = Month (Cells (k, 2) .Value) Next k End Sub

Ciò che questo codice farà è scorrere le righe da 2 a 12 ed estrarre il numero del mese dalla seconda colonna e memorizzare il risultato nella terza colonna.

Cose da ricordare qui

• MESE è una funzione del foglio di lavoro, nonché una funzione VBA.
• MONTH richiede un riferimento a una data valida altrimenti, riceveremo un messaggio di errore.
• Se il numero del mese è 12, verrà visualizzato un messaggio di errore.