• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA, opeenvolgende getallen

Status
Niet open voor verdere reacties.

osneck

Gebruiker
Lid geworden
31 okt 2008
Berichten
9
Ik heb een klein bestandje met 24 getallen. De som van de getallen wil ik minimaliseren met behulp van de Solver functie in Excel.
Ik heb twee constraints:
-aantal getallen = 6
-getallen moeten hele getallen zijn (dus 0 of 1)
Nu wil ik een 3e constraint toevoegen: De 6 getallen moeten opeenvolgend zijn, dus niet een combinatie van de 24 getallen, maar welke 6 getallen naast elkaar zijn opgeteld minimaal?

Hieronder de VBA code:

SolverReset
SolverOk SetCell:="$B$5", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$1:$Z$1"
SolverAdd CellRef:="$AA$1", Relation:=2, FormulaText:="6"
SolverAdd CellRef:="$C$1:$Z$1", Relation:=5, FormulaText:="binary"
SolverOk SetCell:="$B$5", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$1:$Z$1"
SolverSolve userFinish:=True
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan