VBA函数中调用含GoalSeek的子过程无结果问题求助

问题现象 #

• 编写的mygoalseek2子过程直接按F5运行时，能正常执行GoalSeek，让O3单元格趋近于0，O1的数值同步更新为预期结果。
• 但将该子过程通过自定义函数testfun调用时，即便能触发子过程（比如添加MsgBox可以正常弹出），GoalSeek却完全不生效，O1数值无变化，且无任何报错信息。

代码示例 #

子过程代码 #

Sub mygoalseek2()
    Range("O3").GoalSeek goal:=0, changingcell:=Range("O1")
End Sub

自定义函数代码 #

Function testfun(tgtcell As Range, chgcell As Range, tgtvalue As Double) As Boolean
    Call mygoalseek2
    testfun = True
End Function

原因分析 #

这是Excel的规则限制：直接在单元格中调用的自定义VBA函数，不允许修改工作表的单元格值。工作表函数的设计定位是返回计算结果，而非修改工作表状态。GoalSeek本质是修改单元格数值的操作，因此在自定义函数中调用时会被Excel静默拦截，无法执行。

解决方案 #

方案1：用按钮触发 #

如果需要手动触发GoalSeek，可添加一个表单按钮，将mygoalseek2绑定到按钮的点击事件上，点击按钮即可直接运行子过程，确保GoalSeek正常生效。

方案2：用工作表事件自动触发 #

若需在特定条件下自动执行GoalSeek（比如某单元格数值变化时），可利用工作表事件实现，示例代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当O2单元格数值变化时，自动执行GoalSeek
    If Not Intersect(Target, Range("O2")) Is Nothing Then
        Range("O3").GoalSeek goal:=0, changingcell:=Range("O1")
    End If
End Sub

方案3：封装为带参数的子过程复用 #

将GoalSeek逻辑封装成可复用的带参数子过程，在其他宏或事件中直接调用，避免通过工作表函数触发：

Sub RunGoalSeek(targetCell As Range, changeCell As Range, targetValue As Double)
    targetCell.GoalSeek goal:=targetValue, changingcell:=changeCell
End Sub

' 调用示例
Sub TestGoalSeek()
    RunGoalSeek Range("O3"), Range("O1"), 0
End Sub

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