请求调试实现输入目标值并运行Goal Seek的VBA宏代码

存在的问题 #

• 变量类型不匹配：EBIT被定义为String类型，但GoalSeek的Goal参数需要数值类型（如Double），直接传入字符串会导致运行错误。
• 未定义变量：MsgBox中使用了response变量，但该变量从未声明或赋值，会触发编译错误。
• 缺乏输入验证：未判断用户是否取消输入框，或输入的内容是否为有效数值，容易引发异常。
• MsgBox文本格式问题：原文本缺少空格，显示会不连贯。

修正后的代码 #

Sub GoalSeek()
'
' GoalSeek Macro
' Goal seek with input box for ending EBIT
'
    Dim targetEBIT As Variant
    Dim resultYears As Double
    
    ' 获取用户输入并验证
    targetEBIT = InputBox("Enter ending EBIT goal in Millions", "Ending EBIT", "e.g. 140")
    
    ' 处理用户取消输入或非数值输入的情况
    If VarType(targetEBIT) = vbString Or Not IsNumeric(targetEBIT) Then
        MsgBox "请输入有效的数值，操作已取消。", vbExclamation
        Exit Sub
    End If
    
    ' 执行单变量求解
    Range("I56").GoalSeek Goal:=CDbl(targetEBIT), ChangingCell:=Range("G52")
    
    ' 获取结果并弹窗提示
    resultYears = Range("G52").Value
    MsgBox "达到EBIT " & targetEBIT & " 百万所需的年数为：" & resultYears, vbInformation
End Sub

修正说明 #

• 将输入变量改为targetEBIT并定义为Variant，方便判断输入类型；通过IsNumeric验证输入是否为有效数值，避免类型错误。
• 添加了用户取消输入或输入无效时的处理逻辑，防止宏崩溃。
• 修正了MsgBox中的变量引用和文本格式，确保提示信息清晰准确。
• 使用CDbl将有效输入转换为双精度数值，匹配GoalSeek的参数要求。

内容的提问来源于stack exchange，提问作者Trat246