summing numbers with in a cell

T

the-charles

in cell a1 i have 4099227911503, i know that if i add these numbers up
the sum would be 52. how do i write a formula that will do the sam
thing. i need to add the numbers with in the cell so that i can do
mod 10 to get the check digit. i am creating a data base for mergin
with envelopes and i need to put the planet code "a1" with a chec
digi
 
D

dominicb

Good evening the-charles

This function will add up all the numbers in a cell, provided it is
applied to a numeric cell. Once pasted into your VBE use it like you
would a formula, thus:

=Adder(A1) will perform the operation on cell A1.

Function Adder(InThis)
d = 0
a = Len(InThis)
For b = 1 To a
c = Mid(InThis, b, 1)
d = d + c
Next b
Adder = d
End Function

HTH

DominicB
 
D

DNA

Do you mean within a series of cells, like A1 thru A60? If so, using this
example, in let's say A62 place @SUM(A1:A60).

HTH
 
R

Ron Rosenfeld

in cell a1 i have 4099227911503, i know that if i add these numbers up,
the sum would be 52. how do i write a formula that will do the same
thing. i need to add the numbers with in the cell so that i can do a
mod 10 to get the check digit. i am creating a data base for merging
with envelopes and i need to put the planet code "a1" with a check
digit
Click to expand...

You may use this array formula:

=SUM(--MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))

To enter an array formula, after typing or pasting it into the formula bar,
hold down <ctrl><shift> while hitting <enter>. Excel will place braces {...}
around the formula.


--ron
 
Top