нахождение в массиве суммы значений, удовлетворяющих условию

[azov]

В простейшем случае имеем массив (матрицу) 2Х2, заполненную произвольными числами (реально- произвольное количество столбцов и строк). Нужно просуммировать каждое число с каждым по строкам. В простейшей матрице- это: a1+b1; a1+b2; a2+b1;a2+b2. Из полученных значений нужно выбрать наиболее приближенное к заданному условию (числу), или совпадающее с ним. Условие вводится вручную, как и данные в таблицу. Понимаю, что это операции с массивами, но как быть дальше?

Для матрицы 3х3:
a1+b1+c1
a1+b2+c1
a1+b3+c1
a1+b1+c2
a1+b1+c3
a1+b2+c2
a1+b2+c3
a1+b3+c2
a1+b3+c3

a2+b1+c1
a2+b2+c1
a2+b3+c1
a2+b1+c2
a2+b1+c3
a2+b2+c2
a2+b2+c3
a2+b3+c2
a2+b3+c3

a3+b1+c1
a3+b2+c1
a3+b3+c1
a3+b1+c2
a3+b1+c3
a3+b2+c2
a3+b2+c3
a3+b3+c2
a3+b3+c3
Максимальное число столбцов-5, строк- 100

[SAS888]

А где исходно находятся данные матрицы?
Если

Условие вводится вручную, как и данные в таблицу

, то куда их помещать? И еще: не устанешь вводить матрицу 5 Х 100 ?

[azov]

на листе Excel

[ZORRO2005]

azov

a1+b1+c1
a1+b2+c1
a1+b3+c1
a1+b1+c2 -Это первый(левый) столбец в матрице?
a1+b1+c3
a1+b2+c2
a1+b2+c3
a1+b3+c2
a1+b3+c3

[SAS888]

Уточните, что в Вашем примере означают a1, b1, c1 и т.д.
Другими словами, не понял, что значит

просуммировать каждое число с каждым по строкам

Пусть, например, в строке 1 имеются значения:
a b c d e
Значения каких сумм получать для последующего анализа в этой строке?

[dsapa]

SAS888, azov имеет ввиду ячейки A1, B1,C1, A2,B2.C2, A3,B3,C3.
И вот значения из этих ячеек нужно сложить в разных вариантах.
Приведен пример для матрицы 3х3. А хотелось бы общий вариант на VBA.

[azov]

a....e- произвольные положительные целые числа,которые вводятся в таблицу как исходные данные. Подсчет ведется по вышеприведенному алгоритму путем суммирования каждого числа первого столбца с перебором всех чисел в последующих. Для примера я привел перебор возможных значений в таблице3х3

[IgorGO]

SAS888, ZORRO2005 - это снова сочетания. Перебираем все возможные сочетания элементов по столбцам т.е. в сочетании должно быть по одному элементу с каждого столбца. для каждого сочетания определяем сумму его элементов, там где квадрат разности суммы элементов и цели будет наименьшим - это сочетание и победило.

[azov]

Dsapa, вы, наверное, точнее изложили

[slan]

Sub recur(ByVal c As Long, r As Long, sm As Double, maxc As Long)
Dim i As Long
For i = 1 To r
sm = sm + arr(r, c) ' накапливаем сумму
If c < maxc Then 'если это не последний элемент суммы, то
Call recur(c + 1, r, sm, maxc) ' идем дальше
Else ' иначе начинаем сравнивать результат
dr_r = Abs(sm - dm) ' если есть приближение к заданному значению
If dr_r < dr Then
If dr_r < dt Then ' если сумма удовлетворяет заданной точности( равна заданному значению) то, наверное, выходим, устанавливая флаг выхода
End If
Else
dr = dr_r ' запоминаем и идем дальше
End If

End If

Next
End Sub


критикуйте