excel - 整数平方和的溢出错误

Question

我正在尝试用 VBA 对平方求和。

当 i = 182 和 sum = 1992991 时出现溢出错误。

我希望声明 sum as long 可以处理大数字。

Sub NaturalNumbers()

Dim i As Integer
Dim sum As Long

sum = 0

For i = 1 To 1000
    sum = sum + (i * i)

    Range("A" & i) = i
    Range("D" & i) = sum
Next

MsgBox "Sum is " & sum

End Sub

标签： excelvba