RangeクラスのGoalSeekメソッドが失敗しました

Question

ワークシートに変更があったときに自動的に実行されるマクロを使用してGoalSeekメソッドを実装しようとしています。コードはシンプルですが、このエラーメッセージが表示されていますが、解決方法がわかりません。コードは、

Private Sub Worksheet_Calculate() 
    CheckGoalSeek 
End Sub 

Private Sub CheckGoalSeek() 
Dim wb As Workbook 
Dim ws As Worksheet 

Set wb = ActiveWorkbook 
Set ws = wb.Sheets("MAIN") 

    ws.Range("N45").GoalSeek Goal:=0, ChangingCell:=ws.Range("D49") 

End Sub 

ここで、「N45」は式ベースのセルであり、「D49」は値です。ランタイムエラーメッセージ "RangeクラスのGoalSeekメソッドが失敗しました"が表示されます。

何か助けていただければ幸いです。

Answer 1

GoalSeekがワークシートの計算を強制するので、それは、CheckGoalSeekを呼び出すWorksheet_Calculateイベントを発火するワークシートの計算を強制するGoalSeekを行うであろう、CheckGoalSeekを呼び出すWorksheet_Calculateイベントを起動しますこれはGoalSeekを実行し、ワークシートの計算を強制します。

この循環フローを回避するには、イベント処理を無効にする必要があります。

にご Worksheet_Calculate機能を変更

：

Private Sub Worksheet_Calculate() 
    Application.EnableEvents = False 
    CheckGoalSeek 
    Application.EnableEvents = True 
End Sub 

免責事項：私はそれはエクセルの私のコピーをロックアップし、これを試してみました初めて。私はそれを試してみました2回目は働いた。