0

我编写了一个 VBA 插件函数来执行一系列的矩形舍入。在我的 VBA 方法中，我想检测包含公式/VBA 方法的单元格上方是否有空单元格。但是，如果我在我的方法中使用 ActiveCell，Excel 会抱怨循环引用并返回 0 而不是我的方法的返回值。示例方法：

Function MovingAverageSmooth(r As Range, m As Integer)
    ' returns a smoothed average using the 'rectangular' method
    Dim cStart As Long, x As Long, total As Double, activeColumn As Long
    Dim vc As Long, vr As Long, count As Double, beforeCount As Long, afterCount As Long

    vc = r.Column
    vr = r.Row

    rStart = Max(1, vr - m)
    currentValue = Cells(vr, vc).Value
    activeColumn = ActiveCell.Column
    For x = rStart To vr + m
        If Application.IsNumber(Cells(x, vc).Value) Then
            total = total + Cells(x, vc).Value
            count = count + 1
            If Application.IsNumber(Cells(x, activeColumn).Value) Then
                If x < vr Then
                    beforeCount = beforeCount + 1
                End If
                If x > vr Then
                    afterCount = afterCount + 1
                End If
            End If
        End If
    Next
    MovingAverageSmooth = total / count
    If afterCount = 0 Or beforeCount = 0 Or count = 0 Then
        MovingAverageSmooth = currentValue
    End If

End Function
4

1 回答 1

1

我认为这对你有用。正如我在评论中提到的，Application.Caller 返回调用该函数的单元格：

Function MovingAverageSmooth(r As Range, m As Integer)
    ' returns a smoothed average using the 'rectangular' method
    Dim cStart As Long, x As Long, total As Double, activeColumn As Long
    Dim vc As Long, vr As Long, count As Double, beforeCount As Long, afterCount As Long

    vc = r.Column
    vr = r.Row

    rStart = Max(1, vr - m)
    currentValue = Cells(vr, vc).Value
    activeColumn = Application.Caller.Column
    For x = rStart To vr + m
        If Application.IsNumber(Cells(x, vc).Value) Then
            total = total + Cells(x, vc).Value
            count = count + 1
            If Application.IsNumber(Cells(x, activeColumn).Value) Then
                If x < vr Then
                    beforeCount = beforeCount + 1
                End If
                If x > vr Then
                    afterCount = afterCount + 1
                End If
            End If
        End If
    Next
    MovingAverageSmooth = total / count
    If afterCount = 0 Or beforeCount = 0 Or count = 0 Then
        MovingAverageSmooth = currentValue
    End If
End Function
于 2012-09-12T05:05:01.890 回答