Excel VBA 質問スレ Part76

[732 デフォルトの名無しさん (ﾜｯﾁｮｲ ff02-tQxS) 2022/06/27(月) 20:18:45.52 ID:UdQiWAN30]

731です。

sub ソルバー()

dim 振込1 as variant
振込1=worksheets("ソルバー").range("n2:n8")

solverok setcell:= worksheets("ソルバー").range("i3"),
maxminval:=3,
valueof:=振込1,
bychange:=worksheets("ソルバー").range("e2:e40"),
enginedesc:="grg nonliner"


solveradd celreff:=worksheets("ソルバー").range("e2:e40"),relation:=4

solversolve userfinish=true