Nedenfor ser vi på et program i Excel VBA der tæller antallet af års forekomster.
Situation:
Bemærk: Datoer er i amerikansk format. Måneder først, Dage andet. Denne type format afhænger af dine regionale indstillinger i Windows.
1. For det første erklærer vi tre variabler af typen Integer. En variabel kalder vi yearCount, en variabel kalder vi yearAsk og en variabel kalder vi i.
Dim årTæll som heltal, årSpørg som heltal, i som heltal
2. Vi initialiserer yearCount med værdien 0 og yearAsk med værdien af celle C4.
yearCount = 0
yearAsk = Range ("C4"). Værdi
3. Vi starter en For Next loop.
For i = 1 til 16
4. Vi kontrollerer nu hver dato, og kun hvis datoenes år svarer til det indtastede år i celle C4, øger vi yearCount med 1. Vi bruger funktionen År til at få året for en dato.
Hvis år (Celler (i, 1) .Værdi) = årSkift derefter
yearCount = yearCount + 1
Afslut Hvis
5. Glem ikke at lukke sløjfen.
Næste i
6. Endelig viser vi de samlede årlige forekomster. Vi bruger operatøren & til at sammenkoble (forbinde) to strenge.
MsgBox årTælling & "forekomster i år" & årSpørg
7. Placer din makro i en kommandoknap, og test den.
Resultat:
Bemærk: Fordi vi lavede yearAsk -variabel, kan du simpelthen tælle antallet af forekomster af et andet år ved at indtaste endnu et år i celle C4 og klikke på kommandoknappen igen.
