Di seguito vedremo un programma in Excel VBA che conta il numero di occorrenze anno.

Situazione:

Year Occurrences in Excel VBA

Nota: Le date sono in formato USA. Mesi prima, seconda giorni. Questo tipo di formato dipende dalle vostre finestre Impostazioni internazionali.

  1. In primo luogo, si dichiara tre variabili di tipo Integer. Una variabile che chiamiamo yearCount, una variabile che chiamiamo yearAsk, e una variabile che chiamiamo i.

Dim yearCount As Integer, yearAsk As Integer, i As Integer

  1. Inizializziamo yearCount con il valore 0 e yearAsk con il valore della cella C4.

yearCount = 0

yearAsk = Range("C4").Value

  1. Iniziamo un ciclo For Next.

For i = 1 To 16

  1. Ora controllare ogni data e solo se l’anno della data è uguale al anno è entrato nella cella C4, abbiamo yearCount incremento di 1. Usiamo la funzione anno per ottenere l’anno di una data.

If year(Cells(i, 1).Value) = yearAsk Then

yearCount = yearCount + 1

End If

  1. Non dimenticare di chiudere il ciclo.

Next i

  1. Infine, visualizzare le occorrenze totali anno. Usiamo l’operatore & per concatenare (join) due stringhe.

MsgBox yearCount & " occurrences in year " & yearAsk

  1. Inserire la macro in un pulsante di comando e testarlo.

Risultato:

Year Occurrences Result

Nota: perché abbiamo fatto variabile yearAsk, si può semplicemente contare il numero di occorrenze anno di un altro anno per entrare in un altro anno in cella C4, e facendo clic sul pulsante di comando di nuovo.