1

我是 VBA 编程的初学者,我在 Excel 插件方面遇到了一些困难。我写了一个宏来帮助解决我在使用 Solver 的工作中遇到的一些问题。在我的机器上它运行良好,但是当我尝试与其他计算机共享时,它最终关闭了 excel。出现的错误是指求解器的使用。有谁知道如何解决这个问题?我认为我需要做的是发送工作表和加载项,但目前还不够。感谢您的帮助,下面是我的插件代码。

Sub Teste2()
'
' Teste2 Macro
'

'
SolverReset
SolverOk SetCell:="$K$11", MaxMinVal:=3, ValueOf:=Range("B3").Value2, ByChange:="$B$8:$E$8", _
    Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$8", Relation:=1, FormulaText:="$B$8"
SolverAdd CellRef:="$B$8", Relation:=2, FormulaText:="$K$7"
SolverAdd CellRef:="$C$8", Relation:=1, FormulaText:="$C$8"
SolverAdd CellRef:="$C$8", Relation:=2, FormulaText:="$L$7"
SolverAdd CellRef:="$D$8", Relation:=1, FormulaText:="$D$8"
SolverAdd CellRef:="$D$8", Relation:=3, FormulaText:="$M$7"
SolverAdd CellRef:="$E$8", Relation:=1, FormulaText:="$E$8"
SolverAdd CellRef:="$E$8", Relation:=3, FormulaText:="$N$7"
SolverAdd CellRef:="$K$9", Relation:=1, FormulaText:="$L$9"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
End Sub

更正:

当我尝试在另一台计算机上运行加载项时,它返回找不到对象,然后关闭。

4

1 回答 1

0

请确保其他用户在 VBE 中启用了对“求解器”的引用:

在此处输入图像描述

Google 将此作为“Excel Solver 宏错误”的第一个结果:

http://peltiertech.com/Excel/SolverVBA.html

此资源还包含在 Excel VBA 中使用 Solver 模型时可能对您有所帮助的其他信息。

于 2013-10-07T18:46:28.717 回答