In dit artikel zullen we een aangepaste functie maken om de som van cijfers in een cel te berekenen.
Voorbeeldgegevens voor dit voorbeeld bestaan uit verkoopgegevens. Elke agent heeft een ander product verkocht. In een cel hebben we het aantal verkochte artikelen gevolgd door de productnaam. We willen het totale item vinden dat door elke agent is verkocht.
We hebben de functie "SumDigits" gemaakt om de som van cijfers in de cel te berekenen. Deze functie neemt het celbereik als invoer en retourneert de som van de cijfers in de cel.
Logische uitleg
We hebben een aangepaste functie "SumDigits" gemaakt om de som van cijfers in een cel te berekenen. In deze functie vinden we de lengte van de tekenreeks in de cel en lopen we van het eerste teken naar het laatste teken in de tekenreeks. Vervolgens zoeken en voegen we de numerieke waarden in de tekenreeks toe om de som van de cijfers te krijgen.
Code uitleg
Midden(Getal, i, 1)
De functie Mid wordt gebruikt om de substring uit de hoofdstring te extraheren. Bovenstaande code haalt één teken per keer uit de hoofdreeks.
IsNumeriek(Waarde)
De functie IsNumeriek wordt gebruikt om te controleren of de opgegeven waarde numeriek is.
Val (Waarde)
De functie Val wordt gebruikt om de tekenreeks om te zetten in een numerieke waarde.
Volg hieronder voor de code:
Optie Expliciete functie SumDigits(Getal als variant) Dim i As Integer For i = 1 To Len(getal) If IsNumeric(Mid(Getal, i, 1)) Dan SumDigits = SumDigits + Val(Mid(Getal, i, 1)) Einde als volgende i Einde functie
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite