Gaussian Summing of Digits!

[Zness]

In honor of Carl Friedrich Gauss I wrote a sub that sums every DIGIT (not every integer) between zero and the integer you choose. Let's take the integer 13 for example:

1+2+3+4+5+6+7+8+9+'1+0'+'1+1'+'1+2'+'1+3' = 55

or...

1+2+3...+999,999+1,000,000 = 27,000,001

Give it a try! Also, let me know what you think.... If you enjoy summing up digits Gaussian style.

-------

Option Explicit
Sub Gauss()

    Dim x As Double
    Dim y As Integer
    Dim Answer As Double
    Dim StartTime As Double
    Dim EndTime As Double
    Dim GaussNumber As Long
    
    GaussNumber = Application.InputBox("Enter an integer. Press OK to sum every DIGIT between 0 and your Integer", _
        "Integer Entry", 0)
    If GaussNumber = 0 Then Exit Sub
    If GaussNumber = 1 Then
        MsgBox "Answer = " & GaussNumber & ".... duh."
        Exit Sub
    End If
        
    StartTime = Timer
    Application.ScreenUpdating = False
    Answer = 0
    For x = 0 To GaussNumber
        Select Case x
            Case 0 To 8
                For y = 1 To Len(CStr(x))
                    Answer = Answer + CInt(Mid(CStr(x), y, 1))
                Next y
            Case 9
                Answer = Answer + 9
                GoTo AdvanceX
            Case Else
                For y = 1 To Len(CStr(x))
                    Answer = Answer + CInt(Mid(CStr(x), y, 1))
                Next y
        End Select
AdvanceX:
    Next x
    Application.ScreenUpdating = True
    EndTime = Timer
    MsgBox "It took you " & Round(EndTime - StartTime, 2) & _
        " seconds to ""GET GAUSSIAN"" witchyo digits!", vbOKOnly, "Answer = " & Answer
        
End Sub

-----

Let me know what you think!

-Zness

 

[Sixthsense]

Just for fun

Sub MyResult()
Dim n As Long, lAdd As Long, i As Long, x As Integer, sGroup As String
Dim StartTime As Double, EndTime As Double, GaussNumber As Long

GaussNumber = Application.InputBox("Enter an integer. Press OK to sum every DIGIT between 0 and your Integer", _
                "Integer Entry", 0)
StartTime = Timer

For i = 1 To GaussNumber
    sGroup = CStr(i)
    For x = 1 To Len(sGroup)
        n = n + Mid(sGroup, x, 1)
    Next x
    lAdd = lAdd + n
    n = 0
Next i
        
EndTime = Timer

MsgBox "It took you " & Format(EndTime - StartTime, "0:00") & _
" seconds to ""MyResult"" witchyo digits!", vbOKOnly, "Answer = " & lAdd
        
End Sub

 

[Zness]

Nice!

 

[XOR LX]

Couldn't resist a formula-based offering:

Array formula**:

=SUM(IFERROR(0+MID(ROW(INDIRECT("1:"&A1)),TRANSPOSE(ROW(INDIRECT("1:"&LEN(A1)))),1),0))

though it no doubt takes a bit longer to calculate on a string like 1,000,000 than either of your scripts!

Edit: in fact, I'm sure the great Carl Friedrich could probably have calculated it faster in his head than my formula!

Regards


**Array formulas are not entered in the same way as 'standard' formulas. Instead of pressing just ENTER, you first hold down CTRL and SHIFT, and only then press ENTER. If you've done it correctly, you'll notice Excel puts curly brackets {} around the formula (though do not attempt to manually insert these yourself).</SPAN></SPAN>

 

[Zness]

This Thread Is Getting Awesome! Thanks!

 

[XOR LX]

This Thread Is Getting Awesome! Thanks!

Thanks to you for starting it! Any thread title with the word "Gauss" in it is interesting in its own right!

Regards

 

[Zness]

Thanks to you for starting it! Any thread title with the word "Gauss" in it is interesting in its own right!

I'm familiar with Array formulas, how do I use/set up the formula you made?

 

[XOR LX]

I'm familiar with Array formulas, how do I use/set up the formula you made?

Well, that was simply set up to give the result for a value in A1, so you can amend if required, and also copy down to give results for other values.

Regards

 

[Zness]

Awesome! Got it. Sweet!

 

[XOR LX]

Awesome! Got it. Sweet!

No worries!