½Ð°Ýfor....next ¥i¥H¤¤³~ªð¦^for Ä~Äò¤U¤@Óµ{§Ç¶Ü
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
½Ð°Ý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 |
|
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-3-1 11:23 ½s¿è
¦^´_ 1# enoch
¼Ó¥DªºÅÞ¿è~ ·Pı©Ç©Çªº~
´«Ó»¡ªk~ ¥un¬O²Å¦XIF±ø¥óªº´N³Q°õ¦æ
¤]³\¼Ó¥Dnªº¬O³o¼Ë§a
for X =1 to 10
if X<>5 then
msgbox "°õ¦æ"
end if
next |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¥»©«³Ì«á¥Ñ hugh0620 ©ó 2012-3-1 11:54 ½s¿è
¦^´_ 1# enoch
³oөγ\¬O¼Ó·Qnªº¤è¦¡~
¥i¥H¥Îgotoªº¤è¦¡¨Ó³B²z- Sub EX()
- x = 1
- 2
- For x = x To 10
- If x = 5 Then
- GoTo 1
- End If
-
- Next
- GoTo 3
- 1
- x = 6
- GoTo 2
- 3
- End Sub
½Æ»s¥N½X |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Sub EX()
For x = 1 To 10
If x = 5 Then Exit For
Next
MsgBox x
End Sub |
|
|
|
|
|
|
- ©«¤l
- 559
- ¥DÃD
- 58
- ºëµØ
- 0
- ¿n¤À
- 626
- ÂI¦W
- 0
- §@·~¨t²Î
- win8
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2010-11-22
- ³Ì«áµn¿ý
- 2024-6-14
|
¦^´_ 4# oobird
O¤j¤j~ §A³o¼Ë¼gªk~ ´Nª½±µ¸õ¥XFOR NEXT
¼Ó¥D·Qnªº¤è¦¡~ ¬O°õ¦æ°j°é«á~
¥ÎIF§PÂ_²Å¦X±ø¥ó«á~ ¦A¸õ¨ì¬Y¤@ÓX¦AÄ~Äò°õ¦æ°j°é~ |
|
¾Ç²ß¤~¯à´£¤É¦Û¤v
|
|
|
|
|
- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
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 |
|
|
|
|
|
|