Перебор значений со сложением и вычитанием(вопрос)

[feromonus]

День добрый!
Прошу помочь в следующем решении или направить по тропе истины).

Имеется столбец с числами, их может быть не более 12, хочу сделать выборку всех возможных комбинации со сложением и вычитанием удовлетворяющих условию =0 и видеть эти комбинаций.

Например: 17+11-8-5-2-2-1-1-1=8 не подходит и т.д
17
11
8
5
2
2
1
1
1

Прошу помочь и направить.Почитал по форуму достаточно, но все вокруг да около.Спасибо.

[doober]

Сообщение от feromonus

Имеется столбец с числами, их может быть не более 12, хочу сделать выборку всех возможных комбинации со сложением и вычитанием удовлетворяющих условию =0

 Sub What_for_it_is_necessary()
 A = Array(17, 11, 8, 5, 2, 2, 1, 1, 1)
  For n = 0 To 511
 s = Bin(n, A)
 If s <> "" Then
 MsgBox s
 End If
  Next
End Sub

Function Bin(ByVal mm, Arr) As String
    Dim ss As String
    rez = ""
    Do While mm >= 2
        Md = mm Mod 2
        mm = Int(mm / 2)
        rez = Md & rez
    Loop
    Sum = 0
    rezult = Format(mm & rez, "000000000")
    ss = ""
    For n = 1 To Len(rezult)
        If Mid(rezult, n, 1) = 0 Then
            ss = ss & "+" & Arr(n - 1)
            Sum = Sum + Arr(n - 1)
        Else
            Sum = Sum - Arr(n - 1)
            ss = ss & "-" & Arr(n - 1)

        End If
    Next
    If Sum = 0 Then

        Bin = ss
    Else
        Bin = ""
    End If

End Function

видеть эти комбинаций.

Вот они
+17-11-8+5+2-2-1-1-1
+17-11-8+5-2+2-1-1-1
+17-11-8+5-2-2+1+1-1
+17-11-8+5-2-2+1-1+1
+17-11-8+5-2-2-1+1+1
+17-11-8-5+2+2+1+1+1
-17+11+8+5-2-2-1-1-1
-17+11+8-5+2+2+1-1-1
-17+11+8-5+2+2-1+1-1
-17+11+8-5+2+2-1-1+1
-17+11+8-5+2-2+1+1+1
-17+11+8-5-2+2+1+1+1

[IgorGO]

или так:

Sub Komb(rg As Range, v As Double)
  Dim s As String, si As String, i As Long, k As Long
  For i = 0 To 2 ^ rg.Rows.Count
    si = ""
    For k = 0 To rg.Rows.Count - 1
      si = si & IIf((2 ^ k And i) = 2 ^ k, "+", "-") & rg.Cells(k + 1)
    Next
    If Application.Evaluate(si) = v Then s = s & si & Chr(10)
  Next
  MsgBox s
End Sub


Sub Start()
  Komb [a1:a9], 0
End Sub

[feromonus]

Спасибо душевное помогающим!
Не справился бы!