Excel VBA运行总和功能

Question

我有一个UDF，它试图将一列数字的运行总和制成表格。 如果A列是我的数据，B列是UDF的输出，则它看起来像：

Column A | Column B
5        | 5
10       | 15
1000     | 1015

等等。

这是我的代码：

Option Explicit
Public Function runningSum(myCell As range) As Integer

Dim rowNum As Integer
Dim colNum As Integer
Dim tempSum As Integer
Dim i As Integer
Dim ws As Worksheet

rowNum = myCell.row
colNum = myCell.Column
tempSum = 0
Set ws = ActiveSheet

With ws
    For i = 1 To rowNum
        tempSum = tempSum + ws.Cells(i, colNum).Value
    Next i
    runningSum = tempSum
End With
Exit Function

End Function

我遇到的问题是：在第39次及以后的每次迭代中，我都遇到#VALUE错误。 请帮助？ 谢谢

Answer 1

您的数字似乎太大了，无法容纳integer 。 尝试将数据类型切换为long