How to determine the number?

[Eric]

Does anyone have any suggestions on how to determine the number?
For example, 2584 in cell A1, then it should return 2+5+8+4=19 in cell B1.
Does anyone have any suggestions?
Thanks in advance for any suggestions
Eric

 

[Don Guillett]

Try this
Sub addupnumberdigits()
ac = ActiveCell
mysum = 0
For i = 1 To Len(ac)
mysum = mysum + Mid(ac, i, 1)
Next i
MsgBox mysum
End Sub

 

[Gary''s Student]

=LEFT(A1,1)+RIGHT(A1,1)+MID(A1,2,1)+MID(A1,3,1)

 

[Eric]

Thank everyone for any suggestions
Could you please tell me how to apply following codes?
Thanks you very much for any suggestions
Eric

 

[John C]

Here is a non-vba, non character length specific possibility. Assuming your
value is in cell A1:

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

Hope this helps.

 

[Don Guillett]

Nice

 

[Roger Govier]

Hi Eric

try
=SUMPRODUCT(--MID(A1,ROW(INDIRECT("$1:$"&LEN(A1))),1))

 

[John C]

The absolute references in the INDIRECT statement are unnecessary.

 

[Roger Govier]

Absolutely True
Comes out of habit (and does not cause a problem(bg>)