- ©«¤l
- 3
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- window
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2013-8-25
- ³Ì«áµn¿ý
- 2013-8-26
|
¦U¦ì¤j¤j¦n~
¤pªº²Ä¤@¦¸¾ÇVBA.. ¥Ø«e¥d¦b do Loop °j°é°ÝÃD¡A´£¥Ü¡G¨S¦³do ¦³LOOP¡C
¨n¤F¿Ã¹õ³\¤[¡AÁÙ¬O§ä¤£¥X¿ù»~©Ò¦b ORZ... ÁÙÀµ½Ð¦U¦ì°ª¤âÌÀ°¦£§ä¥X¿ù»~¡A¦pªG¥i¥HÁٽФj¤j³v¦C»¡©ú «D±`·PÁ !
¥H¤U¬O¤pªº±q®Ñ¤W¶i¦æ§ï¼g ¡G
Sub ¥N¸¹()
C = 2
Do While Cells(C, 1) <> ""
Select Case Cells(C, 1)
Case "0015"
Cells(2, C) = "1¥x¥_"
Select Case Cells(C, 1)
Case "0048"
Cells(2, C) = "2«°ªF"
Select Case Cells(C, 1)
Case "0059"
Cells(2, C) = "4·s²ø"
Select Case Cells(C, 1)
Case "0060"
Cells(2, C) = "7·s¦Ë"
Select Case Cells(C, 1)
Case "0082"
Cells(2, C) = "a°ª¶¯"
Select Case Cells(C, 1)
Case "0118"
Cells(2, C) = "3«H¸q"
Select Case Cells(C, 1)
Case "1366"
Cells(2, C) = "8¥x¤¤"
Select Case Cells(C, 1)
Case "0152"
Cells(2, C) = "9¥x«n"
Select Case Cells(C, 1)
Case "1171"
Cells(2, C) = "5ªO¾ô"
Select Case Cells(C, 1)
Case "0185"
Cells(2, C) = "6®ç¶é"
Select Case Cells(C, 1)
Case "0451"
Cells(2, C) = "bùªF"
Select Case Cells(C, 1)
Case "0875"
Cells(2, C) = "C©¾§µ"
Select Case Cells(C, 1)
Case "0680"
Cells(2, C) = "E «n¥x¤¤"
Select Case Cells(C, 1)
Case ""
Cells(2, C) = "¥¼©w¸q"
End Select
C = C + 1
Loop
End Sub |
|