GBKEE

¦^´_ 1# l394244

1. Option Explicit
   
2. Sub ¥N¸¹()
   
3.     Dim C As Integer
   
4.     C = 2
   
5.     Do While Cells(C, 1) <> ""
   
6.         Select Case Cells(C, 1)
   
7.             Case "0015"
   
8.                 Cells(2, C) = "1¥x¥_"
   
9.             Case "0048"
   
10.                 Cells(2, C) = "2«°ªF"
    
11.             Case "0059"
    
12.                 Cells(2, C) = "4·s²ø"
    
13.             Case "0060"
    
14.                 Cells(2, C) = "7·s¦Ë"
    
15.             Case "0082"
    
16.                 Cells(2, C) = "a°ª¶¯"
    
17.             Case "0118"
    
18.                 Cells(2, C) = "3«H¸q"
    
19.             Case "1366"
    
20.                 Cells(2, C) = "8¥x¤¤"
    
21.             Case "0152"
    
22.                 Cells(2, C) = "9¥x«n"
    
23.             Case "1171"
    
24.                 Cells(2, C) = "5ªO¾ô"
    
25.             Case "0185"
    
26.                 Cells(2, C) = "6®ç¶é"
    
27.             Case "0451"
    
28.                 Cells(2, C) = "bùªF"
    
29.             Case "0875"
    
30.                 Cells(2, C) = "C©¾§µ"
    
31.             Case "0680"
    
32.                 Cells(2, C) = "E «n¥x¤¤"
    
33.             Case Else    ' ""
    
34.                 Cells(2, C) = "¥¼©w¸q"
    
35.         End Select
    
36.         C = C + 1
    
37.     Loop
    
38. End Sub

½Æ»s¥N½X