U nastavku ćemo pogledati program u Excel VBA koji broji broj godine pojavljivanja.
Situacija:
Napomena: Datumi su u američkom formatu. Mjeseci prvi, dani drugi. Ova vrsta formata ovisi o regionalnim postavkama vašeg sustava Windows.
1. Prvo deklariramo tri varijable tipa Integer. Jednu varijablu nazivamo yearCount, jednu varijablu nazivamo yearAsk, a jednu varijablu nazivamo i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Pokrećemo yearCount s vrijednošću 0 i yearAsk s vrijednošću ćelije C4.
yearCount = 0
yearAsk = Raspon ("C4"). Vrijednost
3. Pokrećemo petlju For Next.
Za i = 1 do 16
4. Sada provjeravamo svaki datum i samo ako je godina datuma jednaka upisanoj godini u ćeliju C4, povećavamo yearCount za 1. Koristimo funkciju Godina za dobivanje godine datuma.
Ako je godina (ćelije (i, 1) .Vrijednost) = godinaPitajte tada
yearCount = yearCount + 1
Završi ako
5. Ne zaboravite zatvoriti petlju.
Sljedeći i
6. Na kraju, prikazujemo ukupne godine pojavljivanja. Operator & koristimo za spajanje (spajanje) dva niza.
MsgBox yearCount & "pojavljivanja u godini" & yearAsk
7. Postavite svoj makro u naredbeni gumb i testirajte ga.
Proizlaziti:
Napomena: budući da smo napravili varijablu yearAsk, možete jednostavno izbrojati broj godina pojavljivanja druge godine unošenjem druge godine u ćeliju C4 i ponovnim klikom na naredbeni gumb.