/ / Anno occorrenze in Excel VBA

Occorrenze di anno in VBA di Excel

Di seguito vedremo un programma in Excel VBA quello conta il numero di avvenimenti dell'anno.

Situazione:

Occorrenze di anno in VBA di Excel

Nota: le date sono in formato USA. Mesi prima, giorni secondo. Questo tipo di formato dipende dalle impostazioni regionali di Windows.

1. In primo luogo, dichiariamo 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

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

yearCount = 0
yearAsk = Range("C4").Value

3. Iniziamo un ciclo For Next.

For i = 1 To 16

4. Verifichiamo ora ogni data e solo se l'anno della data è uguale all'anno immesso nella cella C4, incrementiamo di anno in anno. Usiamo la funzione Anno per ottenere l'anno di una data.

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

5. Non dimenticare di chiudere il ciclo.

Next i

6. Infine, vengono visualizzate le occorrenze per l'anno totale. Usiamo l'operatore & per concatenare (unire) due stringhe.

MsgBox yearCount & " occurrences in year " & yearAsk

7. Metti la tua macro in un pulsante di comando e provala.

Risultato:

Risultato anno

Nota: poiché abbiamo reso variabile yearAsk, puoi semplicemente contare il numero di occorrenze di un altro anno immettendo un altro anno nella cella C4 e facendo nuovamente clic sul pulsante di comando.

Leggi anche: