Как заставить считать по циклу меняя 3 параметра?

Question

[realnin]

В общем на простом примере объясню.

Имеется формула a=10+b*c*d
У меня значения b варируются от 2 до 8 с шагом 2
а значения с с 4 до 10 с шагом 2
d - от 10 до 50 шаг 10
Как заставит формулу считать все эти значения?
т.е сначала ставит первое значение b и считает все значения c, d и т.д.

Comments

[Антон Федорян]

как должен выглядеть конечный результат? все в одной ячейке или только последнее получившееся значение?

[h8nor]

У каждой переменной есть интервал принимаемых значений. Для нахождения a нужно посчитать все 80 вариантов подставляя значения b, c и d, затем исключить дубликаты.

[realnin]

Антон Федорян: все результаты должны быть видны в ячейках

[realnin]

Дѣаволъ: дело в том, что вручную не получится подставлять все значения. Я показал самый простой пример для показа. На самом деле там не очень много итераций.
Меня интересует вопрос: как заставить excel посчитать по формуле, подставляя все возможные значения в диапазоне

Answer 1

[Антон Федорян]

Если использовать только формулы в ячейках, то наверно не получится, формулы не поддерживают циклы.
Если с использованием макроса, то проще:

Dim WB as Workbook
Dim WS as Worksheet
Dim i as Integer

Set WB = Excel.ActiveWorkbook
Set WS = WB.Worksheets("Лист1")

i = 1
For b = 2 To 8 Step 2
    For c = 4 To 10 Step 2
        For d = 10 To 50 Step 10
           ' Выводит числа в столбик '
            WS.Cells(i, 1).Value = 10 + b * c * d
            i = i + 1
        Next d
    Next c
Next b

Если нужны числа без повторений, то имеет смысл использовать массив.

Comments

[realnin]

Благодарю вас. Еще вопросик: можно ли как-то отсортировать их? Т.е при смене значений b в один столбец, при смене c в другой и т.д.?

[Антон Федорян]

realnin: можно завести еще переменную, которая будет отвечать за номер столбца. WS.Cells(i, 1) - здесь i меняет строки, вместо 1 нужно подставить номер столбца

[realnin]

Антон Федорян: что-то никак не получается( можете на примере показать?

[Антон Федорян]

realnin: как должен выглядеть результат?

[realnin]

каждое значение в отдельный столбец(т.е если меняется только один параметр - то в один столбец). Первые значения b и c - меняется только d - в один столбец. Далее первое значение b и второе значение c - меняем d - во второй столбец и т.д. Готов заплатить, если реализуемо

[Антон Федорян]

realnin: если правильно понял, то так:

Dim WB As Workbook
    Dim WS As Worksheet
    Dim col_num As Integer
    Dim row_num As Integer
    
    Set WB = Excel.ActiveWorkbook
    Set WS = WB.Worksheets("Лист1")
    
    col_num = 0
    For b = 2 To 8 Step 2
        For c = 4 To 10 Step 2
            col_num = col_num + 1
            row_num = 0
            For d = 10 To 50 Step 10
                row_num = row_num + 1
                WS.Cells(row_num, col_num).Value = 10 + b * c * d
            Next d
        Next c
    Next b