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

[µo°Ý] ²M°£¬Ý¤£¨£ªºªÅ®æ¨Ã°Ñ·Ó

¦^´_  c_c_lai
ÁÂÁÂc¤jªº«ü¾É, ¤F¸Ñ¤F!!
yen956 µoªí©ó 2015-12-6 17:55

#8 ¬O¤£¬Oµ¹§A¸Ñµª¤F¡H

TOP

¦^´_ 11# c_c_lai
ÁÂÁÂc¤j¦A¤T«ü¾É,
¥»¥H¬°À³¥i¥H¸Õ¥X¨Ó,
µ²ªGÁÙ¦b¸Õ!?
(¥u¥X¨Ó¤@¦C, ¦ýRng¤w·|¤@ª½ÅÜ, ¤£·|¦V¤U®i¶},
À³¸Ó¤]¥i¥HºÊ¬Ý·Q­n¬Ýªº, ÁÂÁÂ!!)

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-6 18:57 ½s¿è

¦^´_ 12# yen956
§A¥i¥H¤@¤f®ð³sÄò (ÂI¿ï±ý°»´úÅܼƳf¹Bºâ¦¡(·Æ¹«¥kÁä)
->¿é¤J¹Bºâ¦¡©Î±ýÀË´úÅܼÆ->«ö½T»{)
©Î¤À¦¸¿é¤J§A­n°»´úªºÅܼơA©Î§PÂ_¡A¨Ò¦p¡G
Asc(Mid(Rng, 1, 1))   '  Àˬd²Ä¤@­Ó¦r¤¸­È¬°¦ó
Asc(Mid(Rng, 2, 1))   '  Àˬd²Ä¤G­Ó¦r¤¸­È¬°¦ó
Asc(Mid(Rng, 3, 1))   '  Àˬd²Ä¤T­Ó¦r¤¸­È¬°¦ó
Asc(Mid(Rng, 4, 1))   '  Àˬd²Ä¥|­Ó¦r¤¸­È¬°¦ó
Asc(Mid(Rng, 5, 1))   '  Àˬd²Ä¤­­Ó¦r¤¸­È¬°¦ó
Rng                               '  Àˬd Rng ¥Ø«e­È¬°¦ó
Mid(Rng, 4, 1)             '  Àˬd²Ä¥|­Ó¦r¤¸¬°¦ó
.
.
µ¥µ¥¦h¶µ¹Bºâ¦¡ºÊ´ú¡C

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2015-12-6 19:33 ½s¿è

¦^´_ 13# c_c_lai
ÁÂÁ¦A¤T«ü¾É,
²×©ó¸Õ¥X¨Ó¤F,
1. ¤Ä¿ïºÊµøµ¡
2. °»¿ù¡÷·s¼WºÊ¬Ý¦¡
3. ¿é¤J¹Bºâ¦¡©Î±ýÀË´úÅܼÆ->«ö½T»{
4. F8
¯u¤ß·PÁÂc¤j¤j, thanks a lot!

TOP

½Ð°Ý¬O§_­n¥ý§âAÄæ¿ï¥X¨Ó¡H­Y°±¯d¦b¨ä¥¦Àx¦s®æ°õ¦æVBA¦n¹³ÁÙ¬OµLªk²M°£¬Ý¤£¨£ªºªÅ®æ

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-7 10:54 ½s¿è

¦^´_ 15# paddyliu

F.png

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-12-7 18:24 ½s¿è

¦^´_ 15# paddyliu
¥t¥~¡A¥i¥H¤£¥Î¤H¤u®Ø¿ï¡G
  1. Sub §R°£ªÅ®æ2()
  2.     Dim Rng As Range
  3.    
  4.     For Each Rng In sheet1.UsedRange
  5.         Rng = Trim(Application.Clean(Rng))
  6.     Next
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD