דילוג על לולאה בVBA

[חנון המרבה]

אני צריך להריץ לולאה מ1 עד 10, ובאם תנאי מסויים קיים - אני רוצה לדלג על מספר 7, האם יש דבר כזה?!

[clickone]

@חנון-המרבה
אם זה רק לדלג ולא לעצור לגמרי, אז רק להשתמש עם בדיקה

If id<>7 Then
' write code....
End If

בדוטנט (גם בVBNET) יש את מילת הקסם Continue

[yossiz]

@חנון-המרבה

Sub sample()
    SomeCondition = True
    For i = 1 To 10
        If (SomeCondition And i = 7) Then
            MsgBox "skipping..."
            GoTo Continue
        End If
        MsgBox i
Continue:
    Next i
End Sub

[dovid]

@yossiz לא הבנתי מה הערך המוסף של תשובתך על התשובה של @clickone.
זה אמנם תנאי חיובי ולא שלילי, אבל בטח שעדיף תנאי הפוך מכל הבלגן הזה.

[yossiz]

@dovid אתה צודק.
לא רציתי להיכנע למגבלה של חוסר מילת continue אז חיפשתי איך אפשר לסמלט את זה. (לכאורה במצבים יותר מסובכים יהיה כדאי להשתמש במנגנון שלי כדי לחסוך קינון עמוק של תנאים)

[OdedDvir]

@dovid אמנם @yossiz לא צריך לשכמותי, אבל בפתרון של @clickone הוא קיצר ולא כלל את בדיקת התנאי עצמו:

ובאם תנאי מסויים קיים - אני רוצה לדלג על מספר 7

ובלי כל ה"קישוטים" המיותרים:

For i = 1 To 10
   If (i <> 7 Or SomeCondition=False) Then
        'do stuff
   End If
Next i