Нужно исправить

[Hannelore]

Вроде код правильный(у других работает), но у меня ошибка.
Почему?

[The_Prist]

У Вас 2 незакрытых If. Первые два. Надо добавить End If. Переписывать Вашу картинку лень, так что додумывайте сами, где они должны быть расположены.

[Hannelore]

Лучше подскажите..


Private Sub Розрахувати()
Dim F, x, z, y, i As Variant
z = Cells(13, 4)
y = Cells(12, 3)
For i = 1 To 9
x = Cells(11 + 1, 2)
If x < y Then
F = 0.5 * Exp((x - 1) / 2)
If x > y Then
F = ((Log(x - y)) / 2) * Exp(x * y)
If x = y Then F = "Поза зоною дослыдження"
Cells(14 + 1, 5) = F
Next i
End Sub

[shanemac51]

Private Sub Розрахувати()
Dim F, x, z, y, i As Variant
z = Cells(13, 4)
y = Cells(12, 3)
For i = 1 To 9
x = Cells(11 + 1, 2)
If x < y Then F = 0.5 * Exp((x - 1) / 2)
If x > y Then F = ((Log(x - y)) / 2) * Exp(x * y)
If x = y Then F = "Поза зоною дослыдження"
Cells(14 + 1, 5) = F
Next i
End Sub

[EducatedFool]

ну и замените ещё

x = Cells(11 + 1, 2)
...
Cells(14 + 1, 5) = F

на

x = Cells(11 + i, 2)
...
Cells(14 + i, 5) = F

[Hannelore]

О, теперь всё отлично)))

[Hannelore]

Всем СПАСИБО))))))