Question

Sub kniga()
Dim x As Single, y As Single
x = 3
If x <> 0 And x < 2 Then y = Sqr(x * x - 1) - x

Else: If x > 5 Then y = 2 * x

If x < 5 And x > 2 Then y = ошибка
End If
End Sub
Пишет else without if если что это vba

Answer 1

Ответ:

Однострочная конструкция:

• If <условие> Then <Делаем чего-нибудь>

Многострочная конструкция:

• If <условие> Then
•   <Делаем чего-нибудь одно>
•   <Делаем чего-нибудь другое>
• Else
•   <Делаем чего-нибудь иное одно>
•   <Делаем чего-нибудь иное другое>
• End if