VBA - как условно пропустить итерацию цикла

Question

VBA - как условно пропустить итерацию цикла

65

У меня есть цикл for над массивом. То, что я хочу сделать, - это тест для определенного условия в цикле и переход к следующей итерации, если true:

For i = LBound(Schedule, 1) To UBound(Schedule, 1)
    If (Schedule(i, 1) < ReferenceDate) Then
        PrevCouponIndex = i
        Continue   '*** THIS LINE DOESN'T COMPILE, nor does "Next"
    End If
    DF = Application.Run("SomeFunction"....)
    PV = PV + (DF * Coupon / CouponFrequency)
Next

Я знаю, что могу:

 If (Schedule(i, 1) < ReferenceDate) Then Continue For

но я хочу иметь возможность записать последнее значение я в переменной PrevCouponIndex.

Любые идеи?

Спасибо

Richard H 30 дек. 2011, в 14:18

Источник

1

Вы сказали: «Я знаю, что могу сделать: If (Schedule(i, 1) < ReferenceDate) Then Continue For » Вы уверены в этом? Continue не является ключевым словом VBA.
mwolfe02 30 дек. 2011, в 14:59
0

@ mwolfe02 - нет, не уверен, но где-то видел в примерах (cpearson?)
Richard H 30 дек. 2011, в 16:21
0

возможно, был примером VB.NET
Anonymous Type 08 авг. 2014, в 03:49

Показать ещё 1 комментарий

Теги:

vba

loops

conditional

5 ответов

128

У VBA нет Continue или любого другого эквивалентного ключевого слова, чтобы сразу перейти к следующей итерации цикла. Я бы предложил разумное использование Goto в качестве обходного пути, особенно если это всего лишь надуманный пример, а ваш реальный код сложнее:

For i = LBound(Schedule, 1) To UBound(Schedule, 1)
    If (Schedule(i, 1) < ReferenceDate) Then
        PrevCouponIndex = i
        Goto NextIteration
    End If
    DF = Application.Run("SomeFunction"....)
    PV = PV + (DF * Coupon / CouponFrequency)
    '....'
    'a whole bunch of other code you are not showing us'
    '....'
    NextIteration:
Next

Если это действительно весь ваш код, @Brian абсолютно прав. Просто поставьте предложение Else в свой оператор If и сделайте с ним.

mwolfe02 30 дек. 2011, в 15:17

16

Спасибо, это хороший совет по поводу GoTo (VBA - возвращение в 1964)
Richard H 30 дек. 2011, в 16:23
2

GoTo это зло! Не используйте GoTo или ваш код попадет в ад! Если серьезно, пожалуйста, не используйте GoTo в вашем коде.
George 24 фев. 2015, в 18:08
3

@ Джордж: GoTo может быть оскорблен (вот почему я квалифицировал свое заявление; см. Рассудительный ), но это по сути не зло. Если серьезно, то невозможно написать надежный VBA без оператора Goto просто потому, что он нужен для обработки ошибок (т. On Error Goto ).
mwolfe02 25 фев. 2015, в 00:55
1

@ mwolfe02: при ошибке Goto в порядке (ограничение языка, который слишком стар, чтобы его исправить, встроив его в try / catch), но в любом случае Goto следует избегать любой ценой. Используйте другие механизмы управления потоком. Это рекомендуется большинством программистов и Microsoft тоже. За последние 15-20 лет моего опыта работы с VB6 / VBA я никогда не использовал Goto ни разу, кроме как в случае ошибки. msdn.microsoft.com/en-us/library/69whc95c.aspx
George 25 фев. 2015, в 16:30
3

@ Джордж: То, что я рекомендую здесь, - это обходной путь для другого ограничения языка (без Continue ). Можно утверждать, что следует избегать использования Continue на других языках, и поэтому следует избегать и здесь. В некотором смысле, ссылка, которую вы разместили, подтверждает мою точку зрения. Ссылка на заявление GoTo в VB.Net. VB.Net имеет как структурированную обработку ошибок, так и операторы Continue For / Continue Do В VB.Net действительно нет необходимости в GoTo ; Я подозреваю, что это было оставлено в значительной степени для поддержки более простого преобразования существующего кода VBA / VB6.
mwolfe02 25 фев. 2015, в 16:39
0

@ mwolfe02: Goto в VB6 тоже не нужен. У Брайана была идеальная замена для Гото с механизмом потока Ifcontrol. Гото слишком усложнит и запутает вещи. Если вы не согласны, пожалуйста, опубликуйте фрагмент кода, где Goto работает лучше, чем альтернативный механизм управления потоком.
George 25 фев. 2015, в 16:58
4

@George GoTo имеет преимущество сокращения вложенности. Пропуск итерации цикла без добавления уровня отступа, IMO, является одним из немногих законных применений GoTo в VBA / VB6. Особенно, если вы извлекаете тело цикла в его собственную процедуру .
Mathieu Guindon 03 март 2015, в 16:56
1

Кружка @ Mat's Я не верю, что компромисс выгоден. Я предпочел бы иметь вложение (что в большинстве случаев не имеет большого значения), чем беспорядочный и непредсказуемый поток управления. Вложение не нарушит ваш код, GoTo может. Я хочу сказать, что у вас может быть хорошее решение в очень маленьком и изолированном сценарии. Однако риск велик, если вы решите расширить код в будущем. Это просто не стоит.
George 03 март 2015, в 17:38
3

@ Джордж Я видел вложение, которое не нарушает код , но разрушает мозг ;)
Mathieu Guindon 03 март 2015, в 17:40
0

Кружка @ Mat's, я определенно могу согласиться с этим!
George 03 март 2015, в 18:54
0

GoTo похоже, является наиболее логичным способом преодоления отсутствия в VBA оператора continue . Так что я напечатал это! Это работает хорошо! Только это однажды не повредит ... Все остальные делают это; так что не может быть так плохо ... Я могу бросить курить, используя GoTo когда GoTo ...
Joe 21 фев. 2019, в 19:38

Показать ещё 9 комментариев

10

Continue For недействителен в VBA или VB6.

Из эта страница MSDN, похоже, она была введена в VB.Net в VS 2005./Net 2.

Как говорили другие, нет другого варианта, кроме использования Goto или Else.

Jon Egerton 30 дек. 2011, в 16:21

2

Привет, я также сталкиваюсь с этой проблемой, и я решаю это, используя приведенный ниже пример кода

For j = 1 To MyTemplte.Sheets.Count

       If MyTemplte.Sheets(j).Visible = 0 Then
           GoTo DoNothing        
       End If 


'process for this for loop
DoNothing:

Next j

Singaravelan 05 май 2016, в 04:56

0

Не уверен, почему за него проголосовали, и у следующего ответа более 100 голосов, и они - тот же самый ответ!
rryanp 12 окт. 2016, в 14:02
2

Вероятно, потому что этот ответ был написан через 5 лет после этого ответа, и является точно такой же концепцией. Почему это должно получить голоса?
Tyler StandishMan 13 апр. 2017, в 19:25

-1

Возможно, попробуйте положить все это в конце, если и использовать другое, чтобы пропустить код, это сделает так, что вы не сможете использовать GoTo.

                        If 6 - ((Int_height(Int_Column - 1) - 1) + Int_direction(e, 1)) = 7 Or (Int_Column - 1) + Int_direction(e, 0) = -1 Or (Int_Column - 1) + Int_direction(e, 0) = 7 Then
                Else
                    If Grid((Int_Column - 1) + Int_direction(e, 0), 6 - ((Int_height(Int_Column - 1) - 1) + Int_direction(e, 1))) = "_" Then
                        Console.ReadLine()
                    End If
                End If

richo7 30 янв. 2017, в 21:08

Ещё вопросы

Вы сказали: «Я знаю, что могу сделать: If (Schedule(i, 1) < ReferenceDate) Then Continue For » Вы уверены в этом? Continue не является ключевым словом VBA.
@ mwolfe02 - нет, не уверен, но где-то видел в примерах (cpearson?)
Спасибо, это хороший совет по поводу GoTo (VBA - возвращение в 1964)
GoTo это зло! Не используйте GoTo или ваш код попадет в ад! Если серьезно, пожалуйста, не используйте GoTo в вашем коде.
@ Джордж: GoTo может быть оскорблен (вот почему я квалифицировал свое заявление; см. Рассудительный ), но это по сути не зло. Если серьезно, то невозможно написать надежный VBA без оператора Goto просто потому, что он нужен для обработки ошибок (т. On Error Goto ).
@ mwolfe02: при ошибке Goto в порядке (ограничение языка, который слишком стар, чтобы его исправить, встроив его в try / catch), но в любом случае Goto следует избегать любой ценой. Используйте другие механизмы управления потоком. Это рекомендуется большинством программистов и Microsoft тоже. За последние 15-20 лет моего опыта работы с VB6 / VBA я никогда не использовал Goto ни разу, кроме как в случае ошибки. msdn.microsoft.com/en-us/library/69whc95c.aspx
@ Джордж: То, что я рекомендую здесь, - это обходной путь для другого ограничения языка (без Continue ). Можно утверждать, что следует избегать использования Continue на других языках, и поэтому следует избегать и здесь. В некотором смысле, ссылка, которую вы разместили, подтверждает мою точку зрения. Ссылка на заявление GoTo в VB.Net. VB.Net имеет как структурированную обработку ошибок, так и операторы Continue For / Continue Do В VB.Net действительно нет необходимости в GoTo ; Я подозреваю, что это было оставлено в значительной степени для поддержки более простого преобразования существующего кода VBA / VB6.
@ mwolfe02: Goto в VB6 тоже не нужен. У Брайана была идеальная замена для Гото с механизмом потока Ifcontrol. Гото слишком усложнит и запутает вещи. Если вы не согласны, пожалуйста, опубликуйте фрагмент кода, где Goto работает лучше, чем альтернативный механизм управления потоком.
@George GoTo имеет преимущество сокращения вложенности. Пропуск итерации цикла без добавления уровня отступа, IMO, является одним из немногих законных применений GoTo в VBA / VB6. Особенно, если вы извлекаете тело цикла в его собственную процедуру .
Кружка @ Mat's Я не верю, что компромисс выгоден. Я предпочел бы иметь вложение (что в большинстве случаев не имеет большого значения), чем беспорядочный и непредсказуемый поток управления. Вложение не нарушит ваш код, GoTo может. Я хочу сказать, что у вас может быть хорошее решение в очень маленьком и изолированном сценарии. Однако риск велик, если вы решите расширить код в будущем. Это просто не стоит.
@ Джордж Я видел вложение, которое не нарушает код , но разрушает мозг ;)
Кружка @ Mat's, я определенно могу согласиться с этим!
GoTo похоже, является наиболее логичным способом преодоления отсутствия в VBA оператора continue . Так что я напечатал это! Это работает хорошо! Только это однажды не повредит ... Все остальные делают это; так что не может быть так плохо ... Я могу бросить курить, используя GoTo когда GoTo ...
Не уверен, почему за него проголосовали, и у следующего ответа более 100 голосов, и они - тот же самый ответ!
Вероятно, потому что этот ответ был написан через 5 лет после этого ответа, и является точно такой же концепцией. Почему это должно получить голоса?

Brian · Accepted Answer · 2011-12-30T16-43-00.000Z

26

Лучший ответ

Не могли бы вы просто сделать что-то простое?

For i = LBound(Schedule, 1) To UBound(Schedule, 1)
  If (Schedule(i, 1) < ReferenceDate) Then
     PrevCouponIndex = i
  Else
     DF = Application.Run("SomeFunction"....)
     PV = PV + (DF * Coupon / CouponFrequency)
  End If
Next

Brian 30 дек. 2011, в 16:43

3

На самом деле, это именно то, что я сделал :) Но, тем не менее, меня это беспокоит, я должен обернуть вещи в Else. Спасибо
Richard H 30 дек. 2011, в 16:22
4

+1 @RichardH ну вы должны использовать IF для теста, так что это не так уж дорого в коде. Однако следует убедиться, что наиболее распространенным результатом является то, что Schedule(i, 1) меньше, чем ReferenceDate чтобы избежать выполнения Else чаще, чем необходимо. В противном случае используйте (ReferenceDate>=Schedule(i, 1)) . (если тест 50/50, то нет необходимости в оптимизации)
brettdj 31 дек. 2011, в 01:17
0

Просто может немного запутаться с многочисленными вложенными ifs ... если, например, вам нужно проверить довольно много результатов Application.Match в каждой итерации, чтобы не найти соответствия перед использованием результатов. Но так и быть, в жизни бывают и худшие вещи!
JeopardyTempest 26 авг. 2018, в 00:43

Показать ещё 1 комментарий