ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

½Ð°Ý¦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 ©ó 2012-3-1 11:23 ½s¿è

¦^´_ 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
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-3-1 11:54 ½s¿è

¦^´_ 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.     If x = 5 Then
  6.        GoTo 1
  7.     End If
  8.    
  9. Next
  10. GoTo 3
  11. 1
  12. x = 6
  13. GoTo 2
  14. 3
  15. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

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

TOP

¦^´_ 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°é~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¬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

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD