Block if without end if
I am very new to VBA. I tried to calculate median for a vector. The following code keeps getting warning regarding «Block if without End if». I tried to change the place of «End IF», but it resulted in another warning «Block end if without if». Your input would be appreciated. Thanks.
2 Answers 2
The code was missing more than one End If . And there were 2 missing Loop statements as well.
When the code is complex enough that sorting out the block end statements becomes challenging, make a copy of the procedure and throw away basically everything other than the block control statements. That method leaves this from your current code.
And here is my best guess for what you need instead. I appended comments to several of those statements because it helps me match them up properly.
Name already in use
VBA-content / VBA / Language-Reference-VBA / articles / block-if-without-end-if.md
- Go to file T
- Go to line L
- Copy path
- Copy permalink
- Open with Desktop
- View raw
- Copy raw contents Copy raw contents
Copy raw contents
Copy raw contents
Block If without End If
An error occurred due to an incomplete statement. This error has the following cause and solution:
- An If statement is used without a corresponding End If statement. A multiline If statement must terminate with a matching End If statement. For nested If. End If statements, make sure there is a correctly matched If. End If structure inside each enclosing If. End If structure.
For additional information, select the item in question and press F1 (in Windows) or HELP (on the Macintosh).
Footer
© 2023 GitHub, Inc.
You can’t perform that action at this time.
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session.
Особенности работы с управляющими структурами
Важной особенностью использования конструкций принятия решений является то, что с их помощью можно создавать так называемые вложенные структуры, когда одна конструкция располагается внутри другой. В качестве примера ниже приведен фрагмент программы, в котором в зависимости от результата заполняется один из двух массивов: любо таблица сложения, любо таблица умножения чисел от 1 до 10.
Как видно из примера, для заполнения массивов используются вложенные циклы For. В подобных случаях при записи программного кода для повышения читаемости принято каждый следующий уровень вложенности смещать относительно предыдущего.
Следует обратить внимание на тот факт, что для окончания выполнения каждой пары вложенных циклов в этом случае использовалось одно ключевое слово Next с перечислением имен изменяемых в данный момент счетчиков. При этом первому по порядку указанному счетчику соответствует ближайшее служебное слово For. В том случае, если возникнет несовпадение имени счетчика с ключевым словом Next, компилятор выдает сообщение об ошибке.
Аналогичным образом действуют также вложенные конструкции принятия решений: в них первый по порядку End If применяется к последнему из имеющихся If, причем количество тех и других должно совпадать. Если же возникает преобладание какого-либо из этих ключевых слов, то на стадии компиляции возникает ошибка с выведением стандартного сообщения. К таким же последствиям приведет несоответствие количества служебных слов для начала и окончания различных разновидностей циклов.
Возможные системные сообщения при возникновении описанной ошибки компиляции:
- Block If without End If — Отсутствие End If для блока If
- Else without If — Использование Else без If
- End If without block If — Отсутствие блока If для End If
- For without Next — Использование For без Next
- Next without For — Использование Next без For
- Do without Loop — Использование Do без Loop
- Loop without Do — Использование Loop без Do
В том случае, когда необходимо прервать выполнение цикла, применяются разновидности оператора Exit, который располагается в конструкции принятия решения. При этом для цикла For:Next используется Exit For, а для любого из циклов Do:Loop применяется Exit Do. После выполнения данного оператора происходит немедленное завершение цикла без выполнения, каких либо дополнительных операций.
Если аварийное завершение было использовано в цикле For:Next, то значение переменной-счетчика останется таким, каким оно было в момент выхода, в отличие от нормального завершения цикла, когда оно становится на единицу больше заданного конечного значения. Приведенная особенность зачастую может быть использована при решении различных задач.
Имеется массив из десяти числовых элементов. Необходимо определить среди них первое положительное значение и его индекс, после чего завершить дальнейшую проверку.
Thread: END IF WITHOUT BLOCK IF
VBAX Newbie Joined Apr 2016 Posts 2 Location
END IF WITHOUT BLOCK IF
I have been trying to write an IF but keep getting the compile error "END IF WITHOUT BLOCK IF", here is my code:
- View Profile
- View Forum Posts
Mac Moderator VBAX Guru 
Joined May 2007 Location Davis CA Posts 2,778
Your Do’s don’t have matching Loop lines.
Do. Loop is a structure to loop commands, but looping doesn’t seem appropriate for that routine. What are you trying to achieve and what do you think that the Do lines are doing?
- View Profile
- View Forum Posts
Knowledge Base Approver VBAX Guru Joined Sep 2008 Posts 3,364 Location
- View Profile
- View Forum Posts
VBAX Newbie Joined Apr 2016 Posts 2 Location
- View Profile
- View Forum Posts
Mac Moderator VBAX Guru Joined May 2007 Location Davis CA Posts 2,778
- View Profile
- View Forum Posts
VBAX Sage /> />Joined Apr 2007 Location United States Posts 8,435 Location
I’m not sure what your intent is, but I’ve found that ‘blocking’ and indenting helps the readability (the If and End If)
Usually do not need to select something if you’re going to use or operate on it. That’s usually the first thing I change after I record a macro
The macro recorder records all the misc clicking and scrolling so I delete them also
Remember: Tell us WHAT you want to do, not HOW you think you want to do it