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

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

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

¦p¦ó§â¥þ§Î"¥y¸¹¡D"§ï¬°¥b§Î"¥y¸¹."?
x=strconv("abcd¡Dabcd",vbnarrow)§ï¤£¤F,¤£ª¾¤°»ò°ÝÃD,ÁÂÁ¦U¦ìÀ°¦£
lmh

¦^´_ 4# faye59
(1)­º¥ý¹Dºp,§Úªº©RÃD¬O¿ùªº: x=strconv(y,vbnarrow)>>>y¨½©Ò¦³¥þ§Î¼ÐÂI²Å¸¹³£§ï¦¨¥b§Î¼ÐÂI²Å¸¹,µ²ªGx¬O¥¿½Tªºµª®×.
¤§©Ò¥H§Ú·|´£¥X¿ù»~©RÃD¬O¦]¬°§Ú¦¬¶°¨ìªº"¦r¦ê"¨½¥]§tªº¤£¬O"¥þ§Î¼ÐÂI¡D"¡A¤£ª¾¹D¬O¤°»ò²Å¸¹»ª¦ü¥þ§Î¥y¸¹,©Ò¥Hstrconv¨ç¼Æ¤£¯à§â¥¦Âର¥b§Î¥y¸¹.
(2) §Ú²{¦b¨Ï¥Î³o­Ó¤èªk>>>>  r1.Replace "¡D", ".", xlPart>>>>r1=[a1:a100000],10¸U­Ó¦r¦ê¨½¤£©ú²Å¸¹¡D¥þ³¡§ï¬°.¤F
lmh

TOP

¥»©«³Ì«á¥Ñ 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

¦^´_ 2# infoverdad
ÁÂÁÂ2#
§Ú¨S¦³ªí¹F²M·¡,§Ú¦³90¸U±ø¦r¦ê([A1:A900000]),¦³¨Ç¦r¦ê¬O¤@¼Ëªº,¦ý¦]¬°¼ÐÂI²Å¸¹¦³ªº¥Î¥þ§Î,¦³ªº¥Î¥b§Î,©Ò¥H¥²¶·²Î¤@¥Î¥b§Î.
[a1]=strconv([a1],vbnarrow),[a1]¨½¥þ§Î¼ÐÂI²Å¸¹³£§ï¬°¥b§Î¤F,°ß¿W¥þ§Î¥y¸¹,¤£·|³Q§ï¦¨¥b§Î¥y¸¹,¤£ª¾¹D¤°»ò­ì¦],´M¨D¸Ñ¨M¤èªk,ÁÂÁÂ
lmh

TOP

¦^´_ 1# mhl9mhl9

²q´ú¬O§_¦]¬°±zªº­ì¤å¦³Âù¤Þ¸¹? ¦pªG¬O­n¥Î¨â­ÓÂù¤Þ¸¹¤~·|¥¿½T
¨Ò¦p:
=SUBSTITUTE("x=strconv(""abcd¡Dabcd"",vbnarrow)","¡D",".")
=ASC("x=strconv(""abcd¡Dabcd"",vbnarrow)")

½Ð°Ñ¦Ò½×¾Â¤¤ªº http://forum.twbts.com/thread-7533-1-1.html

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD