Question

您好我收到此错误“编译错误命名参数未找到”。 Excel 2007

Private Sub wykonaj_button_Click()
Worksheets("Arkusz1").Activate
ActiveSheet.Unprotect Password:="123"
SolverReset
SolverOk SetCell:="$B$18", MaxMinVal:=1, ValueOf:=0, ByChange:="$B$11:$D$13", _
    Engine:=2, EngineDesc:="Simplex LP"
SolverAdd CellRef:="$B$11:$D$11", Relation:=1, FormulaText:="1"
SolverOk SetCell:="$B$18", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$11:$D$13", _
    Engine:=2, EngineDesc:="Simplex LP"
SolverAdd CellRef:="$B$12:$D$12", Relation:=1, FormulaText:="1"
SolverAdd CellRef:="$B$13:$D$13", Relation:=1, FormulaText:="1"
SolverAdd CellRef:="$B$14", Relation:=2, FormulaText:="1"
SolverAdd CellRef:="$C$14", Relation:=2, FormulaText:="1"
SolverAdd CellRef:="$D$14", Relation:=2, FormulaText:="1"
SolverAdd CellRef:="$E$11", Relation:=2, FormulaText:="1"
SolverAdd CellRef:="$E$12", Relation:=2, FormulaText:="1"
End Sub

Answer 1

您很可能需要包含对Solver加载项的引用。

MSDN SolverOK Function for Office 2007

在使用此功能之前，您必须建立对该功能的引用解算器加载项。在Visual Basic编辑器中，激活模块，单击工具菜单上的参考，然后选择 Solver.xlam 检查 可用参考下的框。如果 Solver.xlam 未显示在 可用参考，点击浏览，然后在中打开Solver.xlam \ office12 \ library \ Solver子文件夹。

MSDN Solver VBA Fuction Office 2013 and later

在使用VBA中的Solver VBA功能之前，必须启用   “Excel选项”对话框中的“求解器”加载项。


点击文件标签，然后点击 Excel 标签下的选项。

在 Excel选项对话框中，点击加载项。

在管理下拉框中，选择 Excel加载项，然后点击转到。

在加载项对话框中，选择求解器加载项，然后单击“确定”。

启用Solver加载项后，   Excel将自动安装加载项（如果尚未安装），并且   解算器命令将添加到功能区中数据标签上的分析组中。

在使用之前的Solver VBA功能之前   Visual Basic编辑器，您必须建立对Solver的引用   加入。在Visual Basic编辑器中，激活模块，单击   工具菜单上的参考，然后在可用参考下选择解算器。如果Solver未出现在可用参考下，   单击浏览，然后在\ Program中打开Solver.xlam   Files \ Microsoft Office \ Office14 \ Library \ SOLVER子文件夹。

VBA -Compile错误“未找到命名参数”

1 个答案: