Excel VBA编译错误：预期的子，函数或属性

Question

我在Excel VBA中收到一个编译错误，提示期望子，函数或属性。 下面给出了我正在使用的函数，该函数试图在Excel中复制rate函数。 谢谢你的帮助。

Function rate_m(nper As Double, pmt As Double, pv As Double, fv As Double, types As Double, guess As Double) As Variant
    Dim y, y0, y1, x0, x1, f, i As Double
    Dim FINANCIAL_MAX_ITERATIONS As Double
    Dim FINANCIAL_PRECISION As Double

    If IsNull(guess) Then guess = 0.01
    If IsNull(fv) Then fv = 0   
    If IsNull(types) Then types = 0

    FINANCIAL_MAX_ITERATIONS = 128 'Bet accuracy with 128
    FINANCIAL_PRECISION = 0.0000001 '1.0e-8

    y , y0, y1, x0, x1, f, i = 0
    rate_m = guess

    If Abs(rate_m) < FINANCIAL_PRECISION Then
        y = pv * (1 + nper * rate_m) + pmt * (1 + rate_m * types) * nper + fv
    Else
        f = Exp(nper * Log(1 + rate_m))
        y = pv * f + pmt * (1 / rate_m + types) * (f - 1) + fv

        y0 = pv + pmt * nper + fv
        y1 = pv * f + pmt * (1 / rate_m + types) * (f - 1) + fv
    End If

    'find root by Newton secant method
    i , x0 = 0
    x1 = rate_m

    While Abs(y0 - y1) > FINANCIAL_PRECISION & i < FINANCIAL_MAX_ITERATIONS
        rate_m = (y1 * x0 - y0 * x1) / (y1 - y0)
        x0 = x1
        x1 = rate_m

        If Abs(rate_m) < FINANCIAL_PRECISION Then
            y = pv * (1 + nper * rate_m) + pmt * (1 + rate_m * types) * nper + fv
        Else
            f = Exp(nper * Log(1 + rate_m))
            y = pv * f + pmt * (1 / rate_m + types) * (f - 1) + fv
        End If

        y0 = y1
        y1 = y
        i = i + 1
    Wend
End Function

Answer 1

几件事...

首先，您必须分别分配每个变量，如下所示：

y = 0
y0 = 0
y1 = 0
x0 = 0
x1 = 0
f = 0
i = 0

其次，您可能想将所有变量都DIM为Double 。 不幸的是，这一行：

Dim y, y0, y1, x0, x1, f, i As Double

仅将i声明为Double ，将所有其他声明为Variant 。 您需要分别声明每个声明，如下所示：

Dim y As Double
Dim y0 As Double
Dim y1 As Double
Dim x0 As Double
Dim x1 As Double
Dim f As Double
Dim i As Double

Answer 2

每个IF都以End If （除非在一行中）和While ... loop 结尾 。 您可能想看一下VBA的语法：
http://msdn.microsoft.com/zh-CN/library/office/ee814737(v=office.14).aspx

编辑：您必须单独声明变量，而不是：y，y0，y1，x0，x1，f，i = 0

你可以做：
y = 0
y0 = 0
y1 = 0
x0 = 0
x1 = 0
f = 0
我= 0