No.2ベストアンサー
- 回答日時:
ご質問の内容は、いわゆる「部分和問題」の一種で
残念ながらExcelの数式で解決するのは困難です。
数式以外のアプローチで解決できる可能性はありますが
以下のような条件によって(可能かどうかも含め)話が違ってきます。
以下「合計が一致する各商品の個数の組合せ」を「解」と呼びます。
●解が複数ある場合
解は一つとは限りません。
解が複数ある場合に
・どれか一つの解が判ればよい
・できるだけ多くの解を知りたい
・すべての解を求める必要がある
いずれかによって話が違います。
●解がない場合
合計がキッカリになる個数の組合せがないこともありえます。
・キッカリになる解が必ずあるハズ
・解がない場合に、ないことが判ればよい
・できるだけ近い額になる組合せを知りたい
・合計以下で近い額になる組合せを知りたい
・合計以上で近い額になる組合せを知りたい
いずれかによって話が違いきます。
●商品の種類
商品の種類が多いほど調べるべき組合せが増えます。
商品の種類が
・数種類しかないのか
・数千種類あるのか
で話が違います。
●単価と合計の比
各商品の単価が小さいほど/合計の額が大きいほど、
調べるべき組合せが増えます。
単価と合計の比が、
・1:10程度なのか
・1:1000といったオーダーになるのか
で話が違います。
商品の種類が少なく、解を一つ見つければ良いような場合には
Excelの機能である[ソルバー]で解が見つかることもあります。
一方、商品の種類が多い場合や、すべての解を知りたい場合は
VBA(マクロ)を使うのが現実的です。
VBAを使うにしても、さまざまなアルゴリズムが考えられますが
とりあえず再帰処理によるコードを上げておきます。
B1セルに合計、B4セル以下に各商品の単価を入力して実行すると
合計が一致する商品の個数をC列以降に書き出します。
以上ご参考まで。長乱文陳謝。
Dim oRng As Range
Dim oAry() As Long, tAry() As Long, rAry() As Variant
Dim oCnt As Long, rCnt As Long, rLmt As Long
Dim t As Variant
Sub Sample()
Dim i As Long
t = Timer
Set oRng = Range(Cells(4, 2), Cells(Rows.Count, 2).End(xlUp))
oCnt = oRng.Cells.Count
rLmt = Columns.Count - 2
rCnt = 0
ReDim oAry(1 To oCnt)
ReDim tAry(1 To oCnt)
ReDim rAry(1 To oCnt, 1 To rLmt)
oRng.Offset(0, 1).Resize(, rLmt).ClearContents
For i = 1 To oCnt
oAry(i) = oRng(i, 1)
Next i
Call SampleS(1, Cells(1, 2).Value)
oRng.Offset(0, 1).Resize(, rLmt).Value = rAry
MsgBox rCnt & " 通り" & vbCrLf & Format(Timer - t, "0.00 秒")
End Sub
Private Sub SampleS(ByVal iIdx As Long, ByVal tSum As Long)
Dim i As Long
If tSum = 0 Then
rCnt = rCnt + 1
For i = 1 To oCnt
If tAry(i) <> 0 Then
rAry(i, rCnt) = tAry(i)
End If
Next i
If rCnt = rLmt Then
oRng.Offset(0, 1).Resize(, rLmt).Value = rAry
MsgBox rCnt & " 通り以上" & vbCrLf & Format(Timer - t, "0.00 秒")
End
End If
Exit Sub
End If
If iIdx > oCnt Then Exit Sub
For i = Int(tSum / oAry(iIdx)) To 0 Step -1
tAry(iIdx) = i
Call SampleS(iIdx + 1, tSum - oAry(iIdx) * i)
Next i
End Sub
参考URL:http://ja.wikipedia.org/wiki/%E9%83%A8%E5%88%86% …
No.1
- 回答日時:
例えば、「AはBより2個少ない」とか、「CはBの4倍」と言うような、各商品毎の個数の関係が判明しているのであれば可能になりますが、その様な関係が無く、全く無関係に商品の個数が決まるのであれば、逆算する方法は、この世に存在しません。
エクセルは勿論、どんなスーパーコンピューターを使って、天才数学者が計算したとしても答えは出ません。
何故なら答えが存在しないからです。
例えば、Aが300円、Bが200円、Cが100円の時、合計が1000円だとします。
Aが2個、Bが1個、Cが2個の時は合計が1000円ですが、
Aが1個、Bが2個、Cが3個の時や、
Aが1個、Bが1個、Cが5個の時や、
Aが1個、Bが3個、Cが1個の時も
全て合計が1000円になります。 各商品の値段と料金の合計が同じである組み合わせが幾つも存在しているのですから、他の情報が無ければ、どの組み合わせが正解であるのかを、判断する事は不可能です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで決められた合計になる組み合わせを作成
その他(ソフトウェア)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
tanX=Xの解
-
Excelで合計値を基にデータを均...
-
微分の重解条件は公式として使...
-
助けて下さい。数学です。
-
なんで4次方程式f(x)=0がx=2を...
-
16の4乗根は±2ではない!?
-
3次式の逆関数の求め方
-
2次方程式が2つの正の解を持...
-
3次方程式の定数の範囲の問題で...
-
解なし≠解はない
-
数学の質問です。 2つの2次方程...
-
微分方程式で、分母=0の場合は...
-
整数の問題
-
一枚の板から何枚取れるか?
-
文字の定数を含む4次方程式の解...
-
微分方程式 定常解について・・・
-
数学 二次方程式
-
x^y=y^x (x>y)を満たす整数解は...
-
df(x)/dx=f(x)の解はf(x)=Ae^x...
-
答えを教えて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで合計値を基にデータを均...
-
適正解と最適解
-
微分の重解条件は公式として使...
-
解なし≠解はない
-
微分方程式についてです。 xy'-...
-
tanX=Xの解
-
数学の質問です。 2つの2次方程...
-
微分方程式 定常解について・・・
-
3次関数と直線が接する場合、...
-
16の4乗根は±2ではない!?
-
複数の品目での単価と全体の合...
-
aの値に関係なくとよく問題で見...
-
解に3つ以上±や∓がある時複号...
-
必要条件、、十分条件、必要十...
-
数学についてです 「 aを定数と...
-
微分方程式で、分母=0の場合は...
-
一枚の板から何枚取れるか?
-
3次関数と1次関数が接するとき
-
何故グラフに接するとき重解に...
-
答えを教えて
おすすめ情報