要求一個目標並使用給定的數字運行 Goal Seek

Question

代碼是

Sub GoalSeek()
'
' GoalSeek Macro
' Goal seek with input box for ending EBIT
'
'
Dim EBIT As String
    EBIT = InputBox("Enter ending EBIT goal in Millions", "Ending EBIT", "e.g. 140")
    Range("I56").GoalSeek Goal:=EBIT, ChangingCell:=Range("G52")
    VBA.MsgBox ("The number of years to obtain an EBIT of" & response & "is" & Range("G52"))
End Sub

任何幫助，將不勝感激。

Answer 1

這可能是你想要的。 請務必檢查要傳遞給函數的正確值。 如有必要，創建錯誤處理例程。

Option Explicit

Function fnGoalSeek( _
    ByRef rngGoalSeek As Excel.Range, _
    ByRef rngChangingCell As Excel.Range, _
    ByVal lngGoal As Long)
    rngGoalSeek.GoalSeek Goal:=lngGoal, ChangingCell:=rngChangingCell
End Function

Sub fnRun_fnGoalSeek()
    Dim intYears As Long
    Dim lngEBIT As Long

    lngEBIT = InputBox("Enter ending EBIT goal in Millions", "Ending EBIT", "e.g. 140")

    Call fnGoalSeek(Range("I56"), Range("G52"), lngEBIT)
    intYears = Range("G52").Value
    
    MsgBox "The number of years to obtain an EBIT of " & lngEBIT & " is " & intYears
    
End Sub