如何检索由函数占用的单元格的值，而不仅仅是使用 .value 的数字

Question

我想做的是创建一个函数，让我可以查看一个范围并计算哪些单元格被一个数字占用。

完成此操作后，我将总结可以看到的前 30 个数字，而不仅仅是该范围内的前 30 个单元格。我通过询问它是否大于 0 来做到这一点，这意味着它是一个数字而不是空格。

我的代码如下所示

Function cum(days_cum As Double, col_number As Double) As Double
Dim count As Long, sum As Double, i As Integer, number As Double
count = 0
For i = 15 To 1050
    number = Cells(i, col_number).Value
    If number > 0 Then
        count = count + 1
        sum = sum + number
        If count <= days_cum Then
        cum = sum
    End If
    End If
Next i
End Function

我遇到的问题是某些单元格正在使用函数来计算该数字。

有关解决此问题并让我的 vba 使用此问题的任何建议？？？？？？非常感谢您的帮助！！！

Answer 1

这是一个简单的 UDF，它将对某个范围内的前 30 个数字求和，不包括空格和包含公式的单元格：

Public Function AddFirst30(RIN As Range) As Variant
    Dim Kount As Long, t As Variant, r As Range
    k = 0
    t = 0
    For Each r In RIN
        If r.Value <> "" And r.HasFormula = False Then
            t = t + r.Value
            k = k + 1
            If k = 30 Then GoTo success
        End If
    Next r
    AddFirst30 = "Not enough numbers present"
    Exit Function

success:
    AddFirst30 = t
End Function

编辑#1：

要更改 UDF 以便不排除公式，只需删除 .HasFormula 测试：

Public Function AddFirst30(RIN As Range) As Variant
    Dim Kount As Long, t As Variant, r As Range
    k = 0
    t = 0
    For Each r In RIN
        If r.Value <> "" Then
            t = t + r.Value
            k = k + 1
            If k = 30 Then GoTo success
        End If
    Next r
    AddFirst30 = "Not enough numbers present"
    Exit Function

success:
    AddFirst30 = t
End Function