½Ð°Ýfor....next ¥i¥H¤¤³~ªð¦^for Ä~Äò¤U¤@­Óµ{§Ç¶Ü

enoch

½Ð°Ý¦bFor .... Next  °õ¦æ¤¤¥i§_¥[¤W IF.....THEN ......  END IF ±ø¥ó
­Y±ø¥ó²Å¦X, «h¤¤³~ªð¦^FOR Ä~Äò°õ¦æ¤U¤@­Óµ{§Ç
for x = 1 to 10
.
.
·í x = 5 ®Éµoı±ø¥ó²Å¦X, «h¤¤³~ªð¦^for ¸õ¦Üx=6
¦A°õ¦æ
.
.
NEXT

hugh0620

¦^´_ 1# enoch

     ¼Ó¥DªºÅÞ¿è~ ·Pı©Ç©Çªº~
     ´«­Ó»¡ªk~ ¥u­n¬O²Å¦XIF±ø¥óªº´N³Q°õ¦æ

     ¤]³\¼Ó¥D­nªº¬O³o¼Ë§a
     for X =1 to 10

        if X<>5 then
            msgbox "°õ¦æ"
        end if

        next

hugh0620

¦^´_ 1# enoch

      ³o­Ó©Î³\¬O¼Ó·Q­nªº¤è¦¡~
      ¥i¥H¥Îgotoªº¤è¦¡¨Ó³B²z

1. Sub EX()
   
2. x = 1
   
3. 2
   
4. For x = x To 10
   
5. 
   
6.     If x = 5 Then
   
7.        GoTo 1
   
8.     End If
   
9.    
   
10. Next
    
11. GoTo 3
    
12. 1
    
13. x = 6
    
14. GoTo 2
    
15. 3
    
16. End Sub

½Æ»s¥N½X

oobird

Sub EX()
For x = 1 To 10
    If x = 5 Then Exit For
Next
MsgBox x
End Sub

hugh0620

¦^´_ 4# oobird


    O¤j¤j~ §A³o¼Ë¼gªk~ ´Nª½±µ¸õ¥XFOR NEXT
    ¼Ó¥D·Q­nªº¤è¦¡~ ¬O°õ¦æ°j°é«á~
    ¥ÎIF§PÂ_²Å¦X±ø¥ó«á~ ¦A¸õ¨ì¬Y¤@­ÓX¦AÄ~Äò°õ¦æ°j°é~

kimbal

vba ¨S¦³´£¨Ñfor continueªº¤èªk
¥u¯à¹³hugh0620»¡ªº,¥Îif¨Ó°µ¤À³Î
for X =1 to 10
    if ±ø¥ó¦¨¥ß then
         msgbox "°õ¦æ"
    end if
    '³o¸Ì¤£©ñ¥ô¦óªF¦è
next

©Î

for X =1 to 10
    if ±ø¥ó¦¨¥ß then
         goto endofloop:
    end if
    '³o¸Ì©ñ±ø¥ó¤£¦¨¥ß®É°µªºªF¦è
endofloop:
next

©Î

for X =1 to 10
    if ±ø¥ó¦¨¥ß then
         '³o¸Ì¤£©ñªF¦è
    else
            '³o¸Ì©ñ±ø¥ó¤£¦¨¥ß®É°µªºªF¦è
    end if
next

GBKEE

¬O³o¼Ë¶Ü?

1. Sub Ex()
   
2.     Dim x
   
3.     For x = 1 To 10
   
4.     MsgBox x
   
5.         If x = 5 Then x = 6
   
6.     Next
   
7. End Sub

½Æ»s¥N½X