Im Folgenden werden wir ein Programm in Excel VBA suchen, die die Anzahl der Jahre Vorkommen zählt.

Situation:

Year Occurrences in Excel VBA

Hinweis: Daten sind in US-Format. Monate ersten, zweiten Tage. Diese Art von Format ist abhängig von Ihrer Windows-Ländereinstellungen.

  1. Zuerst erklären wir drei Variablen vom Typ Integer. Eine Variable, die wir yearCount nennen, eine Variable, die wir yearAsk nennen, und eine Variable, die wir nennen i.

Dim yearCount As Integer, yearAsk As Integer, i As Integer

  1. Wir initialisieren yearCount mit dem Wert 0 und yearAsk mit dem Wert der Zelle C4.

yearCount = 0

yearAsk = Range("C4").Value

  1. Wir beginnen eine For Next-Schleife.

For i = 1 To 16

  1. Wir haben jetzt jeden Tag prüfen und nur dann, wenn das Jahr des Datums entspricht das eingegebenen Jahr in Zelle C4, wir Schritt yearCount um 1. Wir verwenden das Jahr Funktion das Jahr ein Datum zu erhalten.

If year(Cells(i, 1).Value) = yearAsk Then

yearCount = yearCount + 1

End If

  1. Vergessen Sie nicht, um die Schleife zu schließen.

Next i

  1. Schließlich zeigen wir das Gesamtjahr Vorkommen. Wir verwenden den Operator & verketten (verbinden) zwei Strings.

MsgBox yearCount & " occurrences in year " & yearAsk

  1. Legen Sie das Makro in einer Befehlsschaltfläche und testen.

Ergebnis:

Year Occurrences Result

Hinweis: weil wir yearAsk variabel gemacht, können Sie einfach die Anzahl der Jahre Vorkommen eines weiteren Jahres zählen, indem ein weiteres Jahr in Zelle C4 eingeben und wieder auf die Schaltfläche klicken.