Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


60118 / 76732 ←次へ | 前へ→

【21263】Re:複数の数値を3つの規定数に振り分ける
回答  でれすけ  - 05/1/17(月) 20:50 -

引用なし
パスワード
   こんばんは。
こんなのでどうでしょう。
いつも解が見つかるとは限りませんが。

Sub sample()

Range("A1") = 100
Range("A2") = 199
Range("A3") = 300
Range("A4") = 400
Range("A5") = 500

Range("B6") = 200
Range("C6") = 600
Range("D6") = 700

Range("B7:D7").FormulaR1C1 = "=SUMPRODUCT(R1C1:R5C1,R[-6]C:R[-2]C)"
Range("E1:E5").FormulaR1C1 = "=SUM(RC[-3]:RC[-1])"
Range("B8:D8").FormulaR1C1 = "=R[-2]C-R[-1]C"
Range("B9").FormulaR1C1 = "=SUM(R[-1]C:R[-1]C[2])"
Range("B10").FormulaR1C1 = "=SUM(R[-9]C:R[-5]C[2])"
 
SolverReset
SolverOk SetCell:="$B$9", MaxMinVal:=2, ByChange:="$B$1:$D$5"
SolverAdd CellRef:="$B$10", Relation:=2, FormulaText:=5
SolverAdd CellRef:="$B$8:$D$8", Relation:=3, FormulaText:=0
SolverAdd CellRef:="$E$1:$E$5", Relation:=2, FormulaText:=1
SolverAdd CellRef:="$B$1:$D$5", Relation:=4
SolverSolve UserFinish:=True

SolverReset
SolverOk SetCell:="$B$9", MaxMinVal:=2, ByChange:="$B$1:$D$5"
SolverAdd CellRef:="$B$10", Relation:=2, FormulaText:=5
SolverAdd CellRef:="$B$8:$D$8", Relation:=3, FormulaText:=0
SolverAdd CellRef:="$E$1:$E$5", Relation:=2, FormulaText:=1
SolverAdd CellRef:="$B$1:$D$5", Relation:=5
SolverSolve

End Sub
1 hits

【21249】複数の数値を3つの規定数に振り分ける DOG Tribe 05/1/17(月) 17:03 質問
【21251】Re:複数の数値を3つの規定数に振り分ける IROC 05/1/17(月) 17:37 回答
【21258】Re:複数の数値を3つの規定数に振り分ける DOG Tribe 05/1/17(月) 18:32 発言
【21259】Re:複数の数値を3つの規定数に振り分ける IROC 05/1/17(月) 18:38 回答
【21260】Re:複数の数値を3つの規定数に振り分ける DOG Tribe 05/1/17(月) 18:59 お礼
【21263】Re:複数の数値を3つの規定数に振り分ける でれすけ 05/1/17(月) 20:50 回答

60118 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free