vba - 如何在返回 double 值的函数中显示单元格中的字符串

Question

我有一个非常简单的 VBA 函数，它接受两个范围参数并使用两个范围的值返回一个 double 值。我在单个单元格的公式栏中使用它，但如果出现问题，我想返回字符串错误。有没有办法可以在单元格中不显示 #VALUE 的情况下显示此内容？

Public Function CPP(aPreviousPercentage As Range, aCurrentPercentage As Range) As Double

    If (aPreviousPercentage.Value > 0.2) Then
        CPP = "Invalid Starting Value"
        Exit Function
    End If

    CPP = aCurrentPercentage.Value - aPreviousPercentage.Value

End Function

Answer 1

可能最好的方法是将返回类型更改为variant而不是double。这样，如果您愿意，可以将其设置为字符串而不是数值。

Public Function CPP(aPreviousPercentage As Range, aCurrentPercentage As Range) As Variant