VBA Excel – 循环中的求解器返回更改单元格和条件的引用的错误

我正在尝试为VBA Excel循环解算器命令，并获取有关模型中的variables和条件的错误消息。 该模型的思想是find一系列的债务和股权融资，使现金余额为零，债务和股权部分满足某些契约（在解决scheme中运作）。

这是我的代码：

Sub Debt_Capital_Balancing() Application.ScreenUpdating = False Dim Early_Repmnt As String, CashBeforeSolver As Variant, CED As Variant, _ DR As Variant, CC As Variant, TW As Single, NDE As Single, DE As Single, W As Single K = Range("Forecast_periods").Count Range("Debt_Received, Debt_Early_Repayment, RE_Distribution, _ CC_APIC_Change").ClearContents For i = 1 To K CashBeforeSolver = Abs(Range("Cash_Excess_Deficit").Cells(1, i).Value) CED = Range("Cash_Excess_Deficit").Cells(1, i).Value DR = Range("Debt_Received").Cells(1, i).Value CC = Range("CC_APIC_Change").Cells(1, i).Value TW = Range("Target_WACC").Cells(1, i).Value NDE = Range("Net_Debt_To_EBITDA").Cells(1, i).Value DE = Range("D_E").Cells(1, i).Value W = Range("WACC").Cells(1, i).Value SolverReset SolverOk SetCell:=CED, MaxMinVal:=3, ValueOf:=0, ByChange:="DR,CC", Engine:=3, EngineDesc:="Evolutionary" SolverAdd cellRef:=DR, Relation:=3, FormulaText:=0 SolverAdd cellRef:=CC, Relation:=3, FormulaText:=0 SolverAdd cellRef:=DR, Relation:=1, FormulaText:=CashBeforeSolver SolverAdd cellRef:=CC, Relation:=1, FormulaText:=CashBeforeSolver SolverAdd cellRef:=NDE, Relation:=1, FormulaText:="Target_Net_Debt_To_EBITDA" SolverAdd cellRef:=DE, Relation:=1, FormulaText:="Target_D_E_Ratio" SolverAdd cellRef:=W, Relation:=1, FormulaText:=TW SolverOptions MaxTime:=0, Iterations:=0, Precision:=0.00001, _ Convergence:=0.0001, StepThru:=False, Scaling:=True, AssumeNonNeg:=False, Derivatives:=1 SolverOptions PopulationSize:=100, RandomSeed:=0, MutationRate:=0.075, _ Multistart:=False, RequireBounds:=True, MaxSubproblems:=0, MaxIntegerSols:=0, _ IntTolerance:=0.1, SolveWithout:=False, MaxTimeNoImp:=200 SolverSolve Next i End Sub 

我想我错误地提到求解器模式中的variables。 有人可以帮我吗？ 可能还有其他一些方法来引用不断变化的细胞和dynamic条件吗？

非常感谢，

尤里·

Answer 1

好吧，我find了一个解决scheme，可能不是最佳的，但它的工作原理。 这里是代码：

 Sub Debt_Capital_Balancing() Application.ScreenUpdating = False Application.Calculation = xlCalculationAutomatic Dim InitCashBalance As Variant Dim InitCashBalance2 As Variant Dim TargetCell As Variant Dim DebtReceivedChangeCell As Variant Dim DebtPaidChangeCell As Variant Dim REChangeCell As Variant Dim CapitalChangeCell As Variant Dim DEConstr As Variant Dim WACCConstr As Variant Dim DtoEBITDAConstr As Variant Dim TargWACC As Variant Dim TargDE As Variant Dim TargDtoEBITDA As Variant Dim DebtcfConstr As Variant Dim EquitycfConstr As Variant Dim MinDE As Variant Range("Debt_Received, Debt_Early_Repayment, Dividends, _ RE_Distribution, CC_APIC_Change").ClearContents K = Range("Forecast_periods").Count Set InitCashBalance = Range("Cash_Excess_Deficit").Cells(1, 1) Set TargetCell = Range("Cash_Excess_Deficit").Cells(1, 1) Set DebtReceivedChangeCell = Range("Debt_Received").Cells(1, 1) Set DebtPaidChangeCell = Range("Debt_Early_Repayment").Cells(1, 1) Set REChangeCell = Range("RE_Distribution").Cells(1, 1) Set CapitalChangeCell = Range("CC_APIC_Change").Cells(1, 1) Set DtoEBITDAConstr = Range("Net_Debt_To_EBITDA").Cells(1, 1) Set DebtcfConstr = Range("Debt_cf").Cells(1, 1) Set EquitycfConstr = Range("Equity_cf").Cells(1, 1) Set TargDtoEBITDA = Range("Target_Net_Debt_To_EBITDA") For i = 1 To K InitCashBalance2 = Abs(InitCashBalance) SolverReset SolverOk SetCell:=TargetCell.Address, MaxMinVal:=3, ValueOf:=0, _ ByChange:=DebtReceivedChangeCell.Address & "," & CapitalChangeCell.Address,_ Engine:=3, EngineDesc:="Evolutionary" SolverAdd cellRef:=DebtReceivedChangeCell.Address, Relation:=3, FormulaText:=0 SolverAdd cellRef:=CapitalChangeCell.Address, Relation:=3, FormulaText:=0 SolverAdd cellRef:=DebtReceivedChangeCell.Address, Relation:=1, FormulaText:=InitCashBalance2 SolverAdd cellRef:=CapitalChangeCell.Address, Relation:=1, FormulaText:=InitCashBalance2 SolverAdd cellRef:=DtoEBITDAConstr.Address, Relation:=1, _ FormulaText:=TargDtoEBITDA SolverAdd cellRef:=DebtcfConstr.Address, Relation:=3, FormulaText:=0 SolverAdd cellRef:=EquitycfConstr.Address, Relation:=3, FormulaText:=0 SolverOptions MaxTime:=0, Iterations:=0, Precision:=0.00001, _ Convergence:=0.0001, StepThru:=False, Scaling:=True, _ AssumeNonNeg:=False, Derivatives:=1 SolverOptions PopulationSize:=100, RandomSeed:=0, MutationRate:=0.075, _ Multistart:=False, RequireBounds:=True, MaxSubproblems:=0, _ MaxIntegerSols:=0, IntTolerance:=0.1, SolveWithout:=False, MaxTimeNoImp:=200 SolverSolve userFinish:=True SolverFinish KeepFinal:=1 Set InitCashBalance = InitCashBalance.Offset(0, 1) Set TargetCell = TargetCell.Offset(0, 1) Set DebtReceivedChangeCell = DebtReceivedChangeCell.Offset(0, 1) Set DebtPaidChangeCell = DebtPaidChangeCell.Offset(0, 1) Set REChangeCell = REChangeCell.Offset(0, 1) Set CapitalChangeCell = CapitalChangeCell.Offset(0, 1) Set DtoEBITDAConstr = DtoEBITDAConstr.Offset(0, 1) Set DebtcfConstr = DebtcfConstr.Offset(0, 1) Set EquitycfConstr = EquitycfConstr.Offset(0, 1) Next i Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub