Обратная калькуляция с параметрами

[ru3000]

Помогите разобраться с поставленной задачей. Есть значение (например 10), нужно, чтобы формула подобрала из предлагаемого списка два значения, в сумме которых и получилось 10.
Подробнее:
Таблица1 имеет значения: 1,2,3,4,5
Таблица2 имеет значения: 5,6,7,8,9
Вписываем в ячейку C1 - 10
В ячейке A1 должно появиться - 1; в ячейке B1 - 9
Или: в ячейке A1 - 2; в ячейке B1 - 8
Или 3 и 7, или 4 и 6, или 5 и 5

[alex77755]

Ну можно примерно так:

Sub задача()
For I = 0 To UBound(Таблица1) - 1
  For J = 0 To UBound(Таблица2) - 1
    If Таблица1(I) + Таблица2(J) = Cells(1, 3) Then
    Cells(1, 1) = Таблица1(I)
     Cells(1, 2) = Таблица2(J)
     Exit Sub
     End If
  Next J
Next I
MsgBox "Вариантов нет"
End Sub

Таблицы назначь только

[IgorGO]

см.вложение