Программирование VBA. Вложенный цикл, цикл с разветвлением.

[imeow]

Здравствуйте :)
Застопорилась на теме циклов, а именно вложенного цикла. Прошу помощи в написании программки для следующего задания:
Составить программу вычисления суммы и таблицы значений:

$$z=\left \{ \begin{array}{l} \sqrt(x^3+y^2)\ ,\ если x^3+y^2>0 \\ x^3+y^2\ ,\ если x^3+y^2<0 \end{array} \right. $$

где переменная $x$ изменяется в интервале $-5<x<5$ с шагом $h=0,8$; $y$ принимает значения: 4; 0,1; 9; 5; 998.


Загвоздка как раз таки в составлении таблицы, не знаю как заставить программу мне это грамотно вывести.
Сырая заготовка выглядит так:

For Each y In Array(4, 0.1, 9, 5, 998)
For x = -5 To 5 Step 0.8
x = Sheets("лист2").Cells(2, 2)
Z = x ^ 3 + y ^ 2
If Z > 0 Then Z = Sqr(Z)
Sheets("лист2").Cells(2, 2) = Z
Next
Next
End Sub

Собственно после выполнения выводит в ячейку (2,2) одно значение $Z$. Как изменить/что добавить, чтобы все оформилось в таблицу для каждого из меняющихся $y$ и $x$?

[Toucan]

Тема перемещена в Карантин.

1. Запишите формулы в соответствии с требованиями Правил форума, т.е. в $\TeX$.
Краткие инструкции можно найти здесь: topic8355.html и topic183.html.
Кроме этого, в теме Видео-пособия для начинающих форумчан можно посмотреть видео-ролик "Как записывать формулы".

2. Приведите свои попытки решения задач и объясните, что конкретно вызывает затруднения.

После того как исправите сообщение, сообщите об этом в теме Сообщение в карантине исправлено.

[Toucan]

Тема перемещена из форума «Карантин» в форум «Программирование»

[warlock66613]

Добавьте пару счётчиков - один для столбца и один для строки.

Dim CellColumn As Integer
CellColumn = 2
For Each y In Array(4, 0.1, 9, 5, 998)

    Dim CellRow As Integer
    CellRow = 2
    For x = -5 To 5 Step 0.8

        x = Sheets("лист2").Cells(2, 2)
        Z = x ^ 3 + y ^ 2
        If Z > 0 Then Z = Sqr(Z)
        Sheets("лист2").Cells(CellRow, CellColumn) = Z

        CellRow = CellRow + 1
    Next

    CellColumn = CellColumn + 1
Next

End Sub

(Не знаю в каком порядке в Cells() нужно передавать строку и столбец - возможно надо поменять).