Poniżej przyjrzymy się programowi w Excel VBA to liczy liczbę rok zdarzeń.
Sytuacja:
Uwaga: Daty są w formacie amerykańskim. Miesiące pierwsze, dni drugie. Ten typ formatu zależy od ustawień regionalnych systemu Windows.
1. Najpierw deklarujemy trzy zmienne typu Integer. Jedną zmienną nazywamy yearCount, jedną zmienną yearAsk i jedną zmienną nazywamy i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Inicjujemy yearCount wartością 0 i yearAsk wartością komórki C4.
liczba lat = 0
rokAsk = Zakres("C4").Wartość
3. Rozpoczynamy pętlę For Next.
Dla i = 1 do 16
4. Teraz sprawdzamy każdą datę i tylko jeśli rok w dacie jest równy rokowi wpisanemu w komórce C4, zwiększamy yearCount o 1. Używamy funkcji Year, aby uzyskać rok daty.
Jeśli rok(Komórki(i, 1)).Wartość) = rokZapytaj Wtedy
yearCount = yearCount + 1
Zakończ, jeśli
5. Nie zapomnij zamknąć pętli.
Dalej ja
6. Na koniec wyświetlamy całkowitą liczbę wystąpień w roku. Używamy operatora & do łączenia (połączenia) dwóch ciągów.
MsgBox yearCount & "wystąpienia w roku" & yearAsk
7. Umieść swoje makro w przycisku polecenia i przetestuj je.
Wynik:
Uwaga: ponieważ utworzyliśmy zmienną yearAsk, możesz po prostu policzyć liczbę wystąpień roku innego roku, wprowadzając kolejny rok w komórce C4 i ponownie klikając przycisk polecenia.