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

«ö½s¸¹¤¤­^¤å¦r¦ê, ¶Ç¦^Ãþ§O

«ö½s¸¹¤¤­^¤å¦r¦ê, ¶Ç¦^Ãþ§O

¦U«e½ú, ¦n
¤p§Ì·Q©ó¤u§@ªí¥[¤J¤@­Ó«ö½s¸¹¤¤­^¤å¦r¦ê, ¶Ç¦^Ãþ§O, ·Ð½Ð¤j¤j¨ó§U, ²{ªþ¤WÀÉ®×, ¤º¦³»¡©ú, ¥ýÁ¹L¦U¤j¤j«e½ú, ÁÂÁÂ!!
¤J³f³æ.rar (10.5 KB)

¦U«e½ú, ¦n
¤p§Ì·Q©ó¤u§@ªí¥[¤J¤@­Ó«ö½s¸¹¤¤­^¤å¦r¦ê, ¶Ç¦^Ãþ§O, ·Ð½Ð¤j¤j¨ó§U, ²{ªþ¤WÀÉ®×, ¤º¦³»¡©ú, ¥ý ...
©P¤j°¶ µoªí©ó 2014-11-22 21:25
  1. Private Sub cbSel_Click()
  2.   Dim iI%
  3.   Dim lRow&
  4.   Dim sStr$
  5.   Dim vD, vSel()
  6.   
  7.   vSel = Array("¤å¨ã", "²M¼ä¥Î«~", "¶¼­¹Ãþ", "¤@¯ë", "ÀÉ®×Ãþ")
  8.   Set vD = CreateObject("Scripting.Dictionary")
  9.   For iI = 0 To UBound(vSel)
  10.     vD(Chr(65 + iI)) = vSel(iI)
  11.   Next
  12.   
  13.   lRow = Cells(Rows.Count, 14).End(xlUp).Row
  14.   Range(Cells(3, 14), Cells(lRow, 14)).Clear
  15.   lRow = 3
  16.   Do While Cells(lRow, 3) <> ""
  17.     Cells(lRow, 14) = vD(Left(Cells(lRow, 3), 1))
  18.     lRow = lRow + 1
  19.   Loop
  20. End Sub
½Æ»s¥N½X
¤J³f³æ-a.zip (17.51 KB)

TOP

¦^´_ 2# luhpro
·PÁ¤j¤j¦^À³, °J¤ßÁÂÁÂ!!

TOP

¦^´_ 2# luhpro
¤j¤j, ¦n,
¤j¤jªºµ{¦¡¥¿¬O¤p§Ì©Ò»Ý¨D, ¦Ó²{®É¤p§Ì¥ç¤w¨Ï¥Î, ¦ý¤@­Ó®Ø½u°ÝÃD, ½Ð¤j¤j¨ó§U, ¤p§Ì§âÀɤW¶Ç, ¤º¦³©ú²Ó»¡©ú,
¥ý·PÁÂ, ÁÂÁÂÁÂ!
¤J³f³æ-a.rar (19.59 KB)

TOP

¦^´_ 4# ©P¤j°¶
¸Õ¸Õ¬Ý
  1. Private Sub cbSel_Click()
  2.   Dim iI%, vSel(), lRow&
  3.   vSel = Array("¤å¨ã", "²M¼ä¥Î«~", "¶¼­¹Ãþ", "¤@¯ë", "ÀÉ®×Ãþ")
  4.   lRow = 3
  5.   Do While Cells(lRow, 3) <> ""
  6.     iI = Asc(Mid(Cells(lRow, 3), 1, 1)) - 65
  7.     Cells(lRow, 14) = vSel(iI)
  8.     lRow = lRow + 1
  9.   Loop
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

ÁÂÁª©¤j¦^À³,
°J¤ß·PÁÂ!

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD