½Ð±Ð¡GVBA ¦p¦ó§PÂ_¤¤^¤å¡H
- ©«¤l
- 12
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-4
- ³Ì«áµn¿ý
- 2017-9-19
|
½Ð±Ð¡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¡An¤â°Ê§ï¡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 |
|
|
|
|
|
|
- ©«¤l
- 2025
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 2053
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2011-3-2
- ³Ì«áµn¿ý
- 2024-3-14
|
¦pªG¥Î¤½¦¡
=IF(LEFT(A1)<="z",A1,SUBSTITUTE(SUBSTITUTE(A1," ",),"¡@",))
¤U©Ô |
|
{...} ªí¥Ü»Ýn¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡
|
|
|
|
|
- ©«¤l
- 12
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 23
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-6-4
- ³Ì«áµn¿ý
- 2017-9-19
|
¦^´_ 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®õ *
·¨Ã£Äí *
½²·×·ã *
*- Sub TestChinese()
- LastRows = Range("A65536").End(xlUp).Row
- For i = 2 To LastRows
-
- aString = Cells(i, 1)
-
- If aString = "" Then
- Cells(i, 2) = "*"
- Else
- aChar = Left(aString, 1)
- If Asc(aChar) < 0 Then
- Cells(i, 3) = "*"
- ElseIf aChar Like "[A-Za-z]" Then
- Cells(i, 4) = "*"
- ElseIf aChar = 48 Or aChar <= 57 Then
- Cells(i, 5) = "*"
- Else
- Cells(i, 6) = "*"
- End If
- End If
-
- Next i
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|