[µo°Ý] [½Ð±Ð] Ãö©ó Select Case ... End Select µ{¦¡Â²¤Æ°ÝÃD

mark15jill

[°ÝÃD]
¦]¬°°}¦C¤º§PÂ_¤¸¥óªº§Ç¸¹­È(ID Code)¬O³B©ó²ÄN°Ï°ì (N¬°10­Ó1²Õ)
¦ý¬O¥Î¥H¤Uµ{¦¡½X ¡A°Ï°ì¤Ö¬O¥i¦æ¡A¤@¥¹°Ï°ì¦h¡A¾ã­Óµ{¦¡½X¦æ¼Æ´N·|¼É¼W
¦³¸ÕµÛ¦b°}¦C n=1  ....  n=n+1 ·í¤¤§PÂ_
¦ý¬O ¥i¯à¬O¤p§Ì¥\¤Ò¤£¨ì®a¡A§PÂ_¤§«á¡A¤Ï¦Ó¾ã°Ï¶ôªº Text ¤£Åã¥Ü(À³¸Ó¬O»¡Åª¤£¨ì)
¤£ª¾¹D¬O§_¦³¤ñ¸û²©öªº§PÂ_¥i¥H³B²z³oºØ±¡ªp¡H




­ìµ{¦¡½X¦p¤U

1.                
   
2.           For ksj = 1 To nn
   
3.                     Select Case ksj
   
4.                         Case 1 To 10
   
5.                             btuarray(usx1, usy1).Text = "²Ä 1 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
   
6.                         Case 11 To 20
   
7.                             btuarray(usx1, usy1).Text = "²Ä 2 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
   
8.                         Case 21 To 30
   
9.                             btuarray(usx1, usy1).Text = "²Ä 3 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
   
10.                         Case 31 To 40
    
11.                             btuarray(usx1, usy1).Text = "²Ä 4 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
12.                         Case 41 To 50
    
13.                             btuarray(usx1, usy1).Text = "²Ä 5 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
14.                         Case 51 To 60
    
15.                             btuarray(usx1, usy1).Text = "²Ä 6 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
16.                         Case 61 To 70
    
17.                             btuarray(usx1, usy1).Text = "²Ä 7 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
18.                         Case 71 To 80
    
19.                             btuarray(usx1, usy1).Text = "²Ä 8 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
20.                         Case 81 To 90
    
21.                             btuarray(usx1, usy1).Text = "²Ä 9 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
22.                         Case 91 To 100
    
23.                             btuarray(usx1, usy1).Text = "²Ä 10 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
24.                         Case 101 To 110
    
25.                             btuarray(usx1, usy1).Text = "²Ä 11 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
26.                         Case 111 To 120
    
27.                             btuarray(usx1, usy1).Text = "²Ä 12 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
28.                         Case 121 To 130
    
29.                             btuarray(usx1, usy1).Text = "²Ä 13 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
    
30.                     End Select
    
31.                 Next

½Æ»s¥N½X

GBKEE

¦^´_ 1# mark15jill

1. Sub Ex()
   
2.     For ksj = 11 To nn Step 10
   
3.         For x = -1 To 8
   
4.             btuarray(usx1, usy1).Text = "²Ä " & Int(ksj / 10) + 1 & " °Ï°ì  ²Ä  " & ksj + x & " °Ï¶ô"
   
5.         Next
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

alexliou

§âksj °£¥H10, µL±ø¥ó¶i¦ì¨ì¾ã¼Æ§Y¥i
µ{¦¡½X¥i¥H¦p¤U:
Dim  n  as Integer      'n¥Nªí°Ï°ì¸¹½X
For ksj = 1 To nn
  n = WorkSheetFunction.Ruundup(ksj,0)
  btuarray(usx1, usy1).Text = "²Ä" & cstr(n)  &  "°Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"
Next

alexliou

§âksj °£¥H10, µL±ø¥ó¶i¦ì¨ì¾ã¼Æ§Y¥i
µ{¦¡½X¥i¥H¦p¤U:
Dim  n  as Integer      'n¥Nªí°Ï°ì¸¹½X
For ksj ...
alexliou µoªí©ó 2012-12-21 17:44

À³¸Ó¬Oroundup¤~¹ï

mark15jill

¦^´_ 2# GBKEE


    [ To GBKEE  ¤j¤j]
    ·|Åܦ¨  1-10 °Ï¶ô ®ø¥¢
    ¦Ó 11 - 130 °Ï¶ô  ·|¥H10­Ó¬°¤@²Õªº¤è¦¡ ©T©w¼Æ­È(¦p 11 ~ 20 °Ï¶ô ·|Åܦ¨  ²Ä¤G°Ï°ì ²Ä20°Ï¶ô )...
    ½Ð°Ý³o¬O¬Æ»ò­ì¦]?
   

        [ To alexliou   ¤j¤j]
     ±zªº¤èªk¦ü¥G¬O±NÅܼÆ(N) ³]©w¦Ü sheet¤º¡A¦ý³o¦ü¥G¤£¬O¤p§Ì·Q­nªº¡A·PÁ±z±Ð¾É

alexliou

¦^´_ 5# mark15jill
N ¨Ã¤£¬O­n©ñ¦bSheet¤º
"WorkSheetFunction"³o­Ó¦r¨Ã«D«üN­n©ñ¦bSheet¤º
¥¦¥u¬O­n¤Þ¥Î RoundUp ³o­ÓµL±ø¥ó¶i¤Jªº¨ç¼Æ
´N¹³¦bVBA¤¤­n¤Þ¥ÎMax³o­Ó¨ç¼Æ¤@¼Ë
¦]¬°Max ©MRoundUp³£¤£¬OVBAªº¤º«Ø¨ç¼Æ
¦Ó¬OÄÝ©óExcel ¤u§@ªíªº¨ç¼Æ

¥t¥~, §Ú²q´ú§A·Q­n§â66Åã¥Ü¬°"²Ä7 °Ï°ì ²Ä6 °Ï¶ô"
µ{¦¡½XÀ³¬°
For ksj = 1 To nn
   n = WorkSheetFunction.Roundup(ksj/10,0)
   btuarray(usx1, usy1).Text = "²Ä" & cstr(n)  &  " °Ï°ì" & "  ²Ä" & " " &  (ksj- n *10) & " °Ï¶ô"
Next

GBKEE

¦^´_ 5# mark15jill
For ksj = 1 To nn
        Select Case ksj
            Case 1 To 10     '---> ²Ä 1 °Ï°ì
             btuarray(usx1, usy1).Text = "²Ä 1 °Ï°ì" & "  ²Ä" & " " & ksj - 1 & " " & "°Ï¶ô"-> ksj - 1 & "°Ï¶ô"
            Case 21 To 20   '---> ²Ä 2 °Ï°ì
           '
           '
Next

1. Sub Ex()
   
2.     For ksj = 1 To nn Step 10
   
3.         For x = -1 To 8
   
4.             btuarray(usx1, usy1).Text = "²Ä " & Int(ksj / 10) + 1 & " °Ï°ì  ²Ä  " & ksj + x & " °Ï¶ô"
   
5.         Next
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

mark15jill

[ To GBKEE  ¤j¤j]
                  ¤w¸Ñ¨M...
                  ¤p§Ì­è­è­«·s½s¼g¡Aµo²{²¨©¿±¼¤@­ÓÂI... "nn"
                    For ksj = 1 To nn Step 10
                        .Text = "²Ä " & Int(ksj / 10) + 1 & " °Ï°ì  ²Ä  " & nn & " °Ï¶ô"
                    Next
                  Åܦ¨³æ´`Àô+nn µM«á°Ï°ì¥Î ¤j¤j±z©Ò±Ð¾Éªº¾ã¼Æ§PÂ_..
                  ¦]¤§«e°ÝÃD¬O¥X¦b °Ï¶ô¥i¥H¥¿±`§PŪ¡A°Ï°ì¤£¦æ..
                 ¤p§Ì±N°Ï°ìªº³¡¤À´À´«¡A°Ï¶ô¤´¤£§ó§ï¡A°ÝÃD´N¸Ñ¨M¤F¡C
     

        [ To alexliou   ¤j¤j]
                  ©êºp¡A¤p§Ì¤~²¨¾Ç²L¡A±N¤j¤j±z©Ò±Ð¾Éªº»~»{¬°¨ä¥L¤è­±¡C



·PÁ¨â¦ì¤j¤jªº«ü±Ð..


§e²{¥X¨Óªºµ²ªG·|Åܦ¨..
1-10  ²Ä¤@°Ï°ì ªº ²Ä1~10°Ï¶ô
11-20  ²Ä¤G°Ï°ì ªº ²Ä1~10°Ï¶ô

¥H¦¹Ãþ±À..