Níže se podíváme na program v Excel VBA který počítá počet roční výskyty.
Situace:
Poznámka: Data jsou ve formátu USA. První měsíce, druhé dny. Tento typ formátu závisí na místním nastavení systému Windows.
1. Nejprve deklarujeme tři proměnné typu Integer. Jedna proměnná, které říkáme yearCount, jedna proměnná, které říkáme yearAsk, a jedna proměnná, které říkáme i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Inicializujeme yearCount s hodnotou 0 a yearAsk s hodnotou buňky C4.
yearCount = 0
yearAsk = Range ("C4"). Hodnota
3. Spustíme smyčku For Next.
Pro i = 1 až 16
4. Nyní zkontrolujeme každé datum a pouze v případě, že se rok data rovná zadanému roku v buňce C4, zvýšíme yearCount o 1. Pomocí funkce Year získáme rok data.
If year (Cells (i, 1) .Value) = yearAsk Then
yearCount = yearCount + 1
Konec If
5. Nezapomeňte uzavřít smyčku.
Příště já
6. Nakonec zobrazíme celkový počet výskytů za rok. Ke zřetězení (spojení) dvou řetězců používáme operátor &.
MsgBox yearCount & "výskyty v roce" & yearAsk
7. Umístěte makro do příkazového tlačítka a otestujte ho.
Výsledek:
Poznámka: protože jsme vytvořili proměnnou yearAsk, můžete jednoduše spočítat počet výskytů roku v jiném roce zadáním dalšího roku do buňky C4 a opětovným kliknutím na příkazové tlačítko.
