ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Adding digits in a single cell (https://www.excelbanter.com/excel-worksheet-functions/71504-adding-digits-single-cell.html)

stevo

Adding digits in a single cell
 

Is it possible to total the number of digits in a single cell? e.g. if a
cell contains the number 23456 can you put a maths function in another
cell to display the total i.e 20? Many thanks.


--
stevo
------------------------------------------------------------------------
stevo's Profile: http://www.excelforum.com/member.php...o&userid=10737
View this thread: http://www.excelforum.com/showthread...hreadid=512178


Bob Phillips

Adding digits in a single cell
 
Here you go

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

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"stevo" wrote in
message ...

Is it possible to total the number of digits in a single cell? e.g. if a
cell contains the number 23456 can you put a maths function in another
cell to display the total i.e 20? Many thanks.


--
stevo
------------------------------------------------------------------------
stevo's Profile:

http://www.excelforum.com/member.php...o&userid=10737
View this thread: http://www.excelforum.com/showthread...hreadid=512178




broro183

Adding digits in a single cell
 

Hi Stevo,

I've just adapted this from a user defined function (UDF) that sorts
the digits in a cell
(http://www.excelforum.com/showthread.php?t=507991).

To use this UDF, press [alt + F11], [ctrl + R], go to Insert - Module,
& paste the following in:


Function sum_digits(s As String) As Long
Application.Volatile 'This forces the function to update
Dim i As Long
For i = 1 To Len(s)
sum_digits = sum_digits + Mid(s, i, 1)
Next i
End Function

Now, if your # (eg 23456) that you want to sum is in A1, enter
"=sum_digits(A1)" into cell B2 & you should see 20 appear in cell B1.


For more tips/background & a link see:
http://www.excelforum.com/showthread.php?t=507919, &
http://www.excelforum.com/showthread...ion.Vola tile


hth,
Rob Brockett
NZ
Always learning & the best way to learn is to experience...


--
broro183
------------------------------------------------------------------------
broro183's Profile: http://www.excelforum.com/member.php...o&userid=30068
View this thread: http://www.excelforum.com/showthread...hreadid=512178



All times are GMT +1. The time now is 04:59 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com