Im Folgenden sehen wir uns ein Programm in an Excel VBA das zählt die anzahl von Jahr Vorkommnisse.
Lage:
Hinweis: Die Daten sind im US-Format. Monate zuerst, Tage dann. Diese Art von Format hängt von Ihren Windows-Regionaleinstellungen ab.
1. Zuerst deklarieren wir drei Variablen vom Typ Integer. Eine Variable nennen wir yearCount, eine Variable nennen wir yearAsk und eine Variable nennen wir i.
Dim yearCount As Integer, yearAsk As Integer, i As Integer
2. Wir initialisieren yearCount mit dem Wert 0 und yearAsk mit dem Wert von Zelle C4.
JahrAnzahl = 0
yearAsk = Range("C4").Value
3. Wir starten eine For Next-Schleife.
Für i = 1 bis 16
4. Wir überprüfen jetzt jedes Datum und nur wenn das Jahr des Datums dem eingegebenen Jahr in Zelle C4 entspricht, erhöhen wir yearCount um 1. Wir verwenden die Funktion Year, um das Jahr eines Datums zu erhalten.
Wenn year(Cells(i, 1).Value) = yearAsk Then
JahrAnzahl = JahrAnzahl + 1
Ende Wenn
5. Vergessen Sie nicht, die Schleife zu schließen.
Als nächstes
6. Schließlich zeigen wir die Gesamtjahresvorkommen an. Wir verwenden den &-Operator, um zwei Strings zu verketten (zu verbinden).
MsgBox yearCount & " Vorkommen im Jahr " & yearAsk
7. Platzieren Sie Ihr Makro in einer Befehlsschaltfläche, und testen Sie es.
Ergebnis:
Hinweis: Da wir die Variable yearAsk erstellt haben, können Sie einfach die Anzahl der Jahresvorkommen eines anderen Jahres zählen, indem Sie ein weiteres Jahr in Zelle C4 eingeben und erneut auf die Befehlsschaltfläche klicken.
