Solver проблема

[Kolpachog]

Здравствуйте, суть проблемы в том, что когда я пытаюсь подключить solver к программе, то она его не находит. Пробовал запихивать в одну папку вместе с ним, пробовал пихать в C:\Program Files\Microsoft Office\OFFICE11\Library, все тоже самое. Отыскал на вашем форуме следующий кусок:
Sub OpenSolver()
Dim St As String
On Error Resume Next
St = ThisWorkbook("SOLVER.XLA").Name
If Len(St) > 0 Then Exit Sub
St = ThisWorkbook.Application.Path & "\Library\Solver\Solver.xla"
Workbooks.Open St
End Sub
прописал его перед SolverReset, ну и вроде бы как заработало, больше ошибки "Sub or Function not defined" не выдавал, но зато теперь
ругается на Range. В общем даже не знаю что делать.

[EducatedFool]

но зато теперь ругается на Range

Где конкретно ругается?
В коде много ошибок, которую надо исправить?

Может, в этом проблема?

    Cells(2 * x + 1, 2 * x + 1).Name = "Summatrat"
    Range("Sumzatrat").Formula = "=SUMPRODUCT(Stoumost,Plan)"

Пробуем так:

    Cells(2 * x + 1, 2 * x + 1).Name = "Sumzatrat"
    Range("Sumzatrat").Formula = "=SUMPRODUCT(Stoumost,Plan)"
    'Суммы плана по строкам:
    For i = 1 To x
        Range(Cells(x + i, y + 1), Cells(x + i, 2 * y)).Name = "Strok" & i

и так:

Sub OpenSolver()
    Dim St As String
    On Error Resume Next
    St = ThisWorkbook("SOLVER.XLA").Name
    If Len(St) > 0 Then Exit Sub
    St = ThisWorkbook.Application.Path & "\Library\Solver\Solver.xla"
    Workbooks.Open St
    ThisWorkbook.Activate
    SolverReset
    SolverOk SetCell:=Range("Sumzatrat"), MaxMinVal:=2, ByChange:=Range("Plan, Dop")
    SolverAdd CellRef:=Range("Plan"), Relation:=5, FormulaText:="двоич."
    SolverAdd CellRef:=Range("Ogran1"), Relation:=2, FormulaText:="1"
    SolverAdd CellRef:=Range("Ogran2"), Relation:=2, FormulaText:="1"
    SolverAdd CellRef:=Range("Ogran3"), Relation:=2, FormulaText:="0"
    SolverAdd CellRef:=Range("Ogran4"), Relation:=1, FormulaText:="0"
    SolverAdd CellRef:=Range("Dop"), Relation:=3, FormulaText:="1"
    SolverAdd CellRef:=Range("Dop"), Relation:=1, FormulaText:="Vsego"
    SolverAdd CellRef:=Range("Dop"), Relation:=4, FormulaText:="целое"
    SolverAdd CellRef:=Range("A100"), Relation:=2, FormulaText:="1"
    SolverOptions MaxTime:=300, Interations:=1000
    SolverSolve
End Sub

PS: В коде ещё много ошибок - но дальше разбирайтесь самостоятельно

[Kolpachog]

Большое спасибо, что указали на ошибки. Буду их исправлять.

[Kolpachog]

Все ошибки исправил, но все равно не хочет корректно считать, "Неправильная ссылка на ячейку".
В общем, действовал четко по книге, весь код перепроверил - сходится. Если возможно укажите мне что там не так. (В приложении есть фотографии из книги с кодом, "Задача Коммивояжера")

[Kolpachog]

Все, уже можно не помогать, я нашел сайт автора книги, на котором нашел интересующий меня макрос. Это победа!

[Raikhman]

Полезный пример. Интересно, что при его выполнении Solver подключается, а флажок в диалоговом окне "Надстройки" не появляется

[rusttemm]

Что за книга? Кто автор?