Excel question - I'm stuck

Reply #6

Bandito — Sun, 13 Jul 2008 14:45:59 GMT

Thanks time*treat, that did it... and thanks to everyone who offered help.. appreciate it.

Reply #5

time*treat — Sun, 13 Jul 2008 08:55:28 GMT

...slight variation of WSLS's work (this is good unless you're adding the digits of excessively large numbers...)

Function SumDigits(Number)

Dim i As Integer, fake__sum As Integer

While Number 9

fake__sum = 0

For i = 1 To Len(Number)

fake__sum = fake__sum + Val(Mid(Number, i, 1))

Next i

Number = fake__sum

Wend

SumDigits = fake__sum

End Function

to use, type in =SumDigits(number) in any cell, or call from other precedures.

Reply #4

Texas MadMan — Sun, 13 Jul 2008 05:54:29 GMT

Just use any of the above suggestions to create a total for cell A1 in cell B1, then use it again to total cell B1 and put that in cell C1 (or whatever format works for you) If you don't want to see the intermediate values you can hide those columns.

Reply #3

lottogg — Sun, 13 Jul 2008 05:36:56 GMT

click on cell you want total value in and enter this command =sum(9,5) for every additional number in cell just add a comma between them.

Reply #2

Bandito — Sun, 13 Jul 2008 03:53:54 GMT

Thanks winsumloosesum, that works but it dosen't do exactly what I'm looking for..

for example, I enter the VB formula (Sumdigits) into my spreadsheet and it adds the digits

in the cell. Say I have 95 in A1.. the formula does return 14. But I'm looking for a formula which would

return 5... 9+5=14, then adding 1+4 to get 5. Looking for a single formula which would do this???

Thanks,

Bandito.

Reply #1

winsumloosesum — Sun, 13 Jul 2008 03:40:44 GMT

Bandito,

Try this:

Open Excel

Press Alt+F11 to open Visual Basic Editor (VBE). From the Insert menu, select Module (to add a module). Copy and Paste the following lines of code into the module (Blank box on the right side):

Function SumDigits(Number)

Dim i As Integer

For i = 1 To Len(Number)

SumDigits = SumDigits + Val(Mid(Number, i, 1))

Next i

End Function

Close the Visual Basic Editor.

To test the function:

To test the function, open Paste Functio... [ More ]

Excel question - I'm stuck

Bandito — Sun, 13 Jul 2008 01:55:45 GMT

Hey everyone,

Newbie here to the forum.. I am stuck on a Excel problem. I have read the posts and see that Rakster has some similar questions on this topic, I tried the suggestions he was offered.. they work to a degree but not to the level I need.. here is my problem:

I would like to add the digits of a two or three digit number within a cell... for example:

a two digit number say 94 in A1.. those two digits added together, 9+4=13. I would like to further add

13, 1+3=4.. Same f... [ More ]