VBA - cách bỏ qua lặp lại vòng lặp for có điều kiện

Tôi có một vòng lặp for trên một mảng. Những gì tôi muốn làm là kiểm tra một điều kiện nhất định trong vòng lặp và chuyển sang lần lặp tiếp theo nếu đúng:

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

Tôi biết tôi có thể làm:

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

nhưng tôi muốn có thể ghi lại giá trị cuối cùng của i trong biến PrevCouponIndex.

Bất kỳ ý tưởng?

Cảm ơn

Bạn không thể chỉ làm một cái gì đó đơn giản như thế này?

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

VBA không có một Continuehoặc bất kỳ từ khóa tương đương nào khác để chuyển ngay đến lần lặp vòng lặp tiếp theo. Tôi sẽ đề xuất sử dụng một cách hợp lý Gotonhư một giải pháp thay thế, đặc biệt nếu đây chỉ là một ví dụ có sẵn và mã thực của bạn phức tạp hơn:

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

Tuy nhiên, nếu đó thực sự là tất cả mã của bạn, thì @Brian hoàn toàn chính xác. Chỉ cần đặt một Elsemệnh đề trong Iftuyên bố của bạn và được thực hiện với nó.

Bạn có thể sử dụng một loại continuebằng cách sử dụng lồng nhau Do ... Loop While False:

'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

Continue For không hợp lệ trong VBA hoặc VB6.

Từ trang MSDN này, có vẻ như nó đã được đưa vào VB.Net trong VS 2005./Net 2.

Như những người khác đã nói không thực sự có một lựa chọn nào khác ngoài việc sử dụng Gotohoặc một Else.

Xin chào, tôi cũng đang gặp phải vấn đề này và tôi giải quyết vấn đề này bằng cách sử dụng mã ví dụ bên dưới

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 

Có thể hãy thử đặt tất cả vào cuối cùng nếu và sử dụng một mã khác để bỏ qua mã, điều này sẽ khiến bạn không thể sử dụng 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