300 Eksempler

År Forekomster

Year Occurrences

Nedenfor ser vi på et program i Excel VBA der tæller antallet af års forekomster .



Situation:

År Forekomster i Excel VBA



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.



IngenårTællingSom Heltal, årSpørgSom Heltal, jegSom 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.

Tiljeg = 1Til16

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) = årAskDerefter
yearCount = yearCount + 1
Ende Hvis

5. Glem ikke at lukke sløjfen.

Næstejeg

6. Endelig viser vi de samlede årlige forekomster. Vi bruger operatøren & til at sammenkoble (forbinde) to strenge.

MsgBox årTælling & 'forekomster i år' & år Spørg

7. Placer din makro i en kommandoknap, og test den.

er excel i grader eller radianer

Resultat:

År Forekomst 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.

6/8 gennemført! Få mere at vide om datoer og tidspunkter>
Gå til næste kapitel: Begivenheder



^