Excel VBA中的自定义股东价值功能

Question

我最近对使用VBA在Excel中创建自定义函数非常感兴趣，因为自定义函数可以节省大量时间。由于我习惯使用Java而不是VBA，我现在对某些运算符（例如缺少+ =）和数组有点麻烦。

然而，我的最新功能，比我之前创建的功能稍微复杂一点，并不想工作。

功能目标是计算股东价值，同时给予现金流入和现金流出作为范围，利率和权益比率。

那么该函数应该做的是：

1. 计算所有相关变量（WACC等）

2. 从Range-Objecs

计算贴现现金流量（流入和流出）的总和

3. 使用先前计算的变量

计算股东价值

我的代码：

    Function SHV(CashInflow As Range, CashOutflow As Range, EKZins As Double, FKZins As Double, EKQuote As Double)

Dim DCIF As Double
Dim DCOF As Double
Dim FKQ As Double
Dim FKZ As Double
Dim FKZF As Double
Dim EKZF As Double
Dim GKZ As Double
Dim GKZF As Double
Dim ER As Double
Dim RV As Double

Dim n As Integer
Dim i As Integer


    DCIF = 0
    DCOF = 0
    FKQ = 1 - EKQuote
    FKZF = 1 + FKZins
    EKZF = 1 + EKZins
    GKZ = (FKQ * FKZins + EKQuote * EKZins) / (FKQ / EKQuote)
    GKZF = GKZ + 1
    n = CashInflow.Count

        For i = 1 To n

            DCIF = DCIF + ((CashInflow(CashInflow.Row, i) * GKZF ^ i))
            DCOF = DCOF + ((CashOutflow(CashOutflow.Row, i) * FKZF ^ i))

        Next i

    ER = CashInflow(CashInflow.Row, n) / GKZ
    RV = CashOutflow(CashOutflow.Row, n) / FKZ

    SHV = (DCIF + ER) - (DCOF + RV)

End Function

我希望有人能提供帮助。