otro - romper for vba

VBA: cómo omitir condicionalmente una iteración de bucle for

Question

Tengo un bucle for sobre una matriz. Lo que quiero hacer es probar una cierta condición en el ciclo y saltar a la siguiente iteración si es verdadero:

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

Sé que puedo hacer:

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

pero quiero poder registrar el último valor de i en la variable PrevCouponIndex.

¿Algunas ideas?

Gracias

Answer 1

¿No podrías hacer algo simple como esto?

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

Answer 2

Hola, también estoy enfrentando este problema y lo resuelvo usando el siguiente código de ejemplo

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 

Answer 3

Puede usar un tipo de continue usando Do ... Loop While False anidado:

''This sample will output 1 and 3 only

Dim i As Integer

For i = 1 To 3: Do

    If i = 2 Then Exit Do ''Exit Do is the Continue

    Debug.Print i

Loop While False: Next i

Answer 4

Tal vez trate de ponerlo todo al final si y use un else para omitir el código, esto lo hará para que no pueda usar el 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

Answer 5

VBA no tiene una palabra clave Continue o cualquier otra palabra equivalente para saltar inmediatamente a la siguiente iteración del ciclo. Sugeriría un uso juicioso de Goto como una solución alternativa, especialmente si esto es solo un ejemplo artificial y su código real es más complicado:

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

Si eso es realmente todo tu código, sin embargo, @Brian es absolutamente correcto. Simplemente ponga una cláusula Else en su declaración If y termine con ella.

Answer 6

Continue For no es válido en VBA o VB6.

Desde esta página de MSDN parece que se introdujo en VB.Net en VS 2005./Net 2.

Como los demás han dicho, no existe otra opción que usar Goto o un Else .