[µo°Ý] for next

t8899

For k = 70 To 4
next
§Ú·Q¥[­Ó±ø¥óÅܦ¨ k= 4 to 70¤]´N¬O¤U­±¤G¿ï¤@
For k = 70 To 4
for  k= 4 to 70
----------------
For k = 70 To 4 step -1
next
for  k= 4 to 70
next
¦]¬° §Úªº for next  ¸Ì­±ÁÙ¦³«Ü¦hµ{¦¡½X
¦pªG§ï¦¨¤W­±·|¤ñ¸û½ÆÂø¡A¤£®e©ö¬Ý
¤£ª¾¦³µL¸û²³æªº§ïªk¡H¡H

¤U­±ªº§ïªk
¿ù»~°T®§ ¦³else Óý¨S¦³ IF
If Range("j16") = 1 Then
For k = 70 To 4
Else
For k = 4 To 70
End If
next

reangame

1. If Range("j16") = 1 Then
   
2. For k = 70 To 4
   
3. µ{¦¡½X
   
4. next k
   
5. Else
   
6. For k = 4 To 70
   
7. µ{¦¡½X
   
8. next k
   
9. End If

½Æ»s¥N½X

½Ð°Ñ¦Ò¬Ý¬Ý¡I

reangame

¦^´_ 1# t8899

¤]¥i¥H§ï¥Î select case

1. Dim Number
   
2. Number = 8    ' ³]©wÅܼƪì­È¡C
   
3. Select Case Number    ' §PÂ_ Number ªº­È¡C
   
4. Case 1 To 5    ' Number ªº­È¦b 1 ¨ì 5 ¤§¶¡¡A¬O«D±Æ¥¦©Êªº¡C
   
5.     Debug.Print "Between 1 and 5"
   
6. ' ¤U¤@­Ó Case ¤l¥y¬O¥»½d¨Ò¤¤°ß¤@§PÂ_­È¬° True ªº¤l¥y¡C
   
7. Case 6, 7, 8    ' Number ªº­È¦b 6 ¨ì 8 ¤§¶¡¡C
   
8.     Debug.Print "Between 6 and 8"
   
9. Case 9 To 10    ' Number ªº­È¬° 9 ©Î 10¡C
   
10. Debug.Print "Greater than 8"
    
11. Case Else    ' ¨ä¥¦¼Æ­È¡C
    
12.     Debug.Print "Not between 1 and 10"
    
13. End Select

½Æ»s¥N½X

­ã´£³¡ªL

r1 = 4: r2 = 70: p = 1
If Range("j16") = 1 Then r1 = 70: r2 = 4: p = -1
For k = r1 To r2 Step p
    N = N + p
Next k

n7822123

¦^´_ 1# t8899


For k = 70 To 4 step -1
next
for  k= 4 to 70
next
¦]¬° §Úªº for next  ¸Ì­±ÁÙ¦³«Ü¦hµ{¦¡½X
¦pªG§ï¦¨¤W­±·|¤ñ¸û½ÆÂø¡A¤£®e©ö¬Ý
¤£ª¾¦³µL¸û²³æªº§ïªk¡H¡H

¤]¥i¥H¥Î¸m´«Åܼƪº¤è¦¡¡A§â°j°é¤ºªºk³£§ïk1
¤£¹L§PÂ_¦b°j°é¤º¡A®Ä²v¸û®t¡A¥u¬O´£¨Ñ¥t¤@­Ó¼gªkÅý¤j®a°Ñ¦Ò¦Ó¤w

for  k= 4 to 70
If ±ø¥ó then k1=74-k else k1=k
Cells(k1,5)=""  '½d¨Ò
¨ä¥Lµ{¦¡½X
next