Skip to content

Instantly share code, notes, and snippets.

@JackDunnNZ

JackDunnNZ/gist:917ad455b290161ed59d

Last active August 29, 2015 14:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save JackDunnNZ/917ad455b290161ed59d to your computer and use it in GitHub Desktop.
Save JackDunnNZ/917ad455b290161ed59d to your computer and use it in GitHub Desktop.
Download ZIP
OpenSolver API example
Raw
gistfile1.vb
Sub Model_Creation()
Dim TestSheet As Worksheet
Set TestSheet = Sheets("test")
OpenSolver.ResetModel Sheet:=TestSheet
'Objective Definition
OpenSolver.SetObjectiveFunctionCell TestSheet.Cells(1, 1), Sheet:=TestSheet
OpenSolver.SetObjectiveSense MinimiseObjective, Sheet:=TestSheet
'Variables Definition
OpenSolver.SetDecisionVariables Union(TestSheet.Range(Cells(3, 1), Cells(3, 4)), TestSheet.Range(Cells(5, 1), Cells(5, 4))), Sheet:=TestSheet
'Constraints Definition
OpenSolver.AddConstraint TestSheet.Range(Cells(3, 1), Cells(3, 4)), RelationBIN, Sheet:=TestSheet
OpenSolver.AddConstraint TestSheet.Range(Cells(7, 1), Cells(7, 4)), RelationLE, TestSheet.Range(Cells(8, 1), Cells(8, 4)), Sheet:=TestSheet
OpenSolver.AddConstraint TestSheet.Range(Cells(10, 1), Cells(10, 4)), RelationGE, TestSheet.Range(Cells(11, 1), Cells(11, 4)), Sheet:=TestSheet
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment