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

¦p¦ó§â¥þ§Î"¥y¸¹¡D"§ï¬°¥b§Î"¥y¸¹."?

¥»©«³Ì«á¥Ñ faye59 ©ó 2018-9-9 22:23 ½s¿è

¦^´_ 3# mhl9mhl9


    ¸Õ¸Õ¬Ý¡I
  1. Sub ex()
  2. For Each aa In Sheets("¤u§@ªí1").Range([A1], [A1].End(xlDown))
  3.     aa.Offset(, 0) = StrType(aa)
  4. Next
  5. End Sub
  6. Function StrType(Mystr)
  7. For i = 1 To Len(Mystr)
  8.     k = AscW(Mid(Mystr, i))
  9.     Select Case k
  10.     Case 12290 '¥þ«¬¥y¸¹
  11.         Textstring = Textstring & "."
  12.     Case Else
  13.         Textstring = Textstring & Mid(Mystr, i, 1)
  14.     End Select
  15. Next
  16. StrType = Textstring
  17. End Function
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD