Strona 1 z 1

[SOLVED] Zliczanie cyfr z jednej komórki

: wt maja 04, 2010 2:10 am
autor: 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ć??

Re: Zliczanie cyfr z jednej komórki

: wt maja 04, 2010 5:17 pm
autor: 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)

Re: Zliczanie cyfr z jednej komórki

: wt maja 04, 2010 5:21 pm
autor: 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 :)