自動目標搜索范圍

Question

當工作表中的任何單元格發生更改時，我想跨幾行應用目標搜索。 我想將其從第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

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