In diesem Artikel erstellen wir eine benutzerdefinierte Funktion zum Berechnen der Ziffernsumme in einer Zelle.

Beispieldaten für dieses Beispiel bestehen aus Verkaufsdaten. Jeder Agent hat ein anderes Produkt verkauft. In einer Zelle haben wir die Anzahl der verkauften Artikel, gefolgt vom Produktnamen. Wir möchten den Gesamtbetrag der von jedem Agenten verkauften Artikel ermitteln.

ArrowRaw

Wir haben die Funktion „SumDigits“ erstellt, um die Summe der Ziffern in der Zelle zu berechnen. Diese Funktion verwendet den Zellenbereich als Eingabe und gibt die Summe der Ziffern in der Zelle zurück.

ArrowOutput

Logische Erklärung

Wir haben eine benutzerdefinierte Funktion „SumDigits“ erstellt, um die Summe der Ziffern in einer Zelle zu berechnen. In dieser Funktion ermitteln wir die Länge der Zeichenfolge in der Zelle und durchlaufen dann eine Schleife vom ersten zum letzten Zeichen in der Zeichenfolge. Dann finden und addieren wir die in der Zeichenfolge gefundenen numerischen Werte, um die Summe der Ziffern zu erhalten.

Code Erklärung

Mid (Number, i, 1)

Die Mid-Funktion wird verwendet, um die Unterzeichenfolge aus der Hauptzeichenfolge zu extrahieren.

Der obige Code extrahiert jeweils ein Zeichen aus der Hauptzeichenfolge.

IsNumeric (Wert)

Mit der Funktion IsNumeric wird überprüft, ob der angegebene Wert numerisch ist.

Wert (Wert)

Die Val-Funktion wird verwendet, um die Zeichenfolge in einen numerischen Wert umzuwandeln.

Bitte folgen Sie unten für den Code

Option Explicit

Function SumDigits(Number As Variant)

Dim i As Integer

For i = 1 To Len(Number)

If IsNumeric(Mid(Number, i, 1)) Then

SumDigits = SumDigits + Val(Mid(Number, i, 1))

End If

Next i

End Function

Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]