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

[µo°Ý] ½Ð°Ý¸Ó¦p¦ó¥ÎVBA§å¦¸­×§ïÀx¦s®æ¤¤ªº¨ç¼Æ¡H

[µo°Ý] ½Ð°Ý¸Ó¦p¦ó¥ÎVBA§å¦¸­×§ïÀx¦s®æ¤¤ªº¨ç¼Æ¡H

¦U¦ì«e½ú¦n¡A

§Ú·Q­n¨Ï¥ÎDDE(¤¸¤jYeswin¡^³sµ²¸ê®Æ¨ìExcel°O¿ý©M²Î¾ã¸ê®Æ¡A¥D­n¬OOPªº¸ê®Æ¡A¦ý¬O¦]¬°»ù¦ì¨C¤Ñ¦bÅÜ¡A©Ò¥H¬Û¹ïÀ³ªº»ù¥­»ù¦ì¡]©Î¬O§Ú·Q­nÆ[¹îªº»ù¦ì¡^¤]¬O¨C¤Ñ¦bÅÜ¡C
©Ò¥H·í»ù¥­»ù¦ìÅÜ°Ê«á¡A§Ú·Q­n¡u¤â°Ê¡v§ïÅÜ»ù¥­»ù¦ìªº®É­Ô¡A´NÅܪº«Ü³Â·Ð¡]½Ð°Ñ¾\ªþ¥ó¡^¡A¦]¬°¨C­ÓÀx¦s®æ¤¤³£ªøªº¹³³o¼Ë¡u=YES|DQ!TXO07500J1.Price¡v¡C
¦pªG¤@¥¹§Ú­n§ïÅÜ»ù¥­»ù¦ìªº®É­Ô¡A´N­n¤â°Ê§ó·s¤j¬ù6 x 9 x 2 =104 ­ÓÀx¦s®æ¡A¬O¤@¶µ¤j¤uµ{....:L
©Ò¥H§Ú¸ÕµÛ¼g¤@­Ó¥¨¶°À°§Ú§ïÅܨC­ÓÀx¦s®æªº¤º®e¡]§Úªº¥¢±Ñµ{¦¡·Ð½Ð°Ñ¾\ªþ¥ó¡^¡A§Úªº¡u»ù¥­¦ì¸m¡v¬O¤â°Ê¥ÑG2¿é¤J¡C

§Úªº·Qªk¬O»¡¡A¥ý§ä¥X»ù¥­¦ì¸m¡]ÂŦ⪺¨º¨â¦C¡^¨º¦Cªº©Ò¦³¡u7500¡vµM«á¨ú¥N¦¨§Ú­nªº¼Æ­È¡A¤§«á¦A¥ÎFor ¨ç¼Æ§å¦¸¨ú¥N¨ä¥L»ù¦ì¡C
¦ý§Ú¦b¥ÎLeft ©MRight ¨ú¥X¡u7500¡vªº®É­Ô´N¥X¤F°ÝÃD¡A©Î³\¬O¦]¬°DDE¥»¨­ªº«ü¥OExcel§â¥¦·í¦¨¤@­Ó¨ç¼Æ¦Ó¤£¬O¦r¦ê¡A©Ò¥HµLªk¥Î³o¼Ëªº¤è¨ú¥N

¥i§_½Ð±Ð¦U¦ì°ª¤âÀ°¦£¡A±Ð§Ú¸Ó«ç»ò¼g¤~¹ï¡H·PÁ¦U¦ì


OP (Yeswin).rar (24.77 KB)
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

r1 = Mid(Range("B16").Formula, 2)
r2 = Right(Left(r1, 15), 4)
©³¤Uªº´`Àô¬Ý¤£¥X§A­n¸m´«¤°»ò¡C

TOP

·PÁ chin15¤j¡A©³¤Uªºµ{¦¡½X¥u¬O§Ú¦b¤§«e½×¾Â¤å³¹¸Ì§ä¨ìªº¡A¥u¬O¥ý¶K¤W°µ¬°¬ö¿ý°Õ¡I

ÁÂÁ±zªº¦^µª¡A§Ú¦A§ï¥Î±zªº¤è¦¡¸Õ¸Õ¬Ý¡A·PÁ°աI
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

chin152¤j¡A

§Ú¥Î¤F±z±Ðªº¤è¦¡¡A¥i¥H¨ú¥XFormula¸Ì­±ªº¡u7500¡v³o­Ó¼Æ¦r¡A¦ý¬O«o¨S¿ìªk¦b¸m´«¤§«á¦AÂন¤èµ{¦¡¡A§Ú¬O³o¼Ë¼gªº¡G

r1 = Mid(Range("B16").Formula, 2)
r2 = Right(Left(r1, 15), 4)
r3 = Range("G2")
r4 = Replace(r1, r2, r3)
Cells(16, 2).Formula = r4

½Ð°Ý¸Ó«ç»ò¼g¤~¥i¥H±N(16,2)Âন¤èµ{¦¡©O¡HÁÂÁ±z
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

Cells(16, 2).Formula = "=" & r4

TOP

·PÁÂoobird¤j¡A¥i¥H°Õ¡I¡I
§Ú·R³Â»¶®a±Ú°Q½×°Ï¡I¡I

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD