MS Excel。 VBA函数返回#value

Question

如果有人可以解释是什么原因导致函数返回#value错误，那就太好了。

Public Function papild(x)
    Dim Sum As Double, A As Double, pi As Double,
    Sum = 0.5 - (x - pi / 4)
    A = -(x - pi / 4)
    pi = Application.WorksheetFunction.pi()
    Dim k As Integer, i As Integer
    k = 2
    i = 0
    Do While Abs(A) > 0.0001
        A = -A * 4 * A * A / (k + i) * (k + i + 1)
        Sum = Sum + A
        k = k + 1
        i = i + 1
    Loop
    paplid = Sum
End Function

函数从MS Excel单元格获取x值，它等于= -1.5708（= -PI（）/ 2 @Formula Bar）

Answer 1

在第3行和第4行中，在将变量pi设置在第5行中之前使用变量pi ...

您的公式中是否可能缺少括号。 它基本上说：

A = -4A^3 * (k+i+1)/(k+1)

这显然漂移到+/-无限，因此您的循环无法结束。

在第二行中也有一个逗号，在最后一行中有一个拼写错误（拼写而不是papild）。

Answer 2

您是否尝试过调试代码？ 当我运行代码时，我在@ x = -1.5708开始的while循环的第6次迭代中遇到溢出错误。 数字变大以适合变量内部。除此之外，还有一些小问题：缺少为Double

Public Function papild(x) As Double

最后加上不必要的逗号

Dim Sum As Double, A As Double, pi As Double,