Kzoek een programma'tje voor op de computer da al de cijfers van een getal samentelt. bv.: 4263 wordt dan 4+2+6+3=15
ok, dit klinkt belachelijk, maar kzit met zo'n 100 getallen van rond de 800 cijfers die ik moet samentellen (en das nie meer zo gemakkelijk als in da voorbeeld ) 'k ken niks van programmeren, maar ik vermoed dat dit niet zo moeilijk kan zijn voor de mensen die er wel iets van afweten
note: liefst ook eentje dat over komma's heen leest
is idd ni zo moeilijk... zolang uw getal groter dan 9 is, haalt ge 't laatste cijfer er af door mod 10 te doen, ge telt da op bij de som, trekt da cijfer ook van de getal af, deelt dan uw getal door 10 en ge begint uw lus opnieuw...
Dim IntLengte As Integer Dim IntTeller As Integer Dim IntI As Integer Dim IntSom As Integer Dim IntGetal As Integer
Dim StrCel As String
StrCel = "A1" 'gewoon effe zorgen dat hij kan beginnen IntTeller = 1
Do While Range(StrCel).Value <> "" IntLengte = Len(Range(StrCel).Value) For IntI = 1 To IntLengte IntGetal = Mid(Range(StrCel).Value, IntI, 1) If IsNumeric(IntGetal) Then IntSom = IntSom + IntGetal End If Next IntI IntTeller = IntTeller + 1 StrCel = "A" & IntTeller Loop
(en das nie meer zo gemakkelijk als in da voorbeeld 
)
