[µo°Ý] ¦p¦ó§PÂ_¬O§_ ¥þ§Î¦r?

sunnyso

¦p¦ó§PÂ_¬O§_ ¥þ§Î¦r? ¦³¨S¦³¥Î VBA ©M¤£¥ÎVBAªº¤èªk.  ÁÂÁÂ

¥Î=CODE() ¹ï"氹" ¦r ¨S¦³¥Î

2013-4-8 20:14

1. ¦r        is¥þ§Î
   
2. 氹        TRUE
   
3. ¥J        TRUE
   
4. ¿D        TRUE
   
5. A        FALSE
   
6. 1        FALSE
   
7. ¢°        TRUE
   
8. ?        FALSE
   
9. ¡H        TRUE
   
10. .        FALSE
    
11. ¡C        TRUE

½Æ»s¥N½X

q.rar (6.22 KB)

¤U¸ü¦¸¼Æ: 10

2013-4-8 20:14

sunnyso

ÁÂÁÂ,  code() ·|¤p©ó0 ¶Ü¡H­Y·|¤°»ò±¡ªp¡H

sunnyso

§Ú¥»¨Ó¤]¬O¥Î >255 ¨Ó§PÂ_, doublebyte¦r

¥¼ª¾¬O§_ Excel ªº bug

sunnyso

¦^´_ 9# ML089
冧
嘅
嗰
啲

sunnyso

¦^´_ 11# ML089

¼sªF¸Ü(¸f»y)¤f»y¦r

sunnyso

¦^´_ 13# ML089

·PÁ¤j¤j, ³o¬O³Ì²¼ä ªº§PÂ_¡C

sunnyso

¤Sªøª¾ÃѤF
ÁÂÁÂ

sunnyso

¦^´_ 2# Hsieh
¦^´_ 13# ML089
¦^´_ 19# ­ã´£³¡ªL
¦^´_ 21# Bodhidharma

Left(   ,1) <> LeftB(   , 1) ¦bVBA¦n¹³¤£¯à¥Î

ªþµù LeftB ¨ç¼Æ¬O¨Ï¥Î¦b¦ì¤¸²Õ¸ê®Æ¦r¦ê¤W¡C©Ò¥H LeftB ¶Ç¦^ªº¬O¦ì¤¸²Õ¼Æ¡A¦Ó«D¦r¤¸¼Æ¡C

½Ð°Ý¦U¦ì¤j¤j, ¦p¦ó¥ÎVBA¨Ó§PÂ_¡]¤£¨Ï¥ÎApplication.WorksheetFunction¡^¡H

sunnyso

¦^´_ 24# ­ã´£³¡ªL

­Y¤£¦Ò¼{¡e¯S®í¦r¡f

DblChrCount = LenB(StrConv([D3], vbFromUnicode)) - Len([D3])

sunnyso

¦^´_ 2# Hsieh ¦^´_ 21# Bodhidharma ¦^´_ 22# ML089 ¦^´_ 24# ­ã´£³¡ªL

²×©ó·Q¨ì¤@­Ó²¼äªº¤èªk¡A¥Î ¡§¥¿³Wªí¥Ü¦¡¡¨

¤£ª¾ ¦U¦ì¤j¤j­Ì¬O§_¦A´£¨Ñ§óªººëÅP¸Ñªk¡I

1. Function CountDblChr(ByVal sCh As String) As Integer
   
2.     Set re = CreateObject("vbscript.regexp")
   
3.     're.Pattern = "[\u4e00-\u9fa5]" '§PÂ_¤¤¤å¦r(¥]¬A¯S®í¦r¡A¦ý¤£¥]¬A²Å¸¹¡C©M¼Æ¦r¦p¢°¡^
   
4.     re.Pattern = "[^\x00-\xff]" '§PÂ_©Ò¦³ªº¥þ§Î¦r
   
5.     re.Global = True
   
6.     re.IgnoreCase = True
   
7.     Set matches = re.Execute(sCh)
   
8.     CountDblChr = matches.Count
   
9.     Set re = Nothing
   
10. End Function

½Æ»s¥N½X