使用函数将平均值或“”返回到单元格时出现 #VALUE 错误

Question

我有以下 VBA 代码：

Function AvgNoColor(rngData As Range, color As String) As Variant

Dim sum As Double
Dim amount As Double
Dim C As Range

    For Each C In rngData
        If color = "Red" Then
            If Not COLORINDEX(C) = 44 And Not COLORINDEX(C) = 3 Then
                sum = sum + C.Value
                amount = amount + 1
            Else
    'HERE
                AvgNoColor = ""
            End If
        ElseIf color = "Orange" Then
            If Not COLORINDEX(C) = 44 Then
                sum = sum + C.Value
                amount = amount + 1
            Else
    'HERE
                AvgNoColor = ""
            End If
        End If
    Next

AvgNoColor = sum / amount

End Function

简而言之，我想要一个范围内不是“红色”或“橙色”颜色的单元格的平均值。 平均值按预期返回，但当单元格需要为空时，单元格会收到#VALUE错误。

Answer 1

通过将此行（ AvgNoColor = sum / amount ）放在 if-else 块之外，您已将代码打开以除以零/未定义，如果触发，这将在各个方向抛出错误。

试试这个版本：

Function AvgNoColor(rngData As Range, color As String) As Variant

Dim sum As Double
Dim amount As Double
Dim C As Range

    For Each C In rngData
        If color = "Red" Then
            If Not COLORINDEX(C) = 44 And Not COLORINDEX(C) = 3 Then
                sum = sum + C.Value
                amount = amount + 1
            End If
        ElseIf color = "Orange" Then
            If Not COLORINDEX(C) = 44 Then
                sum = sum + C.Value
                amount = amount + 1
            End If
        End If
    Next

If sum <> 0 And amount <> 0 Then 
    AvgNoColor = sum / amount
Else
    AvgNoColor = ""
End If

End Function

Answer 2

试试 ISERROR(value) 函数：

If Not IsError(AvgNoColor) Then
    'your code
End If

如果 value 是错误值（#N/A、#VALUE!、#REF!、#DIV/0!、#NUM!、#NAME? 或 #NULL），则此函数将返回 TRUE。 否则，它将返回 FALSE。

Answer 3

请在细胞中尝试

=IF(ISERROR(AvgNoColor(A3:A14,"Red"))="FALSE",AvgNoColor(A3:A14,"Red"),"")