Excel erfc函数的编译错误

我试图使用erfc，但它说参数不是可选的

下面给出了一个例子

For j = 0 To 150 
    f = 1
    For m = 1 To j
        f = f * m
    Next
    Application.WorksheetFunction.Erf = (Application.WorksheetFunction.Erf) + (-1) ^ j * b ^ (2 * j + 1) / ((2 * j + 1) * f)
Next

Application.WorksheetFunction.ErfC = 1 - 2 / Sqr(3.14) * Application.WorksheetFunction.Erf

MsgBox (Application.WorksheetFunction.ErfC)

xf1 = (wa + 2 * sp) * q / (4 * cl ^ 2 * 3.14 * hf)
xf2 = Exp(b ^ 2) * Application.WorksheetFunction.ErfC

xf3 = 2 * b / Sqr(3.14) - 1

xf = xf1 * (xf2 + xf3)

根据该方法，至少需要将一个参数传递给Erf方法：

因此，使用零参数（例如Application.WorksheetFunction.Erf）调用它将给出一个参数而不是可选错误

您也将无法将Erf设置为值，即

Application.WorksheetFunction.Erf = ...

无效。

来自指南：寻求调试帮助的问题此代码为什么不起作用？必须包括期望的行为、特定的问题或错误以及在问题本身中重现这些问题所需的最短代码

Application.WorksheetFunction.Erf = ...