Repeat solver using VBA

-2

Я пытаюсь сделать цикл, чтобы повторить решатель на несколько строк, но я не могу заставить свой код работать. Кто-нибудь знает, что мне не хватает. Сложная часть заключается в том, что я пытаюсь свести к минимуму ячейку (T3), изменив диапазон ячеек (L3: M3).Repeat solver using VBA

Dim count As Integer 
Set count = 3 
Do While count <= 100 
    SolverOk setcell:=Sheets("Sheet1").Cells(count, 19), MaxMinval:=2, valueof:=0, bychange:=Sheets("Sheet1").range(Cells(count, 11), Cells(count, 12)), _ 
     Engine:=1, EngineDesc:="GRG Nonlinear" 
    SolverSolve userfinish:=True 
    count = count + 1 
Loop

источник

2016-10-05 Lieke Vermunt

Добро пожаловать на переполнение стека! Ознакомьтесь с нашим [Контрольным списком вопросов] (http://meta.stackoverflow.com/questions/260648/stack-overflow-question-checklist), чтобы помочь вам задать хороший вопрос и, таким образом, получить хороший ответ. –

Какая ошибка возникает при попытке запустить код? Я могу предположить, что одной из проблем является утверждение 'set count = 3'. Оператор 'set' не может использоваться для целого числа. Попробуйте 'count = 3', и если это все еще не работает, опубликуйте сообщение об ошибке. –

Я нашел этот код, но для того, чтобы сделать цикл, мне нужно найти решение для части после ByChange. Какие-либо предложения?

SolverReset SolverOk SetCell: = Клетки (2, 23), MaxMinVal: = 2, ValueOf: = 0, ByChange: = "$ M $ 2, $ N 2", _ двигателя: = 1, EngineDesc : = "Г.Р.Г. Нелинейная"
SolverSolve userfinish:=True 

источник

2016-10-20 11:16:45

ответ

Смежные вопросы