Žemiau apžvelgsime programą Excel VBA kuris skaičiuoja metų įvykiai.
Situacija:
Pastaba: datos nurodytos JAV formatu. Pirmieji mėnesiai, antros dienos. Šio tipo formatas priklauso nuo jūsų regioninių „Windows“ nustatymų.
1. Pirma, deklaruojame tris Integer tipo kintamuosius. Vieną kintamąjį vadiname „yearCount“, vieną - „yearAsk“ ir vieną kintamąjį vadiname „i“.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Inicijuojame „yearCount“ reikšme 0, o „yearAsk“ - ląstelės C4 vertę.
yearCount = 0
yearAsk = Diapazonas ("C4"). Vertė
3. Mes pradedame „For Next“ ciklą.
Jei i = nuo 1 iki 16
4. Dabar tikriname kiekvieną datą ir tik tuo atveju, jei datos metai yra lygūs C4 langelyje įvestiems metams, metų skaičių skaičiuojame 1. Mes naudojame metų funkciją datos metams gauti.
Jei metai (Ląstelės (i, 1) .Vertė) = metaiKlauskite Tada
yearCount = yearCount + 1
Pabaiga Jei
5. Nepamirškite uždaryti kilpos.
Kitas I.
6. Galiausiai parodome visus metų įvykius. Mes naudojame & operatorių, kad sujungtume (sujungtume) dvi eilutes.
„MsgBox yearCount“ ir „įvykiai metais“ & yearAsk
7. Įdėkite makrokomandą į komandų mygtuką ir išbandykite.
Rezultatas:
Pastaba: kadangi sukūrėme „yearAsk“ kintamąjį, galite tiesiog suskaičiuoti kitų metų įvykių skaičių įvesdami kitus metus į langelį C4 ir dar kartą spustelėdami komandos mygtuką.
