Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Пропустить элемент в Each-Next
 
#1
28.12.2015 16:24:50
Добрый день!
Периодически сталкиваюсь с тем, что при переборе данных циклом Each-Next , нужно проверить, соответствует ли каждый элемент определенному условию, прежде чем его обрабатывать дальше. Если не соответствует, необходимо перейти к следующему элементу, не обрабатывая этот (и не прекращая цикл). Все время это делаю посредством GoTo, но есть смутные догадки, что можно сделать как-то проще. А можно ли?
Пример:
Код
    For Each itm In ws.Range("Суммы")
        If itm = "" Then GoTo ToNext
        ...
        ...
ToNext:
    Next itm
Изменено: Ungrateful - 28.12.2015 16:28:40
 
 
 
#2
28.12.2015 16:26:33
Будьте проще:
Код
For Each itm In ws.Range("Суммы")
        If itm <> "" Then
        ...
        ...
end if
    Next itm
Изменено: Hugo - 28.12.2015 16:27:39
 
 
 
#3
28.12.2015 16:27:30
Можно.
Достаточно убрать GoTo ToNext, как совершенно лишнее, и заменить "=" на "<>".
 
 
 
#4
28.12.2015 16:27:56
Код
For Each itm In ws.Range("Суммы")
        If itm <> "" Then 
           ...
           ...
        End If
    Next itm
 
 
 
#5
28.12.2015 16:31:09
Всем спасибо, вижу, что затупил )
 
 
 
#6
28.12.2015 16:33:41
Для разнообразия  :D
Код
For Each itm In ws.Range("Суммы")
        If itm= "" Then
Else
           ...
           ...
        End If
    Next itm
 
 
 
#7
28.12.2015 16:42:22
RAN, примерно также и получилось, + еще условия перед Else, спасибо )
Мне от чего-то все время хотелось добавить условие типа Exit For. Если условие не выполняется, то Next itm.
Изменено: Ungrateful - 28.12.2015 16:45:06
 
 
 
Страницы: 1
Читают тему
Наверх