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

Question

Tôi có vòng lặp for trên một mảng. kiểm tra những gì tôi muốn làm là cho một điều kiện nhất định trong vòng lặp và bỏ qua đến phiên bản kế tiếp 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 nào?

Cảm ơn

Answer 1

Bạn không thể làm điều 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 

Answer 2

VBA không có Continue hoặc bất kỳ từ khóa tương đương nào khác để chuyển ngay đến vòng lặp tiếp theo. Tôi sẽ đề nghị việc sử dụng đúng đắn của Goto như một cách giải quyết, đặc biệt nếu đây chỉ là một ví dụ contrived và mã thực sự của bạn là 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 

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

Answer 3

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

Từ this MSDN page có vẻ như đã đượ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ự là một lựa chọn nào khác ngoài việc sử dụng Goto hoặc một Else.

Answer 4

Hi Tôi cũng phải đối mặt với vấn đề này và tôi giải quyết việc này sử dụng dưới mã ví dụ

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 5

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

Answer 6

Bạn có thể sử dụng một loại continue bằng cách sử dụng một 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