要求一个目标并使用给定的数字运行 Goal Seek

Question

The code is

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

Any help would be appreciated.

Answer 1

This could be what you want. Be sure to check the proper values to pass to the function. Create an error-handling routine if necessary.

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