Excel 单元格范围内的自动目标搜索

当工作表中的任何单元格发生更改时，我希望跨多行应用目标搜索。我想把这个从第7行应用到第11行。我遇到的第一个问题是，每次运行此程序时，excel都会崩溃。我刚刚开始学习VBA，所以非常感谢您的帮助。谢谢大家!

我的代码如下：

Option Explicit

Private Sub Worksheet_Calculate()
CheckGoalSeek
End Sub

Private Sub CheckGoalSeek()
Range("T7").GoalSeek Goal:=0, ChangingCell:=Range("V7")
End Sub

---

您似乎正在触发一个无限循环：工作表计算->目标搜索计算->工作表计算->

一个选项是更改触发目标搜索的事件

我建议您参加工作表更改活动。除了子声明之外，事件代码将是相同的，子声明将是

私有子工作表\u Change（ByVal Target As Range）

一个简单的

For

循环将在不同的行上执行目标搜索：

 Option Explicit

 Private Sub CheckGoalSeek()
    Dim i as Long
    For i = 7 to 11
        Range("T"& i).GoalSeek Goal:=0, ChangingCell:=Range("V"& i)
    Next
 End Sub

---

单元格T7和单元格V7中是什么？单元格T7是破碎费，等于按利率“R”贴现的一系列现金流的现值与按国库利率贴现的一系列现金流的现值加上保费X之差。单元格V7是保费X。使用工作表_变更事件。看起来目标搜索迭代正在触发工作表重新计算，这将触发新的目标搜索。。。