Почему мой макрос Excel VBA рушится?

Поэтому я сделал макрос Excel, и когда я пытаюсь запустить его, он продолжает сбой. Вот:

result = "fail" j = 4 Do While result = "fail" Or Cells(2, j) <> " " If Cells(2, j).Value >= 15 Then result = "pass" Else j = j + 1 End If Loop 

Цикл Do While result = "fail" Or Cells(2, j) <> " " Do While Do While result = "fail" Or Cells(2, j) <> " " будет работать, если либо result = "fail" либо Cells(2, j) <> " " .

Я думаю, вы хотели выйти из цикла, как только достигнете пустой ячейки, или вы получите result = "pass" . Итак, вам нужно изменить свой « Or на « And :

 Do While result = "fail" And Cells(2, j) <> " " 

Если вы хотите выйти, если в ячейке есть только пустое место, добавьте также Trim .

 Do While result = "fail" And Trim(Cells(2, j)) <> "" 

изменено или в и. цикл должен остановиться где-то, в настоящее время он вступает в бесконечный цикл. PLS попробуйте под кодом и дайте мне знать, если это то, что вы хотели, или я неправильно понял ваше требование.

 Sub tester() result = "fail" j = 4 Do While result = "fail" And Cells(2, j) <> "" If Cells(2, j).Value >= 15 Then result = "pass" Else j = j + 1 End If Loop End Sub 
Interesting Posts

PHPExcel экспортирует HTML-таблицу в xlsx

Формула MS-Excel Networkingdays зависит от рабочей недели

Получение F1 в заголовке Datagridview при импорте из Excel (VB.Net)

Имя пользователя / Directory конфликтует с функцией Public в Excel Addins

JAKARTA POI Удалите всю строку в Excel (не только контент)

Копировать значение и смещение из книги X в рабочую книгу Y только при значении диапазона> 0, затем цикл для оставшихся строк

Показывать дату последнего обновления от OLEDB

Макрос Excel для многострочного автофильтра

Удаление всей строки на основе текста в ячейке этой строки

Ошибка Python: IndexError: не может выполнить непустой выбор из пустых осей

Несоответствие типа аргумента ByRef в Excel VBA

Excel Если ошибка формулы

Планировщик заданий + прерывистый сбой + Как вы отлаживаете или получаете дамп + windows7

Добавьте цикл для разделения основной информации на отдельные листы

Функции Excel не работают должным образом после получения вывода csv из Pandas

Давайте будем гением компьютера.