Использование циклов для обработки данных в таблице

[MrRick]

1. Для каждого столбца из диапазона, полученного в предыдущей задаче, вычислить наименьшее положительное значение. Записать их на Лист Excel под каждым столбиком.
2. Для столбца Z из того же диапазона подсчитать количество отрицательных элементов, расположенных до первого положительного.

Sub ЛабораторнаРобота6()
Range("A1").Value = "X"
Range("B1").Value = "Y"
Range("C1").Value = "Z"
Dim x As Single, y As Single, z As Single, i As Integer
i = 2
For x = -2 To 1.1 Step 0.1
If x >= -2 And x <= 1 Then
y = 3 * Sin(x) - Cos(x) ^ 2
Else
y = 3 * (1 + x ^ 2) ^ (1 / 2) - 0.7 * x
End If
z = (1 / 2) * Sin(3 * y)
Cells(i, 1).Value = x
Cells(i, 1).NumberFormat = "0.0"
Cells(i, 2).Value = y
Cells(i, 3).Value = z
i = i + 1
Next x
End Sub

------
тема закрыта во избежание дальнейшего флуда.
Модератор

[kuklp]

MrRick, это Вы с кем тут общаетесь?

[MrRick]

В каком смысле ?

[kuklp]

В самом простом. Перечитайте свои посты. К кому это и зачем? Чего ждете, поздравлений, сочувствий, пожеланий? Или Вы сюда пообщаться с собой заходите?

[MrRick]

Я кинул код вверху задания, что не так ?

[kuklp]

Вот я и спрашиваю, кому и зачем Вы его кинули?

[MrRick]

Я кинул для того, что бы кто-то помог.

[kuklp]

Вот оно что! Я и не понял. Показалось, что кто-то кому-то дал указания. И в том же посте получил ответ. Поэтому и спросил:

Вы сюда пообщаться с собой заходите?

[MrRick]

Извини, я просто не знаю как тут правильно темы оформлять, просто сказали что в названии не должно быть слов помогите пожалуйста и всё.

[kuklp]

Дорогуша, я с Вами свиней(гусей) не пас. И на брудершафт мы не пили. Не надо мне ТЫкать. Вы себе кидайте и дальше, а я пока побежал выполнять Ваши предыдущие приказы.