Im Folgenden werden wir ein Programm in Excel VBA suchen, die Zahlen, die durch Farbe summiert.

Situation:

Sie haben Geld, um zwei zwölf Personen leihen. Einige Leute haben es zurück gegeben (in schwarz) und einige noch schulde Ihnen Geld (rot). Sie wollen wissen, wie viel Geld Sie noch erhalten.

Sum by Color in Excel VBA

  1. Zuerst erklären wir zwei Variablen vom Typ Integer. Eine benannte toReceive und ein i genannt. Wir initialisieren die Variable toReceive mit dem Wert 0

Dim toReceive As Integer, i As

Integer

toReceive = 0

  1. Zweitens starten wir eine For Next-Schleife.

For i = 1 To 12

  1. Wir haben jetzt jede Nummer überprüfen und nur, wenn die Farbe der Zahl ist, dass wir die Nummer toReceive rot hinzuzufügen.

If Cells(i, 1).Font.Color = vbRed Then

toReceive = toReceive + Cells(i, 1).Value

End If

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

Next i

  1. Schließlich haben wir das Geld zeigen nach wie vor zu erhalten. Wir verwenden den Operator & verketten (verbinden) zwei Strings. Obwohl toReceive ist kein String es hier funktioniert.

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

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

Ergebnis:

Sum by Color Result