Excel 2007 VBA Ошибка № 450 — надстройка решателя

Я создал макрос, который отлично работает в 2010 году, но когда я пытаюсь запустить 2007 год, появляется сообщение об ошибке «Ошибка времени выполнения« 450 »Неправильное количество аргументов или неверное назначение свойства». прикрепил файл excel - на этом листе называется «Multilinesup», а кнопка макроса - «Запустить оптимизатор».

Пожалуйста помоги.

http://excelbyjoe.com/MEF/wp-content/uploads/2015/07/MLB-Optimal-lineups-v3-2007.xlsm

Проблема в коде SolverOk

Пожалуйста помоги


excel vba solver
person Thiru Selvam    schedule 24.07.2015    source источник
comment
Можете ли вы опубликовать свой код в вопросе, пожалуйста?   -  person GrandMasterFlush    schedule 24.07.2015
comment
@GrandMasterFlush - это действительно большой код и форум, не позволяющие мне вставить весь код, поэтому вот точный код, который я застрял с «Application.Run SolverOk, $ ak $ 2, 1, 0, $ g $ 2: $ g $ 200 , 2, Симплекс ЛП '   -  person Thiru Selvam    schedule 24.07.2015
comment
Ребята помогите кто нибудь пожалуйста.   -  person Thiru Selvam    schedule 24.07.2015

Ответы (1)


arrow_upward
0
arrow_downward

Функция SolverOK принимает четыре аргумента в Excel 2007 и шесть аргументов в Excel 2010. Два дополнительных аргумента, которые он принимает в Excel 2010, определяют механизм решения. Если вы удалите эти аргументы, это должно работать.

Альтернативный способ указать движок Simplex LP — установить SolverOptions AssumeLinear:=True. Это должно работать нормально для обеих версий.

person Ioannis    schedule 24.07.2015
comment
Сэр, очень жаль, но я не знаю, как изменить код. Это то, что я получаю код ошибки `Application.Run SolverOk, $ak$2, 1, 0, $g$2:$g$200, 2, Simplex LP **`, так что я имею в виду, что это должно быть 'Application.Run SolverOk, $ak$2, 1, 0, $g$2:$g$200, SolverOptions AssumeLinear:=True' — верно? - person Thiru Selvam; 24.07.2015
comment
Измените его на Application.Run SolverOk, $ak$2, 1, 0, $g$2:$g$200. - person Ioannis; 24.07.2015
comment
затем добавьте SolverOptions AssumeLinear:=True в другую строку. - person Ioannis; 24.07.2015
comment
Я пробовал, но Excel вылетает и перезагружается. Есть идеи? - person Thiru Selvam; 24.07.2015
comment
Я переустановил офис, теперь он работает, но некоторые значения имеют #N/A. Пожалуйста, ответьте, Мы почти коснулись этого, Пожалуйста... - person Thiru Selvam; 24.07.2015
comment
@ThiruSelvam Я сейчас в путешествии, и у меня ограниченный доступ к Интернету. Конкретная проблема, с которой вы столкнулись, теперь решена, и ваш дополнительный вопрос касается новой проблемы. Я предлагаю вам определить проблему, изолировать ее, попытаться решить, а затем обратиться за помощью, после того как вы описали, что вы пробовали и почему это не сработало. Я проверил электронную таблицу по вашей ссылке, но в целом вы должны изолировать проблему и быть готовым воспроизвести ее на примере, который могут воспроизвести и другие. - person Ioannis; 24.07.2015
comment
В любом случае, публикация листа с 38 модулями и задавание вопроса, как будто он вылетает или дает #N/A, отпугивает большинство людей от ответа. Если вы изолируете проблему и продемонстрируете, что пытались ее решить, вы привлечете внимание экспертов, а затем получите хорошую помощь. См. также как спросить. Удачи, и я надеюсь, что вы решите свою проблему! :) - person Ioannis; 24.07.2015