Nižšie sa pozrieme na program v Excel VBA ktorý počíta počet ročné výskyty.
Situácia:
Poznámka: Dátumy sú vo formáte USA. Mesiace prvé, dni druhé. Tento typ formátu závisí od regionálnych nastavení systému Windows.
1. Najprv deklarujeme tri premenné typu Integer. Jedna premenná, ktorú nazývame yearCount, jedna premenná, ktorú nazývame yearAsk, a jedna premenná, ktorú nazývame i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Inicializujeme yearCount s hodnotou 0 a yearAsk s hodnotou bunky C4.
yearCount = 0
yearAsk = Rozsah ("C4"). Hodnota
3. Spustíme slučku For Next.
Pre i = 1 až 16
4. Teraz skontrolujeme každý dátum a iba vtedy, ak sa dátum dátumu rovná zadanému roku v bunke C4, zvýšime yearCount o 1. Na získanie roku dátumu použijeme funkciu Year.
If year (Cells (i, 1) .Value) = yearAsk Then
yearCount = yearCount + 1
Koniec Ak
5. Nezabudnite uzavrieť slučku.
Ďalej i
6. Nakoniec zobrazíme celkový počet výskytov za rok. Operátor & používame na zreťazenie (spojenie) dvoch reťazcov.
MsgBox rokPočet & "výskyty v roku" & yearAsk
7. Umiestnite makro do príkazového tlačidla a otestujte ho.
Výsledok:
Poznámka: Pretože sme urobili premennú yearAsk, môžete jednoducho spočítať počet výskytov roku v inom roku tak, že do bunky C4 zadáte ďalší rok a znova kliknete na príkazové tlačidlo.
