Excel Solver-Funktion in einer Spalte mit Eingabevariablen ausgeführt

Question

Function Obj_Fnc_Colmn(IN1 As Range, OP1 As Range) 
Application.Run "Solver.xlam!Auto_Open" 
SolverReset 
X_var = IN1.Address 
Y_var = OP1.Address 
MsgBox X_var 
SolverOK SetCell:=Y_var, MaxMinVal:=3, ValueOf:="0", ByChange:=X_var 
SolverAdd CellRef:=X_var, Relation:=3, FormulaText:="0" 

SolverSolve UserFinish:=False 
End Function 

Intention des Programms ist die Eingabe verschiedener Ziele, Variablen in mehreren Spalten ändern.

Bitte gehen Sie meinen Code durch. Fehler weiterhin generieren Das gleiche Programm möchte für mehrere Spalten verwenden.

Answer 1

Basierend auf this, würde ich die folgenden Unter verwenden (ich habe Test es, ja, es funktioniert auch ohne die Application.Run Linie) ...

Option Explicit 
Sub Obj_Fnc_Colmn() 
Dim IN1 As Range, OP1 As Range 
Dim X_Var As String, Y_Var As String 

    Set IN1 = Sheets("Sheet1").Cells(2, 4) 
    Set OP1 = Sheets("Sheet1").Cells(2, 5) 

    X_Var = Split(IN1.Address(external:=True), "[")(0) & Split(IN1.Address(external:=True), "]")(1) 
    Y_Var = Split(OP1.Address(external:=True), "[")(0) & Split(OP1.Address(external:=True), "]")(1) 

    SolverOK SetCell:=Y_Var, MaxMinVal:=3, ValueOf:=0, ByChange:=X_Var, Engine:=1 
    SolverAdd CellRef:=X_Var, Relation:=3, FormulaText:=0 
    SolverSolve UserFinish:=True 

End Sub 

Dinge zu beachten: Es verwendet SolverReset nicht. Die für SetCell, ByChange und CellRef verwendeten Zeichenfolgen enthalten die Sheet-Referenz (nicht unbedingt erforderlich, helfen jedoch, Probleme zu vermeiden). ValueOf und FormulaText sind NICHT Text, sondern Zahlen.