Excel VBA在图表按钮触发的宏中无法运行Solver（替代旧问题）

我来帮你搞定这个问题！核心原因其实很简单：当你在图表工作表（单独的图表Sheet）里触发按钮宏时，当前的活动对象是这个图表，而Solver需要操作的是普通数据工作表里的单元格（$AP$13、$AP$9:$AP$11这些），它找不到正确的操作对象，自然就跑不起来了。

给你两个实用的解决方案，按需选择：

方案1：明确指定Solver要操作的工作表（推荐） #

直接给单元格地址加上具体的工作表引用，让Solver精准定位到数据所在的Sheet，不用依赖活动Sheet。比如假设你的数据存在名为数据工作表的Sheet里，代码改成这样：

Dim dataSheet As Worksheet
Set dataSheet = ThisWorkbook.Worksheets("数据工作表")

' 用工作表对象来指定单元格范围
SolverOk SetCell:=dataSheet.Range("AP13"), _
         MaxMinVal:=2, _
         ValueOf:=0, _
         ByChange:=dataSheet.Range("AP9:AP11"), _
         Engine:=1
SolverSolve UserFinish:=True

这种方法更健壮，不会因为用户切换Sheet而出错，是最佳实践哦。

方案2：先激活数据工作表再运行Solver #

如果不想改单元格引用，也可以在调用Solver前先激活数据所在的Sheet，让ActiveSheet变成目标Sheet，这样Solver就能找到正确的单元格了：

' 替换成你的数据工作表名称
ThisWorkbook.Worksheets("数据工作表").Activate

SolverOk SetCell:="$AP$13", MaxMinVal:=2, ValueOf:=0, ByChange:="$AP$9:$AP$11", Engine:=1
SolverSolve UserFinish:=True

不过这个方法有个小缺点：运行宏时会切换到数据Sheet，可能会打断用户当前的操作，所以优先选方案1更好。

额外提醒 #

别忘了检查VBA编辑器的引用是否启用了Solver：打开VBA编辑器（Alt+F11），点击顶部菜单栏的工具→引用，找到并勾选Solver相关的选项（不同Excel版本可能叫Microsoft Solver Foundation或者直接叫Solver），没勾选的话Solver代码也会跑不起来。

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