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

时间:2012-03-21 04:00:05

标签: excel vba excel-vba

我有一个非常简单的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

1 个答案:

答案 0 :(得分:3)

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

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