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

[µo°Ý] ½Ð°Ý,­n¿ï¨ú«ü©w¦r»P¦r¤¤¶¡ªº¤å¦r??

¦^´_ 1# gctsai
  1. Option Explicit
  2. Sub EX()
  3.     Dim S As String
  4.     S = InStr([B1], "·³¦¸")
  5.     S = Mid([B1], S + 4)
  6.     S = Replace(S, "¤ë", ",")
  7.     S = Replace(S, "¤é", "")
  8.     MsgBox Split(S, ",")(0)
  9.     MsgBox Split(S, ",")(1)
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD