Alla tarkastelemme ohjelmaa Excel VBA joka laskee määrän vuoden tapahtumia.
Tilanne:
Huomaa: Päivämäärät ovat Yhdysvaltain muodossa. Kuukaudet ensin, toiset päivät. Tämä muoto riippuu Windowsin alueasetuksista.
1. Ilmoitamme ensin kolme Integer -tyyppistä muuttujaa. Yksi muuttuja, jota kutsumme yearCount, yksi muuttuja, jota kutsumme yearAsk, ja yksi muuttuja, jota kutsumme i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Alustamme yearCount -arvon arvolla 0 ja yearAsk solun C4 arvolla.
yearCount = 0
yearAsk = Alue ("C4"). Arvo
3. Aloitamme For For Next -silmukan.
I = 1 - 16
4. Tarkistamme nyt jokaisen päivämäärän ja vain jos päivämäärävuosi on sama kuin soluun C4 syötetty vuosi, lisäämme yearCount -arvoa yhdellä. Käytämme Vuosi -funktiota päivämäärän vuoden saamiseen.
Jos vuosi (Solut (i, 1). Arvo) = vuosiKysy sitten
yearCount = yearCount + 1
Loppu Jos
5. Älä unohda sulkea silmukkaa.
Seuraavaksi minä
6. Lopuksi näytämme koko vuoden tapahtumat. Käytämme & -operaattoria kahden merkkijonon ketjutukseen (yhdistämiseen).
MsgBox yearCount & "tapahtumat vuonna" & yearAsk
7. Aseta makro komentopainikkeeseen ja testaa se.
Tulos:
Huomaa: koska teimme yearAsk -muuttujan, voit yksinkertaisesti laskea toisen vuoden vuositapahtumien määrän kirjoittamalla toisen vuoden soluun C4 ja napsauttamalla komentopainiketta uudelleen.