Im Folgenden sehen wir uns ein Programm in an Excel VBA das summiert Zahlen nach Farbe.
Lage:
Sie haben zwei zwölf Personen Geld geliehen. Manche Leute haben es zurückgegeben (in schwarz) und manche schulden dir noch Geld (rot). Sie möchten wissen, wie viel Geld Sie noch erhalten.
1. Zuerst deklarieren wir zwei Variablen vom Typ Integer. Eine namens toReceive und eine namens i. Wir initialisieren die Variable toReceive mit dem Wert 0.
Dim toReceive As Integer, i As Integer
toReceive = 0
2. Zweitens starten wir eine For Next-Schleife.
Für i = 1 bis 12
3. Wir überprüfen jetzt jede Zahl und nur wenn die Farbe der Zahl rot ist, fügen wir die Zahl zu toReceive hinzu.
Wenn Zellen(i, 1).Font.Color = vbRed Then
toReceive = toReceive + Cells(i, 1).Value
Ende Wenn
4. Vergessen Sie nicht, die Schleife zu schließen.
Als nächstes
5. Schließlich zeigen wir das noch zu empfangende Geld an. Wir verwenden den &-Operator, um zwei Strings zu verketten (zu verbinden). Obwohl toReceive kein String ist, funktioniert es hier.
MsgBox "Noch zu erhalten " & toReceive & " Dollar"
6. Platzieren Sie Ihr Makro in einer Befehlsschaltfläche und testen Sie es.
Ergebnis:
