如何在函數中顯示一個字符串返回一個雙精度值

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

可能最好的方法是將返回類型更改爲變體而不是雙。這樣，如果你願意，你可以將它設置爲字符串而不是數值。

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