エクセルで複数の数値から近似値の和を出したい

質問

エクセルで複数の値から近似値を出したいのですが、方法はありますでしょうか?

○やりたいこと
複数枚のレシートがあり、合計1万円単位で交換できるサービスに
なるべく無駄なく(1万円に近い金額で)交換したい。

○現状
電卓を何度もたたき、悩みながら手動で組み合わせたり、不足分を
計算しながら会計しレジに持って行きレシートを作成している。
(ただし、対象の買い物は火曜日しかダメなので悩みながら・・・。)

○理想
セルにレシートの絶対値(金額)を書き込み、10枚のレシートで、どう組み合わせたら壱万円に一番近く、誤差がいくら、と表示できたら最高。
金額だけでも表示できれば一生懸命組み合わせを探すことでも対応できるので、
近似値を探してくれるだけでも・・・。
　理屈で言えばぐるナイのゴチバトル店舗のメニュー価格を各セルに入力し、
設定金額になる組み合わせを見つけ出す、という作業をしたいのです。

エクセルでは無理でしょうか？ベクターにあるようなプログラムができれば
難しくないのかもしれませんがわたしにはできないので・・・。

回答No.1

suz83238 · ベストアンサー

結局総当たりでやるしかないんですが、
セルのA1からA11に金額が入っていたとして
下記をやってみて下さい。
セルA15の式で0を掛けてないセルが答えです。

Sub xxx()
Dim b(1), v(1)
b(0) = "*0+"
b(1) = "+"
v(0) = "*0"
v(1) = ""
s = 100000
For i1 = 0 To 1
For i2 = 0 To 1
For i3 = 0 To 1
For i4 = 0 To 1
For i5 = 0 To 1
For i6 = 0 To 1
For i7 = 0 To 1
For i8 = 0 To 1
For i9 = 0 To 1
For i0 = 0 To 1
Cells(12, 1).Formula = "=A1" + b(i1) + "A2" + b(i2) + "A3" + b(i3) + "A4" + b(i4) + "A5" + b(i5) + "A6" + b(i6) + "A7" + b(i7) + "A8" + b(i8) + "A9" + b(i9) + "A10" + v(i0)
sa = Abs(Cells(12, 1).Value - 10000)
If s > sa Then
s = sa
d = Cells(12, 1).Formula
End If
Next i0
Next i9
Next i8
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
Cells(15, 1).Value = " " & d
Cells(16, 1).Value = d
End Sub

回答No.3

n-jun

過去にも色々出ています

http://okwave.jp/search.php3?kw=%83i%83b%83v%83T%83b%83N&boolean=and&search_type=keyword&target_all=1&top_category_id=207&middle_category_id=218&small_category_id=&date_filter=non&sort_type=score

ご参考になれば。

回答No.2

suz83238

すいません。セルのA1からA10です。