自动变量求解细胞超范围(Automatic Goal Seek Over Range of Cell

我想申请在几行的目标时，寻求有变化，以在工作表的任意单元格。 我想从7行应用于这排11的第一个问题我已经是Excel是每个我跑这一次崩溃。 我刚开始学习VBA因此任何帮助是非常apreciated。 谢谢！

我的代码如下：

Option Explicit

Private Sub Worksheet_Calculate()
CheckGoalSeek
End Sub

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

Answer 1:

你似乎是触发一个无限循环：工作表计算 - >目标寻求计算 - >工作表计算 - > ...

一种选择是，改变触发目标寻求事件。

我会建议Worksheet_Change事件。 的事件代码将是除分声明，这将是相同的Private Sub Worksheet_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

文章来源: Automatic Goal Seek Over Range of Cells