Falls Sie sich fragen, wie Sie nur positive und eindeutige Werte hinzufügen können, ist dieser Artikel für Sie.
In diesem Artikel erfahren Sie, wie Sie mit VBA-Code nur eindeutige positive Werte in Excel hinzufügen.
Frage): Ich möchte, dass ein Makro alle eindeutigen positiven Zahlen in einem angegebenen Bereich summiert, der negative und positive Zahlen umfasst.
Im Folgenden sehen Sie die Momentaufnahme der Daten, die wir haben:
Wir müssen die folgenden Schritte ausführen:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie aus der Gruppe Code die Option Visual Basic
Geben Sie im Standardmodul folgenden Code ein:-
Funktion AddUnique(ByRef inputrange As Range, _
Optional IgnoreText As Boolean = True, _
Optional IgnoreError As Boolean = True, _
Optional IgnoreNegativenumbers As Boolean = True)
Dim differentnumbers As Double
Zelle als Bereich dimmen
Dim dict als Objekt
Set dict = CreateObject("Scripting.dictionary")
eindeutigeZahlen = 0
Für jede Zelle in inputrange.Resize(inputrange.Rows.Count, 1)
cval = cell.Value
Wenn Text ignorieren, dann
Wenn nicht (VBA.IsNumeric(cval)) Then cval = 0
Anders
AddUnique = CVErr(0)
Exit-Funktion
Ende Wenn
Wenn Fehler ignorieren Dann
Wenn IsError(cval) Dann cval = 0
Anders
AddUnique = CVErr(1)
Exit-Funktion
Ende Wenn
Wenn Negative Zahlen ignorieren Dann
Wenn cval < 0 Dann cval = 0
Anders
AddUnique = CVErr(2)
Exit-Funktion
Ende Wenn
Wenn nicht dict.Exists(cval) Then
dict.Add cval, cval
eindeutigeZahlen = eindeutigeZahlen + cval
Ende Wenn
Nächste
AddUnique = eindeutigeZahlen
Endfunktion
- In Zelle C2 wäre die Formel
- =Einzigartiges hinzufügen(A2:A6)
- Um zu überprüfen, ob der Code wiederholte Werte ignoriert oder nicht; Lassen Sie uns den Wert in Zelle A1 auf 50 ändern und das Ergebnis sehen.
Auf diese Weise können wir durch Makrocode eindeutige positive Werte hinzufügen.
Download-Beispieldatei-xlsm