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

½Ð±Ð¡GVBA ¦p¦ó§PÂ_¤¤­^¤å¡H

½Ð±Ð¡GVBA ¦p¦ó§PÂ_¤¤­^¤å¡H

¥»©«³Ì«á¥Ñ storylai ©ó 2014-1-8 18:25 ½s¿è

§Úªº±¡ªp¡G
1- ·s±µ¤âªº¤u§@¬O¾ã²z¨Ó¦Û¤£¦P¨t²Î¤£¦P¨Ó·½ªº³øªí¡A
   ¦U³øªíªº¡u©m¦W¡v³¡¥÷¦³¤¤¦³­^¡A
   ¦ý¤¤¤å¦W¦r©¹©¹¥X²{¡u±i+ªÅ®æ+¤TÂסv¡A
   ¦p¡u±i ¤TÂסv¥X²{¤F¡A­n¤â°Ê§ï¡I
   ­Y¬Ýº|¤F¶i¤F database «h§ó³Â·Ð¡C

2- °ÝÃD¬O¡A§Úªº³øªí¤¤­^¤å¦W³£¦b¦P¤@Ä椤¡A
    ­^¤å¦W¥²¶·«O¯dªÅ®æ¡A
    ¤¤¤å¦W¦³¥b§Î¤@­Ó¡B¨â­Ó©Î¥þ§Î¤@­ÓªÅ®æ¡C
    ±¡ªp¦p¤U¨Ò¡G
        Taylor Swift  
        ±i ´f©f
        Nicki Minaj   
    ¡@ ½²¨ÌªL‎
        Ä¬   Íº
        Flo Rida
        ±ä¡@®æ
        ©P¡@ªN­Û‎
3- ³oºØ±¡ªpÁÙ¥X²{¦b¨ä¥¦¦p¼Æ¦r¡A¦p 12,345¡A¬v¨t²Î´N°¾­n¥X 12 345
   ¦Ó¤¤­^¤å¦a§}ªºªÅ®æ«hÄÝ©ó¿é¤J¿ù»~¡I

²{®É¨C¤Ñªº·s¸ê®Æ¡A§Ú¬O¥Î¤â°Ê±Æ§Ç¤â°Ê­×§ï¡A
¦ý¹L©¹ªº¸ê®Æ¤Ó¦h¤F¡A
¦]¦¹¡A·Q½Ð±Ð¤j®a¡A¯à§_¥Î VBA §PÂ_¤¤­^¤å¡AµM«á¦A§R°£ªÅ®æ¡C



ÁÂÁ¤j®a¡C

¦pªG¥Î¤½¦¡
=IF(LEFT(A1)<="z",A1,SUBSTITUTE(SUBSTITUTE(A1," ",),"¡@",))
¤U©Ô
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 1# storylai
ªþÀÉ»¡©ú¬Ý¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  storylai
ªþÀÉ»¡©ú¬Ý¬Ý
GBKEE µoªí©ó 2014-1-9 08:59


¬Q±ß¦Ü¤µ¤´¤W¶Ç¤£¤F¡C

¬Q±ß°µ¤F¤p¤pµ{¦¡¡Aµ¹¤j®a¤@¯º¡C
¥¦°ò¥»¯à¹F¨ì§Úªº­n¨D¡A¤U¤@¨B·Q¥Î Trim ¥ý§R¥h¦W¦rªº¨âÃäªÅ®æ¡A
±µµÛ¬O§R¦r¦ê¤¤ªº¡u¥b§Î¤Î¥þ§ÎªÅ®æ¡v¤F¡C

¥Ñ©ó¤u§@¤º®e¯A¤ÎÁô¨p¡A¬G¦Û¤v§Ë¤F­Ó¬ÛÃþªºªþ¥ó¡C

¤º®e¡G   (ªÅ¦æ¡B¤¤¤å¡B­^¤å¡B¼Æ¦r¡B¨ä¥¦ µ¥Äæ¬O§P§O«á°µ°O¿ý¡A¤è«K®Ö¹ï)

A            B        C        D          E        F
«È¦W             ªÅ¦æ        ¤¤¤å    ­^¤å    ¼Æ¦r        ¨ä¥¦


W                        *
x                        *
Y                        *
z                        *
¤B¦u¤¤                *       
¥Ð¬îÔ»                *
§f¥É¬Â                *
§õÂE¶v                *
ªL°ê¥¿                *
¬x¨q¬W                *
³¯©É¼ä                *
³¯¸`¦p                *
±i¹Å°p                *
¶OÂE®õ                *
·¨Ã£Äí                *
½²·×·ã                *
        *
  1. Sub TestChinese()
  2.         LastRows = Range("A65536").End(xlUp).Row
  3.         For i = 2 To LastRows
  4.    
  5.             aString = Cells(i, 1)
  6.             
  7.             If aString = "" Then
  8.                Cells(i, 2) = "*"
  9.             Else
  10.                         aChar = Left(aString, 1)
  11.                                     If Asc(aChar) < 0 Then
  12.                                         Cells(i, 3) = "*"
  13.                                     ElseIf aChar Like "[A-Za-z]" Then
  14.                                         Cells(i, 4) = "*"
  15.                                     ElseIf aChar = 48 Or aChar <= 57 Then
  16.                                             Cells(i, 5) = "*"
  17.                                     Else
  18.                                               Cells(i, 6) = "*"
  19.                                     End If
  20.             End If
  21.         
  22.         Next i

  23. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# storylai
  1. Sub ex()
  2. Dim A As Range
  3. With ¤u§@ªí1
  4. For Each A In .Range(.[A1], .[A1].End(xlDown))
  5. n = Asc(A)
  6.    If Asc(A) > 255 Or Asc(A) < 1 Then A = Replace(A, " ", ""): A = Replace(A, "¡@", "")
  7. Next
  8. End With
  9. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD