Excel関数での計算が可能でしょうか

質問

Excelの関数でこんなことができるか教えてください。

列に１から１０までの整数が有ります。この中から足して１２になるパターンを抽出する。
条件-1つのパターンに対し、同一整数は1度しか使えません。

回答No.4

noname#70958

選択肢が１から１０の整数に限られるのであれば、
組み合わせは2^10=1024通りしかありませんから、
すべてを書き出して虱潰しでチェックしてもなんとかなります。

０．1行目は見出し行として空けておきます。

１．A2セルを
　　=IF(ROW()-1>2^10,"",IF(MOD((ROW()-1),2^COLUMN())/2^(COLUMN()-1)>=1,COLUMN(),""))
　として、J2セルまで右方にフィル

２．K2セルを
　　=SUM(A2:J2)
　とする

３．A2:K2セルを、数字が返らなくなるまで下方にフィル

４．オートフィルタでK列が12であるものを抽出
----------------------------------------------------------------
ちなみに結果は、
　(10,2)　(9,3)　(9,2,1)　(8,4)　(8,3,1)　(7,5)　(7,4,1)　
　(7,3,2)　(6,5,1)　(6,4,2)　(6,3,2,1)　(5,4,3)　(5,4,2,1)
の13通りです。

回答No.3

kigoshi

「関数で」という条件であれば（可能かも知れませんが）かなり困難かと思います。
ご質問の条件からはずれますが、ＶＢＡを使用した例を書きます。

手順
１）A1セル～A10セルにそれぞれ１から10までを入力。
２）シートタブを右クリック、「コードの表示」をクリック。
３）画面右側のエディタエリアに下記コードを貼り付け。
４）[Ｆ５]キーを押してマクロを実行。

これでＢ列に加算パターンが全て表示されるはずです。

ご参考になれば。

Const rTOTAL As Integer = 12
Sub sumPattern()
Dim nMax, rIdx, rIdx2, sTotal As Integer
Dim nNum As String
Dim nPat, nPatC As Long
nMax = Range("A65536").End(xlUp).Row
For nPat = 1 To 2 ^ nMax - 1
sTotal = 0
nNum = ""
nPatC = nPat
For rIdx = 1 To nMax
If nPatC Mod 2 = 1 Then
sTotal = sTotal + Cells(rIdx, 1).Value
If sTotal > rTOTAL Then Exit For
nNum = nNum & CStr(Cells(rIdx, 1).Value) & "＋"
End If
nPatC = Int(nPatC / 2)
Next
If sTotal = rTOTAL Then
rIdx2 = rIdx2 + 1
Cells(rIdx2, 2).Value = Left(nNum, Len(nNum) - 1) & "＝" & CStr(rTOTAL)
End If
Next
End Sub

お礼

やはり、関数では難しいのですね
ありがとうございました。

回答No.2

suekun

ソルバーの使い方の一例を見つけましたので提示しておきます。

http://hpcgi1.nifty.com/kenzo30/a_cbbs/cbbs.cgi?mode=al2&namber=3978&no=0&P=R&KLOG=21

お礼

ありがとうございます

私の質問の仕方が、不十分で申し訳ありません。
試してみたのですが、この方法での、すべてのパターンを出す方法がわかりません

例えば：1+2+3+6=12
2+3+7=12
のような、トータルが12になる為には、何パターンの式が成り立つか
を出すことが可能でしょうか?

回答No.1

suekun

関数でも長く組み立てれば（作業列等も含めて）可能な気がしますが
用意されている機能の一つであるソルバーで対応出来ると思います。

ソルバーでぐぐって見て下さい。

お礼

ご回答ありがとうございます
今までソルバーを使用したことが無かったので、思いつきもしませんでした。
調べながら、試してみます。

まだ他の方法もあるようでしたら
教えていただきたくお願いします。