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

mhl9mhl9

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

infoverdad

¦^´_ 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

mhl9mhl9

¦^´_ 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,ÁÂÁÂ

faye59

¦^´_ 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

mhl9mhl9

¦^´_ 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