循环浏览投资者列表并计算每个投资者的 XIRR 以实现流程自动化

Question

所以我已经被这个问题困扰了几天。 我已经查看了其他一些代码，但我仍然不足。 我在 VBA 方面也不是最好的。

我有一份投资者名单，附有他们的付款和日期。 我正在尝试运行一个命令按钮，该按钮将通过每个帐户 go，找到它们的相关付款和日期，运行 XIRR function，然后将 XIRR 值放在每个帐户右侧的底部。 这很简单，可以手工完成，但是当你有一个包含 15000 个单元格的电子表格时，它会变得乏味，我正在尝试自动化这个过程。 这变得很困难，因为每个投资者都有不同的付款金额，所以找到放置 XIRR 值的正确位置也难倒了我。

这是我的电子表格的示例

Dim i As Integer
Dim x As Double
Dim dateArray() As Date
Dim dateStrings() As String
Dim valArray() As Double
    
   ReDim dateArray(Dates.Count)
   ReDim valArray(Trans.Count)
   ReDim dateStrings(Dates.Count)



'Sheets("InvestorList").PivotTables.GetPivotData("Account", "x") = i
'Sheets("AccountPayments").Find ("i")
End Sub

Public Function MyXIRR(Dates As Range, Trans As Range, Balance As Double)


    For i = 1 To Dates.Count
        dateArray(i - 1) = Dates.Item(i).Value
        Next i
        
    For i = 1 To Trans.Count
        valArray(i - 1) = Trans.Item(i).Value
        Next i
    
    'Set the date on the "Balance" line to one day after the last transaction date
    dateArray(Dates.Count) = DateAdd("d", 1, Dates.Item(Dates.Count))
     valArray(Trans.Count) = -1 * Balance
      
    For i = 0 To Dates.Count
       dateStrings(i) = Format(dateArray(i), "mm/dd/yyyy")
       Next i
          
    MyXIRR = Application.WorksheetFunction.Xirr(valArray, dateStrings)
          

End Function

Answer 1

所以我咨询了一所大学，他帮助我将代码简化为更简单、更干净的代码。 我用数据运行了这段代码，效果很好。 如果 XIRR 值显示不正确，则可能需要进行一些抽查，但这有助于使过程自动化。

 Private Sub CommandButton1_Click()
Dim myrow As Integer
Dim startrow As Integer
Dim valuerange As String
Dim daterange As String
Dim investor As String

myrow = 2
startrow = 2
investor = Cells(myrow, 1)
Do Until Cells(myrow, 1) = ""
    If Cells(myrow + 1, 1) <> investor Then
        'We are at the end of the list for the current investor.
        daterange = "R" & startrow & "C2:R" & myrow & "C2"
        valuerange = "R" & startrow & "C3:R" & myrow & "C3"
        Cells(myrow, 4) = "=XIRR(" & valuerange & ", " & daterange & ")"
        startrow = myrow + 1
        investor = Cells(myrow + 1, 1)
    End If
    myrow = myrow + 1
Loop
End Sub

Answer 2

我建议尝试使用宏记录器。 有很多次，当我可以记录我的步骤时，我感到沮丧并尝试到处寻找解决方案......如果你不确定如何做到这一点，这里是步骤！

在 excel 中：

1. 文件
2. 选项
3. 自定义功能区（左面板）
4. 从以下位置选择命令：（dropbox）select“主选项卡”
5. Select 开发人员
6. 点击添加>>
7. 点击确定
8. 现在单击顶部功能区上的开发人员选项卡
9. 点击录制宏（左上角）
10. 命名宏，根据需要设置快捷方式和描述
11. 做你想让宏做的事情。
12. 当您为一位投资者完成时单击停止记录
13. 点击左上角的宏
14. select 你刚刚创建的宏然后点击编辑
15. 应该有一个骨架例程来工作到你的循环中

希望这会有所帮助：快乐编码:)