Sub kniga()Dim x As Single, y As Singlex = 3If x <> 0 And x < 2 Then y = Sqr(x * x - 1) - xElse: If x > 5 Then y = 2 * xIf x < 5 And x > 2 Then y = ошибкаEnd IfEnd SubПишет else without if если что это vba

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

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

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

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