نحوه جهش شمارنده حلقه

[Omid.R.A.Candy]

سلام من قطعه کد زیر رو دارم و می خوام وقتی دستورات بینگو رو اجرا کرد بجای خروج از حلقه به حلقه دیگه بپره.



For i = 1 To 5

If i = 3 Then
'BIN GO
Exit For
Else
MsgBox(i)

End If


Next i

[mohsenrahx]

سلام از دستور Goto میتونی استفاده کنی



For i = 1 To 5
If i = 3 Then
GoTo Lbl_A
End If
Next i
LBL_A:
For i = 1 To 5
If i = 3 Then
GoTo Lbl_A
End If
Next i

[Omid.R.A.Candy]

سلام از دستور Goto میتونی استفاده کنی



For i = 1 To 5
If i = 3 Then
GoTo Lbl_A
End If
Next i
LBL_A:
For i = 1 To 5
If i = 3 Then
GoTo Lbl_A
End If
Next i


ممنون.ولی همون طور که می دونید روش go روشی منسوخ شده هست.روش دیگه ای نداریم؟

[mohsenrahx]

خب میتونی بگی کلا چنتا حلقه For داری؟

اگه تعدا حلقه ها کم باشه میشه از تابع استفاده کرد و موقع برگشت exit sub انجام داد


البته یه راه دیگه هم هست که حلقه ها رو پشت هم بنویسی و از Exit For استفاده کنی