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

[µo°Ý] Ãö©óÀx¦s®æ ¨â¬qªº°ÝÃD

[µo°Ý] Ãö©óÀx¦s®æ ¨â¬qªº°ÝÃD

¥»©«³Ì«á¥Ñ mark15jill ©ó 2012-3-14 09:33 ½s¿è

·Q½Ð°Ý ¦pªGÀx¦s®æ ¦³¨â¬q¤å¦r(¦pªþ¹Ï) ­n«ç¥ÎVBA§P§O ¤W¡B¤U¦æ¤å¦r??
(¥u·|¦X¦A¤@°_ ¤£·|¤À¶}= =")

¦pªþ¹Ï
attachimg]9978[/attachimg]
¸Ñ¹Ï.jpg

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-3-26 08:48 ½s¿è

¦^´_ 16# c_c_lai

Application.Find³o¬OVBA¤Þ¥Î¤u§@ªí¨ç¼Æ
FIND¨ç¼Æªº»¡©ú¤º²M·¡´£¨ì¡A·í·j´M¤£¨ì¦r¤¸·|¶Ç¦^¿ù»~­È
¤£­n±NVBA¤èªk»P¤u§@ªí¨ç¼Æ²V²c
¤u§@ªí¨ç¼ÆFIND·|¶Ç¦^¦r¤¸¦ì©ó¦r¦ê¤¤ªº¦ì¸m¡A·|¶Ç¦^¤@­Ó¼Æ­È
VBAªºFind¤èªk¬O§ä¨ì²Å¦X±ø¥óªºÀx¦s®æ¡A·|¶Ç¦^Àx¦s®æª«¥ó
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

­ì¨Ó¦p¦¹¡A ¦]¬°§Ú¬O¥Î Application.Find("/", Sheet1.Cells(1, 1), 1) ªº¤è¦¡¨Ó³B­ù¡A
¦pªG¤º®e¬° "®üÀs®c/®üÀs¤ý"  ´N OK¡A ¦ý¦pªG´«¦¨ "®üÀs®c ®üÀs¤ý"  «h¬°   #VALUE ¤F¡C
ÁÂÁ±zªº«ü¾É¡I

TOP

¦^´_ 14# c_c_lai
¨ç¼Æ»¡©ú
1.jpg
2012-3-25 19:56

TOP

½Ð±Ð¤@¤U°²³]¦r¦ê¤¤ Chr(10) ¸U¤@¤£¦s¦b®É¡A°õ¦æ Application.Find(Chr(10), Sheet1.Cells(1, 1), 1) ¬°¦ó·|¥X²{ Error ©O¡H

TOP

¤F¸Ñ~~
ÁÂÁ¤j¤jªº±Ð¾É..
¦]¬°¦³¨Ç¸ê®Æ ­ì©l´N¤w¸g¦X¦b¤@­ÓÀx¦s®æ
¸gÂà´««á ­n¤À¶}

TOP

¦^´_ 3# mark15jill
¦pªG¬O¤À¹j²Å¸¹½T©w¬Oalt+enter
¨Ï¥Î¸ê®Æ­åªR/¤À¹j²Å¸¹/¨ä¥L¿é¤Jalt+¼Æ¦rÁä10

play.gif
2012-3-14 13:35
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 10# hugh0620


    ÁÂÁÂHUGH0620 ¤j¤j

¦³¸ÕÅç¤F  ¥i¥H~ ÁÂÁÂ(¥Ø«e¥¿±Nµ{¦¡½XÂà´«¦¨ ·Q­nªº¥\¯àÂX¥R°Ï¶ô)...

TOP

¦^´_ 7# mark15jill

³o¼Ë´N¥i¥H¤F~
chr(13)->chr(10)
¦]¬°§Úªº¸ê®Æ¬O±q¸ê®Æ®w¾É¥X¨Óªº~ ©Ò¥H·|¦³¤@­Óchr(13)ªº¦r¤¸~
©Ò¥H~ §A­n¦Û¦æ¥h¤F¸Ñ~ §A¸ê®Æªº¤º®e~ ¦A¥h½Õ¾ã¦¨¾A·íªºµ{¦¡½X~

Sub ex()
Cells(1, 3) = Left(Sheet1.Cells(1, 1), Application.Find(Chr(10), Sheet1.Cells(1, 1), 1) - 1)                                                 '(´î¤£´î1¬Ý§A¸ê®Æ¤º®e,¦Û¦æ¼W´î)
Cells(1, 4) = Mid(Sheet1.Cells(1, 1), Application.Find(Chr(10), Sheet1.Cells(1, 1), 1) + 1, Len(Sheet1.Cells(1, 1))) '(¥[¤£¥[1¬Ý§A¸ê®Æ¤º®e,¦Û¦æ¼W¥[)

End Sub
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 8# register313


¸ÕÅç¥i¥H.. ·PÁ¦U¦ì¤j¤jªº¨ó§U..

ÄA­Ë¬O¨SÃö«Y.. «áÄò¦A½Õ¾ã´N¦n

¤§«e¬O¦hµ§¸ê®Æ­n²Î¦X¤@°_¡A²{¦b¬O­n¤À¸Ñ¥X¡C
¯u¬Oxxxxxxxxo   = ="

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD