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

[µo°Ý] ¯B°Ê¦ì§}

[µo°Ý] ¯B°Ê¦ì§}

¥»©«³Ì«á¥Ñ ziv976688 ©ó 2021-7-19 04:59 ½s¿è

EX¡G
.Range("D2", "J" & Nrange - Num) .Copy .Range("K2")  => OK

¦ý¥Î¦b¤½¦¡Âà´«ªº»yªk´N¤£¦æ¤F~        

.[D2:J101].Formula = "=LEFT(TEXT(SUM(TEXT(MOD(M2+(0&TRIM(MID(SUBSTITUTE(V2,"","",""         ""),1+{0,1,2,3,4}*9,9))),49),""[=0]!49"")*10^{8,6,4,2,0}),""00!,00!,00!,00!,00""),IF(V2="""",0,CHOOSE(1+LEN(V2)-LEN(SUBSTITUTE(V2,"","",)),2,5,8,11,14)))"
       .[D2:J101] = .[D2:J101].Value
¦]¬°J101¬O¯B°Ê¦ì§}¡A©Ò¥H·Q±N.[D2:J101] §ï¬°¦p¦ü .Range("D2", "J" & Nrange - Num) ªº·N«ä¡A
¥H§Q¤½¦¡¯à¦Û°Ê¶ñº¡«á~¦AÂର¯Â­È¡C

½Ð°Ý¡G»yªkÀ³¸Ó«ç»ò½s¼g¡H
ÁÂÁÂ !

¦^´_ 1# ziv976688


.Range("D2", "J" & Nrange - Num)  =>  .Range("D2:J" & Nrange - Num)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 2# n7822123
OK¤F!
·PÁ±zªº¤@¦AÀ°¦£~·P®¦

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD