Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

2nd
Авг

Аналог continue в VBA?

Posted by Chas under Basic, Пост-обзор

Делаю цикл For Each. Нужно провалиться на следующий элемент массива — аналогично continue в др. языках. Как сделать это?

EducatedFool:
Для выхода из цикла есть команда Exit For
Для более подробной информации ставим курсор на слово Each, и нажимаем F1

примеры:

'...

For Each form In Formula

    '...

    'frm=...    ' формула

    If Len(Trim(frm)) Then

        'Range(...").Formula = frm

        ' и т.д.

    End If

Next form

Можно. Но оператор Goto обычно стараются не применять.

Sub test()

    For Each form In Formula

        frm = "sdfsdsdfsdf"  ' формула
        If Trim(frm) = "" Then GoTo 1    ' аналог continue

        Range("a1").Formula = frm
        If xxx < 1 Then GoTo 1    ' аналог continue
        ' и т.д.
1:
    Next form
End Sub[/code]

Но лучше использовать вложенные IF-ы:
[code]Sub test()
    For Each form In Formula
        frm = "sdfsdsdfsdf"  ' формула

        If Len(Trim(frm)) Then
            Range("a1").Formula = frm
            
            If xxx >= 1 Then

                ' и т.д.

            End If

        End If

    Next form

End Sub

тема на форуме