[SOLVED] Zliczanie cyfr z jednej komórki

[Olbi]

Witam
Mam pewien, mały problem. Otóż nie potrafię nigdzie znaleźć funkcji, która będzie mi zliczała sumę cyfr liczby z danej komórki.
Przykład:
Wpisałem liczbę 123. W innej komórce chcę zliczyć sumę jej cyfr, czyli 1+2+3=6.
Jak to zrobić??

[mg2]

Kod: Zaznacz cały

function sumcyfr(s as string) as long
dim i as long
dim sum as long

sum = 0

for i = 1 to len(s)
  sum = sum + val(mid(s, i, 1))
next i
sumcyfr = sum
end function

W arkuszu:
a1 = 123
a2 = sumcyfr(a1)

[Olbi]

Hejka
Dzięki za odpowiedź. Na szczęście na innym forum dali mi podobne rozwiązanie Jest jeszcze taki sposób:

Kod: Zaznacz cały

=SUMA(WARTOŚĆ(MID(A1;1;1));WARTOŚĆ(MID(A1;2;1));WARTOŚĆ(MID(A1;3;1)))

Ale i tak dzięki za pomoc