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