Geheel getal opsplitsen in cijfers en vervolgens deze optellen

[StefanMartens]

Hallo iedereen

Ik hoop dat iemand mij kan helpen zit al uren te zoeken naar de oplossing voor een opdracht in VBA
een geheel getal wordt de parameter en dit getal moet opgesplitst worden in cijfers en vervolgens moeten deze opgeteld worden
een voorbeeld: 51235 moet worden 5+1+2+3+5 als tip hadden we gekregen dat we deze functie konden gebruiken
Function aantalCijfers(getal As Long) As Integer
**Dim tekst As String
**tekst = getal
**aantalCijfers = Len(tekst)
End Function

Kan iemand mij aub helpen, ik word echt wel lichtjes gek

alvats bedankt

 

[StefanMartens]

euhm nee dat zou 5+1+2+3+5 = 16 zijn
en bedankt dat je wilt helpen!

 

[edmoor]

Ik had hem al weer verwijderd omdat er iets niet goed ging. Ik kijk nog even

Probeer deze maar eens:

Function aantalCijfers(getal As Long) As Integer
    Dim i As Integer
    
    For i = 1 To Len(Trim(Str(getal)))
        aantalCijfers = aantalCijfers + Mid(getal, i, 1)
    Next i
End Function

Daarnaast zou ik de functie niet aantalCijfers noemen maar bijvoorbeeld somGetal.

 

[Cobbe]

Deze is al eens voorbij gekomen.
Liefst 4 oplossingen.

 

[StefanMartens]

Jah het werkt!
heel fel bedankt Edmoor
en die herleiden oefening gaat me ook nog wat kunnen helpen

zou u misschien ook even de de denkwijze kunnen vertellen, uiteindelijk zal ik het toch zelf moeten kunnen
misschien in verschillende stappen zodat
* eerst het geheel getal kan geinterpreteerd worden als aparte cijfertjes

dat gebeurde denk ik met deze functie (tip van de prof deze functie gebruiken):

Function aantalCijfers(getal As Long) As Integer
**Dim tekst As String
**tekst = getal
**aantalCijfers = Len(tekst)
End Function

* En vervolgens dat die cijfertjes apart gebruikt kunnen worden om ermee te rekenen

In ieder geval al hartelijk bedankt, ik apprecieer het echt enorm

 

[edmoor]

Er zijn geen andere variabelen nodig dan alleen de i die als teller fungeert.
De parameter met de naam getal wordt door Excel gevuld en is in je voorbeeld het getal 51235.
Str(getal) converteert de inhoud van numeriek naar string.
Trim haalt een eventuele voorloop spatie weg.
Len bepaalt de lengte van de string, in dit geval is dat 5.
Mid haalt in dit geval per positie 1 cijfer uit het getal en telt die op bij de vorige.

 

[snb]

Om het nog maar niet eens te hebben over:

Function F_snb(c00)
   F_snb = Evaluate(Format(c00, Replace(space(Len(c00)), " ", "+@")))
End Function

 

[edmoor]

Keurig. Maar ik heb het gevoel dat die zelfs voor de prof van Stefan te hoog gegrepen is

Die van mij kan ook iets eenvoudiger door de parameter als string in te nemen in plaats van een long.
Dat doet Evaluate tenslotte ook:

Function SomGetal(getal As String) As Integer
    Dim i As Integer
    
    For i = 1 To Len(getal)
        SomGetal = SomGetal + Mid(getal, i, 1)
    Next i
End Function

 

[snb]

@edmoor

Je hebt gelijk, hij kon nog iets eenvoudiger.

 

[sylvester-ponte]

{=som(als.fout(--deel(a3;rij($1:$50);1);0))}

 

[snb]

{=sum(--mid(a3;row(offset(a1;;;len(a3)));1))}