Az alábbiakban megnézzük a programot Excel VBA ez számolja a évi események.
Helyzet:
Megjegyzés: A dátumok amerikai formátumban vannak megadva. Első hónap, második nap. Ez a formátum a Windows regionális beállításaitól függ.
1. Először három Integer típusú változót deklarálunk. Egy változót hívunk yearCount -nak, egy változót yearAsk -nak, és egy változót i -nek.
Halvány évCount As Integer, yearAsk As Integer, i As Integer
2. Inicializáljuk az yearCount értékét 0 értékkel, az yearAsk értéket pedig a C4 cella értékével.
évszám = 0
yearAsk = Tartomány ("C4"). Érték
3. Elindítjuk a For Next ciklusát.
I = 1 és 16 között
4. Most minden dátumot ellenőrzünk, és csak akkor, ha a dátum éve megegyezik a C4 cellában megadott évvel, akkor az yearCount értéket 1 -gyel növeljük. Az Év függvény segítségével dátumot kapunk.
Ha év (Cellak (i, 1) .Érték) = yearAsk Then
yearCount = yearCount + 1
Vége Ha
5. Ne felejtse el lezárni a hurkot.
Következő i
6. Végül megjelenítjük a teljes év előfordulásai számát. A & operátort használjuk két karakterlánc összefűzésére (összekapcsolására).
MsgBox yearCount & "események évben" & yearAsk
7. Helyezze a makrót egy parancsgombba, és próbálja ki.
Eredmény:
Megjegyzés: mivel a yearAsk változót készítettük, egyszerűen megszámolhatja egy másik év eseményeinek számát, ha beír egy másik évet a C4 cellába, majd ismét rákattint a parancsgombra.