求自定义函数解决计划完成率

○hanxueping

求自定义函数解决计划完成率
增加条件    当B列以“L”或“JL”开头的批号，其计划完成率为90%
Function mrate(a, b, c, d)
If a = "毛涤" Then
   If d >= 150 Then
     mrate = IIf(Left(c, 1) Like "[8-9]", 0.945, 0.955)
   Else
     mrate = IIf(Left(c, 1) Like "[8-9]", 0.93, 0.94)
   End If
Else
   If b >= 70 Then
     mrate = IIf(Left(c, 1) Like "[8-9]", IIf(d >= 150, 0.91, 0.9), IIf(d >= 150, 0.92, 0.91))
   Else
     mrate = IIf(Left(c, 1) Like "[8-9]", IIf(d >= 150, 0.92, 0.905), IIf(d >= 150, 0.93, 0.915))
   End If
End If
End Function

○hanxueping

我写的代码如下：
Function mxrate(a, b, c, d, e)
    If a Then
    mxrate = IIf(Left(a, 1) Like "[L]", 0.9) Or IIf(Left(a, 2) Like "[JL]", 0.9)
    End If
    If b = "毛涤" Then
  If e >= 150 Then
    mxrate = IIf(Left(d, 1) Like "[8-9]", 0.945, 0.955)
  Else
    mxrate = IIf(Left(d, 1) Like "[8-9]", 0.93, 0.94)
  End If
Else
  If c >= 70 Then
    mxrate = IIf(Left(d, 1) Like "[8-9]", IIf(e >= 150, 0.91, 0.9), IIf(e >= 150, 0.92, 0.91))
  Else
    mxrate = IIf(Left(d, 1) Like "[8-9]", IIf(e >= 150, 0.92, 0.905), IIf(e >= 150, 0.93, 0.915))
  End If
End If
End Function

运行出现参数不可选，不知道怎么回事，  求大神解决！

大灰狼1976

为了尽量不改变原来的函数内容，后面增加的参数e代表B列元素。

1. Function mrate(a, b, c, d, e)
   
2. If e Like "L*" Or e Like "JL*" Then mrate = 0.9: Exit Function
   
3. If a = "毛涤" Then
   
4.    If d >= 150 Then
   
5.      mrate = IIf(Left(c, 1) Like "[8-9]", 0.945, 0.955)
   
6.    Else
   
7.      mrate = IIf(Left(c, 1) Like "[8-9]", 0.93, 0.94)
   
8.    End If
   
9. Else
   
10.    If b >= 70 Then
    
11.      mrate = IIf(Left(c, 1) Like "[8-9]", IIf(d >= 150, 0.91, 0.9), IIf(d >= 150, 0.92, 0.91))
    
12.    Else
    
13.      mrate = IIf(Left(c, 1) Like "[8-9]", IIf(d >= 150, 0.92, 0.905), IIf(d >= 150, 0.93, 0.915))
    
14.    End If
    
15. End If
    
16. End Function

复制代码

○hanxueping

谢谢大神！  该代码设定为最佳答案！