/ / Summe nach Farbe in Excel VBA

Summe nach Farbe in Excel VBA

Unten sehen wir uns ein Programm in Excel VBA Das summiert Zahlen nach Farbe.

Situation:

Sie haben Geld an zwei zwölf Personen verliehen. Einige Leute haben es zurück gegeben (in schwarz) und einige schulden dir noch Geld (rot). Sie möchten wissen, wie viel Geld Sie noch erhalten.

Summe nach Farbe in Excel VBA

1. Zuerst deklarieren wir zwei Variablen vom Typ Integer. Einer namens toReceive und einer mit dem Namen 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.

For i = 1 To 12

3. Wir überprüfen nun jede Zahl und nur wenn die Farbe der Zahl rot ist, fügen wir die Zahl zu ToReceive hinzu.

If Cells(i, 1).Font.Color = vbRed Then
    toReceive = toReceive + Cells(i, 1).Value
End If

4. Vergessen Sie nicht, die Schleife zu schließen.

Next i

5. Schließlich zeigen wir das Geld noch zu erhalten. Wir verwenden den Operator & zum Verketten (Verbinden) von zwei Strings. Obwohl toReceive keine Zeichenfolge ist, funktioniert es hier.

MsgBox "Still to receive " & toReceive & " dollars"

6. Platzieren Sie Ihr Makro in eine Befehlsschaltfläche, und testen Sie es.

Ergebnis:

Summe nach Farbe Ergebnis

Lesen Sie auch: