Excelソルバー関数は、入力変数を持つ列で実行されます

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 

プログラムの目的は、目的の異なるセットを入力し、変数を複数の列に変更することです。

私のコードを実行してください。エラーを生成し続ける。同じプログラムが複数の列に使用したい

Answer 1

thisに基づいて、私は次のサブを使用します...注意すべき

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 

物事を（私はそうそれもApplication.Runラインなしで動作し、テストにそれをやりました）： SolverResetは使用しません。 SetCell、ByChange、およびCellRefに使用される文字列には、Sheet参照が含まれています（厳密には必要ではありませんが、問題を回避するのに役立ちます）。 ValueOfとFormulaTextはテキストではなく数字です。