Addieren Sie die Ziffern Zahlen in einer Zelle mithilfe von benutzerdefinierten VBA-Funktion in Microsoft Excel
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.
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.
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]