Аналог continue в VBA

[motorway]

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

[EducatedFool]

В VBA нет аналогичного оператора. Собственно, он и не нужен.
Приведите пример кода, и объясните, как он должен работать.

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

[motorway]

...
For Each form In formula
...
frm=... 
' формула
    If (Trim(frm) = "") Then  здесь что-то должно быть
' если формула пустая, то перейти к анализу следующей
Range(...).Formula=frm;
...

В цикле формуле что-то присваивается. Если она пустая, то нужно перейти к следующей, если нет - написать в ячейку такую-то эту формулу. Код примерный

[EducatedFool]

'...
For Each form In Formula
    '...
    'frm=...    ' формула
    If Len(Trim(frm)) Then
        'Range(...").Formula = frm
        ' и т.д.
    End If
Next form

[motorway]

То есть, надо просто сделать проверку наоборот, если строка больше 0 символов, то все остальное?

[EducatedFool]

А по-другому нельзя?

Можно. Но оператор 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

Но лучше использовать вложенные IF-ы:

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

[motorway]

Спасибо. Наверно, можно обойтись только положительными условиями, т.е. что-то делать, если только что-то выполняется. Тогда не надо будет делать continue. Т.е. не проверять, равна ли строка пустой, а просто: если больше 0, то ...

[EducatedFool]

Наверно, можно обойтись только положительными условиями

Не обязательно.
Даже если у Вас не получается придумать "положительное" условие, можно работать и с отрицательными:

        If Not Trim(frm) = "" Then
            Range("a1").Formula = frm
            
            If Not xxx < 1 Then
                ' и т.д.
            End If
        End If

[valerij]

Сообщение от EducatedFool

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

Игорь, а почему, поясни, пожалуйста?

[EducatedFool]

Сообщение от valerij

Игорь, а почему, поясни, пожалуйста?

Если хочешь узнать ответ на какой-либо вопрос, надо воспользоваться поиском.

Цитата с http://ru.wikipedia.org/wiki/GOTO

Критика

Оператор GOTO в языках высокого уровня является объектом критики, поскольку чрезмерное его применение нарушает иерархическую структуру программы и приводит к созданию нечитаемого «спагетти-кода». Впервые эта точка зрения была отражена в статье Эдсгера Дейкстры «Доводы против оператора GOTO»[1], который заметил, что качество программного кода обратно пропорционально количеству операторов GOTO в нём. Статья приобрела широкую известность как среди теоретиков, так и среди практиков программирования, в результате чего взгляды на использование оператора GOTO были существенно пересмотрены. В своей следующей работе Дейкстра обосновал тот факт, что для кода без GOTO намного легче проверить формальную корректность.

Код с GOTO трудно форматировать, так как он может нарушать иерархичность выполнения, и потому отступы, призванные отображать структуру программы, не всегда могут быть выставлены правильно. GOTO аннулирует многие возможности компилятора по оптимизации управляющих структур, из-за чего исполняемый код становится медленней и объёмней[2].

Доводы против оператора GOTO оказались столь серьёзны, что в структурном программировании его стали рассматривать как крайне нежелательный. Это нашло своё отражение при проектировании новых языков программирования. Например, GOTO был намеренно полностью запрещён в Java и Ruby. Вместе с тем, в Аде — одном из наиболее продуманных с точки зрения архитектуры языке за всю историю[3], GOTO всё же был оставлен.

Формально доказано, что применение GOTO не является обязательным (то есть не существует такой программы с GOTO, которую нельзя было бы переписать без этого оператора с полным сохранением функциональности). Одним из доводов против GOTO является то, что в некоторых случаях программисты ставят GOTO, чтобы быстрее достичь желаемого результата (написать фрагмент программы с определёнными свойствами), в то время как отсутствие GOTO заставило бы их провести более внимательный анализ задачи, который обычно приводит к получению более ясного, эффективного и лучше организованного кода.


Оправданное применение

Тем не менее, в практическом программировании применение GOTO в некоторых случаях можно считать допустимым. Поскольку GOTO — «простейший», «атомарный» оператор перехода, а все остальные являются «составными», производными от него, то применение GOTO допустимо и оправданно, когда другие средства языка не реализуют или недостаточно эффективно реализуют нужную функциональность.
К таким случаям можно отнести:

1) Выход из нескольких вложенных циклов сразу
2) Обработка ошибок