Nedenfor ser vi på et program i Excel VBA som teller antall års hendelser.
Situasjon:
Merk: Datoer er i amerikansk format. Måneder først, dager andre. Denne formatet avhenger av dine regionale innstillinger i Windows.
1. Først deklarerer vi tre variabler av typen Heltall. En variabel vi kaller yearCount, en variabel vi kaller yearAsk, og en variabel vi kaller i.
Dim årTeller som heltall, årSpør som heltall, i som heltall
2. Vi initialiserer yearCount med verdien 0 og yearAsk med verdien av celle C4.
yearCount = 0
yearAsk = Range ("C4"). Verdi
3. Vi starter en For Next loop.
For i = 1 til 16
4. Vi sjekker nå hver dato, og bare hvis datoenes år tilsvarer det angitte året i celle C4, øker vi yearCount med 1. Vi bruker årfunksjonen for å få året for en dato.
If year (Cells (i, 1) .Value) = yearAsk Then
yearCount = yearCount + 1
Slutt om
5. Ikke glem å lukke sløyfen.
Neste jeg
6. Til slutt viser vi den totale årsforekomsten. Vi bruker operatøren & til å sammenkoble (sammenføye) to strenger.
MsgBox årTall og "forekomster i år" og år Spør
7. Plasser makroen i en kommandoknapp og test den.
Resultat:
Merk: Fordi vi lagde yearAsk -variabel, kan du ganske enkelt telle antall årsforekomster for et annet år ved å skrive inn et annet år i celle C4 og klikke på kommandoknappen igjen.
