Allpool vaatame programmi Exceli VBA mis loeb arvu aasta esinemised.
Olukord:
Märkus: Kuupäevad on USA vormingus. Kuud esimesed, päevad teine. Seda tüüpi vorming sõltub teie Windowsi piirkondlikest seadetest.
1. Esiteks deklareerime kolm Integer tüüpi muutujat. Üks muutuja, mida nimetame yearCount, üks muutuja, mida nimetame yearAsk, ja üks muutuja, mida nimetame i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Initsialiseerime yearCount väärtusega 0 ja yearAsk lahtri C4 väärtusega.
aastaarv = 0
yearAsk = Vahemik ("C4"). Väärtus
3. Alustame For For Next tsüklit.
I = 1 kuni 16
4. Nüüd kontrollime iga kuupäeva ja ainult siis, kui kuupäeva aasta on võrdne lahtrisse C4 sisestatud aastaga, suurendame aastaarvu 1 võrra. Kuupäeva aasta saamiseks kasutame funktsiooni Aasta.
Kui aasta (Lahtrid (i, 1) .Väärtus) = yearAsk Then
yearCount = yearCount + 1
Lõpp Kui
5. Ärge unustage silmust sulgeda.
Edasi i
6. Lõpuks kuvame kogu aasta esinemised. Kasutame operaatorit & kahe stringi ühendamiseks (ühendamiseks).
MsgBox yearCount & "sündmused aastal" & yearAsk
7. Asetage oma makro käsunuppu ja katsetage seda.
Tulemus:
Märkus. Kuna tegime muutuja yearAsk, saate lihtsalt loendada teise aasta aastajuhtumite arvu, sisestades lahtrisse C4 teise aasta ja klõpsates uuesti käsunuppu.
