[µo°Ý] ½Ð°Ý Select Case ªº¥Îªk

52ee24

½Ð°Ý¦U¦ì¹F¤H
¥H¤U¦³¤°»ò¦a¤è§Ú¼g¿ù¤F
§Ú§Æ±æ¥¦§PÂ_eÄæ¦p¬O¥H¤U¦r¦êªº¸Ü
´N¤À§O¬°A¡BB¡BC¦A±a¤JfÄ椤
¦ý¤£ª¾­þ¿ù¤F
½Ð¦U¦ì¹F¤HÀ°À°¦£¤F
ÁÂÁÂ
Dim QQ As Long
QQ = Range("A2").CurrentRegion.Rows.Count
Dim ZZ As Long
Dim Z1 As Long
For i = 2 To QQ
ZZ = Range("F" & i) = Z1

    Select Case Z1
        Case Range("E" & i) = "01", "05", "21", "25", "26", "30", "46", "50", "51", "71", "75"
             Z1 = "C"
        Case Range("E" & i) = "02", "03", "04", "06", "10", "11", "15", "16", "20", "22", "23", "24" _
                            , "27", "28", "29", "31", "35", "36", "40", "41", "45", "47", "48", "49" _
                            , "52", "53", "54", "56", "60", "61", "65", "66", "70", "72", "73", "74"
             Z1 = "B"
        Case Range("E" & i) = "07", "08", "09", "12", "13", "14", "17", "18", "19" _
                            , "32", "33", "34", "37", "38", "39", "42", "43", "44" _
                            , "57", "58", "59", "62", "63", "64", "67", "68", "69"
             Z1 = "A"
    End Select
Next i

tyrone123456

¦^´_ 1# 52ee24

§A¤w¸g©w¸qZ1¬OLong¡A¥i¬O§A¸Ì­±¤S»¡Z1="C"¡q³o¬OString¡r¡A©Ò¥HGG¤F¡A
¥t¥~  ZZ = Range("F" & i) = Z1  ³o­Ó¼gªkªº¥Î·N¡A«Ü©Ç¡A§Ú¤£¤F¸Ñ§Aªº¥Î·N

PKKO

½Ð°Ý¦U¦ì¹F¤H
¥H¤U¦³¤°»ò¦a¤è§Ú¼g¿ù¤F
§Ú§Æ±æ¥¦§PÂ_eÄæ¦p¬O¥H¤U¦r¦êªº¸Ü
´N¤À§O¬°A¡BB¡BC¦A±a¤JfÄ椤
¦ý ...
52ee24 µoªí©ó 2015-4-21 11:24

Dim QQ As Long
QQ = Range("A2").CurrentRegion.Rows.Count

For i = 2 To QQ
ZZ = Range("F" & i)

    Select Case ZZ
        Case  "01", "05", "21", "25", "26", "30", "46", "50", "51", "71", "75"
             Z1 = "C"
        Case  "02", "03", "04", "06", "10", "11", "15", "16", "20", "22", "23", "24" _
                            , "27", "28", "29", "31", "35", "36", "40", "41", "45", "47", "48", "49" _
                            , "52", "53", "54", "56", "60", "61", "65", "66", "70", "72", "73", "74"
             Z1 = "B"
        Case  "07", "08", "09", "12", "13", "14", "17", "18", "19" _
                            , "32", "33", "34", "37", "38", "39", "42", "43", "44" _
                            , "57", "58", "59", "62", "63", "64", "67", "68", "69"
             Z1 = "A"
    End Select
Next i

52ee24

¦^´_ 2# tyrone123456


    t¤j¡A³o¬O¦]¬°²q¤£¥X¨ì©³¨º¼g¿ù¤F¡A¦b¶Ã¼gªº¡A½Ð§O¦b·N
§â©w¸q§ï¦¨¦r¦ê¤]¶]¤£¥X¨Ó¡ã

52ee24

¦^´_ 3# PKKO


    P¤j§A¦n
   ÁÙ¬O¨S¿ìªk¶]¥X¨Ó
   ¬Ý§A§ï¼gªº¤è¦¡¡A¬O¥i¥H¤£¥Î¼g¥XEÄæ"01~75"­È¶Ü

PKKO

¦^´_  PKKO


    P¤j§A¦n
   ÁÙ¬O¨S¿ìªk¶]¥X¨Ó
   ¬Ý§A§ï¼gªº¤è¦¡¡A¬O¥i¥H¤£¥Î¼g¥XEÄæ"01~75"­È¶Ü
52ee24 µoªí©ó 2015-4-21 14:24

§Ú´ú¸Õ¹L¥i¥H°õ¦æ~§A§â¦³°ÝÃDªº¦a¤èPO¤W¨Ó

¬Ý§A§ï¼gªº¤è¦¡¡A¬O¥i¥H¤£¥Î¼g¥XEÄæ"01~75"­È¶Ü
=>³o¸ò§Aµ{¦¡²@µL¬ÛÃö,¨S¦³¤@­Ó¦a¤è·|¥Î¨ìEÄæ

tyrone123456

§Ú®Ú¾Ú§Aªºµ{¦¡¨Ó±À½×§A­nªºªF¦è
¥t¥~§Ú§âZ1ªºµ²ªGÅã¥Ü¦bGÄæ¦ì

¤U¸ü (142.86 KB)

2015-4-21 14:58

52ee24

¦^´_ 7# tyrone123456


    P¤j §Ú¸Ñ¥X¨Ó¤F¡A­ì¨Ó­n§âµ²ªG¼g¦b±Ô­z¸Ì¡A¤ÓÁÂÁ§A¤F
§Ú§ï¦¨³o¼Ë´N¥i¥H¤F¡õ
For i = 2 To QQ
ZZ = Range("E" & i)
    Select Case ZZ
         Case "01", "05", "21", "25", "26", "30", "46", "50", "51", "55", "71", "75"
              Z1 = "C"
              Range("F" & i) = Z1
         Case "02", "03", "04", "06", "10", "11", "15", "16", "20", "22", "23", "24" _
              , "27", "28", "29", "31", "35", "36", "40", "41", "45", "47", "48", "49" _
              , "52", "53", "54", "56", "60", "61", "65", "66", "70", "72", "73", "74"
              Z1 = "B"
              Range("F" & i) = Z1
         Case "07", "08", "09", "12", "13", "14", "17", "18", "19" _
              , "32", "33", "34", "37", "38", "39", "42", "43", "44" _
              , "57", "58", "59", "62", "63", "64", "67", "68", "69"
              Z1 = "A"
              Range("F" & i) = Z1
     End Select
Next i