ошибка Compile Error: Else without if

Суббота, 04 Января 2014 г. 17:00 + в цитатник

Sub Кнопка3_Щелчок()
Dim x As Single, y As Single
x = Range("A7").Value
If (x <= 0 And x > 0 And x <= 7 And x > 10) Then
           If (x > 7 And x <= 10) Then
                     y = (x ^ 2) + 3
                     Range("C7").Value = y
           Else
                     Range("C7").Value = "Функция не определена"
           End If
Else
           If x = 0 Then
                     Range("C7").Value = "Функция не определена"
           Else
                     y = LNx
                     Range("C7").Value = y
Else
           If x = 0 Then
                     Range("C7").Value = "Функция не определена"
           Else
                     y = КОРЕНЬx
                     Range("C7").Value = y
           End If
End If
End Sub