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.
Ei mitäänyearCountKuten Kokonaisluku, vuosiKysyKuten Kokonaisluku, iKuten Kokonaisluku
2. Alustamme yearCount -arvon arvolla 0 ja yearAsk solun C4 arvolla.
yearCount = 0yearAsk = Alue ('C4'). Arvo
3. Aloitamme For For Next -silmukan.
Varteni = 1Vastaanottaja164. 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.
Josvuosi (Solut (i, 1). Arvo) = yearAskSittenyearCount = yearCount + 1
Loppu Jos
5. Älä unohda sulkea silmukkaa.
Seuraavai6. Lopuksi näytämme koko vuoden tapahtumat. Käytämme & -operaattoria kahden merkkijonon ketjutukseen (yhdistämiseen).
MsgBox yearCount & 'tapahtumat vuonna' & yearAsk7. Aseta makro komentopainikkeeseen ja testaa se.
kuinka lasketaan korkomaksu Excelissä
Tulos:
Huomaa: koska teimme yearAsk -muuttujan, voit yksinkertaisesti laskea toisen vuoden vuositapahtumien määrän kirjoittamalla toisen vuoden soluun C4 ja napsauttamalla komentopainiketta uudelleen.
Siirry seuraavaan lukuun: Tapahtumat