- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 1# l394244 - Option Explicit
- Sub ¥N¸¹()
- Dim C As Integer
- C = 2
- Do While Cells(C, 1) <> ""
- Select Case Cells(C, 1)
- Case "0015"
- Cells(2, C) = "1¥x¥_"
- Case "0048"
- Cells(2, C) = "2«°ªF"
- Case "0059"
- Cells(2, C) = "4·s²ø"
- Case "0060"
- Cells(2, C) = "7·s¦Ë"
- Case "0082"
- Cells(2, C) = "a°ª¶¯"
- Case "0118"
- Cells(2, C) = "3«H¸q"
- Case "1366"
- Cells(2, C) = "8¥x¤¤"
- Case "0152"
- Cells(2, C) = "9¥x«n"
- Case "1171"
- Cells(2, C) = "5ªO¾ô"
- Case "0185"
- Cells(2, C) = "6®ç¶é"
- Case "0451"
- Cells(2, C) = "bùªF"
- Case "0875"
- Cells(2, C) = "C©¾§µ"
- Case "0680"
- Cells(2, C) = "E «n¥x¤¤"
- Case Else ' ""
- Cells(2, C) = "¥¼©w¸q"
- End Select
- C = C + 1
- Loop
- End Sub
½Æ»s¥N½X |
|