Wiederholen Löser mit VBA

-2

Ich versuche, eine Schleife, um Solver über ein paar Zeilen zu wiederholen, aber ich kann meinen Code nicht funktionieren. Weiß jemand was ich vermisse? Der schwierige Teil ist, dass ich versuche, eine Zelle (T3) zu minimieren, indem ich eine Reihe von Zellen (L3: M3) verändere.Wiederholen Löser mit 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

Quelle

2016-10-05 Lieke Vermunt

Willkommen bei Stack-Überlauf! Bitte lesen Sie unsere [SO Fragen-Checkliste] (http://meta.stackoverflow.com/questions/260648/stack-overflow-question-checklist), um Ihnen zu helfen, eine gute Frage zu stellen und so eine gute Antwort zu erhalten. –

Welchen Fehler erhalten Sie, wenn Sie versuchen, den Code auszuführen? Ich kann davon ausgehen, dass eines der Probleme die Aussage 'set count = 3' ist. Die Anweisung 'set' kann nicht für eine Ganzzahl verwendet werden. Versuchen Sie 'count = 3' und wenn das immer noch nicht funktioniert, schreiben Sie Ihre Fehlermeldung. –

Ich habe jetzt diesen Code gefunden, aber um eine Schleife zu machen, muss ich nach ByChange eine Lösung für den Teil finden. Irgendwelche Vorschläge?

SolverReset SolverOk SetCell: = Cells (2, 23), MaxMinVal: = 2, ValueOf: = 0, ByChange: = "$ M $ 2, N $ 2 $", _ Motor: = 1, EngineDesc : = "GRG Nonlinear"
SolverSolve userfinish:=True 

Quelle

2016-10-20 11:16:45

Wiederholen Löser mit VBA

Antwort

Verwandte Themen