Excel-VBA函数，返回％年龄的值，如（.15）

Question

我创建了以下函数，并通过编写=ratingper(b7,u7)从excel中调用它。 但它返回#NAME？。

Function RATINGPER(pvar As String, svar As Double) As Double
    If (svar < 20001 And pvar = "A") Then
        RATINGPER = 0.16
    ElseIf (svar < 20001 And pvar = "B") Then
        RATINGPER = 0.14
    ElseIf (svar < 20001 And pvar = "C") Then
        RATINGPER = 0.12
    ElseIf (svar >= 20001 And svar < 30001 And pvar = "A") Then
        RATINGPER = 0.15
    ElseIf (svar >= 20001 And svar < 30001 And pvar = "B") Then
        RATINGPER = 0.11
    ElseIf (svar >= 20001 And svar < 30001 And pvar = "C") Then
        RATINGPER = 0.9
    ElseIf (svar >= 30001 And svar < 55001 And pvar = "A") Then
        RATINGPER = 0.13
    ElseIf (svar >= 30001 And svar < 55001 And pvar = "B") Then
        RATINGPER = 0.9
    ElseIf (svar >= 30001 And svar < 55001 And pvar = "C") Then
        RATINGPER = 0.7
    ElseIf (svar >= 55001 And pvar = "A") Then
        RATINGPER = 0.11
    ElseIf (svar >= 55001 And pvar = B) Then
        RATINGPER = 0.9
    ElseIf (svar >= 55001 And pvar = "C") Then
        RATINGPER = 0.7
    Else
        RATINGPER = 0
    End If
End Function

Answer 1

我想没有#NAME？如果代码在模块中输入，则会出现。