Di seguito vedremo un programma in Excel VBA che conta il numero di occorrenze dell'anno.
Situazione:
Nota: le date sono in formato USA. Prima i mesi, poi i giorni. Questo tipo di formato dipende dalle impostazioni internazionali di Windows.
1. Innanzitutto, dichiariamo tre variabili di tipo Integer. Una variabile la chiamiamo yearCount, una variabile la chiamiamo yearAsk e una variabile la chiamiamo i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Inizializziamo yearCount con il valore 0 e yearAsk con il valore della cella C4.
yearCount = 0
yearAsk = Range("C4").Value
3. Avviamo un ciclo For Next.
Per i = 1 a 16
4. Ora controlliamo ogni data e solo se l'anno della data è uguale all'anno inserito nella cella C4, incrementiamo yearCount di 1. Usiamo la funzione Year per ottenere l'anno di una data.
If year(Cells(i, 1).Value) = yearAsk Then
yearCount = yearCount + 1
Finisci se
5. Non dimenticare di chiudere il ciclo.
Avanti io
6. Infine, mostriamo le occorrenze totali dell'anno. Usiamo l'operatore & per concatenare (unire) due stringhe.
MsgBox yearCount & " occorrenze nell'anno " & yearAsk
7. Inserire la macro in un pulsante di comando e verificarlo.
Risultato:
Nota: poiché abbiamo creato la variabile yearAsk, puoi semplicemente contare il numero di occorrenze dell'anno di un altro anno inserendo un altro anno nella cella C4 e facendo nuovamente clic sul pulsante di comando.