nur eindeutige positive Werte hinzu Wenn Sie sich fragen, wie Sie nur positive und eindeutige Werte hinzufügen können, ist dieser Artikel genau das Richtige 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 unterschiedlichen positiven Zahlen in einem bestimmten Bereich summiert, der negative und positive Zahlen enthält.

Es folgt die Momentaufnahme der Daten, die wir haben:

image 1

Wir müssen die folgenden Schritte ausführen:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

image 2

aus Geben Sie im Standardmodul den folgenden Code ein: –

Funktion AddUnique (ByRef-Eingabebereich als Bereich, _

Optional IgnoreText As Boolean = True, _

Optional IgnoreError As Boolean = True, _

Optional IgnoreNegativenumbers As Boolean = True)

Unterscheidungsnummern als doppelt dimmen

Zelle als Bereich dimmen

Dim dict As Object

Set dict = CreateObject („Scripting.dictionary“)

eindeutige Nummern = 0

Für jede Zelle in inputrange.Resize (inputrange.Rows.Count, 1)

cval = cell.Value

Wenn IgnoreText Dann

Wenn nicht (VBA.IsNumeric (cval)) Dann ist cval = 0

Sonst

AddUnique = CVErr (0)

Exit Function

End If

===

Wenn IgnoreError Dann

Wenn IsError (cval) Dann ist cval = 0

Sonst

AddUnique = CVErr (1)

Exit Function

End If

Wenn IgnoreNegativenumbers Dann

Wenn cval <0, dann cval = 0

Sonst

AddUnique = CVErr (2)

Exit Function

End If

Wenn nicht dict.Exists (cval) Dann

dict.Add cval, cval

eindeutige Nummern = eindeutige Nummern + cval

End If

Weiter

AddUnique = eindeutige Nummern

End Function

image 4

  • In Zelle C2 wäre die Formel

* = AddUnique (A2: A6)

image 5

  • 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.

image 6

Auf diese Weise können wir durch Makrocode unterschiedliche positive Werte hinzufügen.

Excel//wp-content/uploads/2015/06/Download-Sample-File-xlsm.xlsm[Download-Sample File-xlsm]