VBA-forループの反復を条件付きでスキップする方法

配列に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

しかし、iの最後の値をPrevCouponIndex変数に記録できるようにしたいと思います。

何か案は？

ありがとう

こんな簡単なことをしてみませんか？

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には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句を1つ入れれば、それで終わりIfです。

continueネストされたを使用して、一種を使用できます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 VBAまたはVB6では無効です。

このMSDNページから、VS 2005./Net 2のVB.Netに導入されたようです。

他の人が言ったように、Gotoまたはを使用する以外に本当にオプションはありませんElse。

こんにちは私もこの問題に直面しています。以下のサンプルコードを使用してこれを解決します

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 

ifを最後にすべて配置してみて、elseを使用してコードをスキップすると、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