Spodaj si bomo ogledali program v Excel VBA ki šteje število letnih pojavov.
Situacija:
Opomba: Datumi so v ameriški obliki. Prvi meseci, drugi dnevi. Ta vrsta zapisa je odvisna od regionalnih nastavitev sistema Windows.
1. Najprej razglasimo tri spremenljivke tipa Integer. Eno spremenljivko imenujemo yearCount, eno spremenljivko yearAsk in eno spremenljivko i.
Zatemni letoŠtevilo kot celo število, leto Vprašajte kot celo število, i kot celo število
2. Inicializiramo yearCount z vrednostjo 0 in yearAsk z vrednostjo celice C4.
yearCount = 0
yearAsk = Razpon ("C4"). Vrednost
3. Zaženemo zanko For Next.
Za i = 1 do 16
4. Zdaj preverimo vsak datum in le, če je leto datuma enako vnesenemu letu v celici C4, letnico povečamo za 1. S funkcijo Leto dobimo leto datuma.
Če je leto (celice (i, 1). Vrednost) = leto vprašajte potem
yearCount = yearCount + 1
Konec Če
5. Ne pozabite zapreti zanke.
Naprej i
6. Nazadnje prikažemo skupne letne dogodke. Operater & uporabljamo za združevanje (združevanje) dveh nizov.
MsgBox yearCount & "dogodki v letu" & yearAsk
7. Makro postavite v ukazni gumb in ga preizkusite.
Rezultat:
Opomba: ker smo naredili spremenljivko yearAsk, lahko preprosto preštejete število ponovitev leta v drugem letu, tako da v celico C4 vnesete drugo leto in znova kliknete ukazni gumb.
