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

Answer 2

Проблема в вашем коде заключается в некорректном использовании конструкции Else. В VBA, после ключевого слова Else не должно быть условий. Оно используется для выполнения блока кода, если все предыдущие условия не были выполнены.

В вашем коде у вас есть вложенные условия внутри блока Else, и это вызывает ошибку. Чтобы исправить это, вы можете переструктурировать ваш код следующим образом:

vbaCopy code
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
       ElseIf x < 5 And x > 2 Then
           ' Ваш код для этого случая
       End If
   End If
End Sub

Заметьте, что я добавил ключевое слово ElseIf для обработки ситуации, когда x находится в диапазоне между 2 и 5. Вы можете добавить свой код в этот блок, который будет выполняться в этом случае.