Hieronder zullen we kijken naar een programma in Excel VBA dat telt het aantal jaargebeurtenissen.
Situatie:
Opmerking: datums zijn in Amerikaans formaat. Maanden eerst, dagen tweede. Dit type indeling is afhankelijk van de regionale instellingen van uw Windows.
1. Eerst declareren we drie variabelen van het type Integer. Eén variabele noemen we yearCount, één variabele noemen we yearAsk en één variabele noemen we i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. We initialiseren yearCount met de waarde 0 en yearAsk met de waarde van cel C4.
jaartelling = 0
yearAsk = Bereik ("C4"). Waarde
3. We starten een For Next-lus.
Voor i = 1 tot 16
4. We controleren nu elke datum en alleen als het jaar van de datum gelijk is aan het ingevoerde jaar in cel C4, verhogen we yearCount met 1. We gebruiken de functie Jaar om het jaar van een datum te krijgen.
Als jaar (cellen (i, 1). Waarde) = jaar Vraag dan
jaartelling = jaartelling + 1
Stop als
5. Vergeet niet de lus te sluiten.
volgende i
6. Ten slotte geven we de totale jaarvoorvallen weer. We gebruiken de operator & om twee strings samen te voegen (samen te voegen).
MsgBox yearCount & " voorkomens in jaar " & yearAsk
7. Plaats uw macro in een opdrachtknop en test deze.
Resultaat:
Opmerking: omdat we yearAsk variabel hebben gemaakt, kunt u eenvoudig het aantal jaar voorkomen van een ander jaar tellen door een ander jaar in cel C4 in te voeren en nogmaals op de opdrachtknop te klikken.
