ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] do loop ¨D§U

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD