在运行GoalSeek后存储值

Sub GoalSeekExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 设置目标单元格、目标值和可变单元格
    Dim targetCell As Range
    Set targetCell = ws.Range("B2") ' 假设 B2 是目标单元格
    Dim targetValue As Double
    targetValue = 100 ' 假设目标值为 100
    Dim variableCell As Range
    Set variableCell = ws.Range("A2") ' 假设 A2 是可变单元格
    
    ' 使用 Application.WorksheetFunction.GoalSeek 进行计算
    On Error Resume Next ' 捕获可能的错误
    Application.WorksheetFunction.GoalSeek _
        Goal:=targetValue, _
        ChangingCell:=variableCell.Address, _
        ByRef Result:=targetCell.Value
    On Error GoTo 0 ' 关闭错误捕获
    
    If targetCell.Value = targetValue Then
        MsgBox "目标已达到！"
    Else
        MsgBox "无法达到目标值。"
    End If
End Sub