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

´M§ä&¨ú¥N

¦^´_ 2# register313
½Ð°Ý±z¬°¦ó¥Î Rng.Replace S(I), Application.Text(S(I) / 100, "J00") ªº¤è¦¡³B²z¡H
¥¦»P¤U¦C³B²z¤è¦¡¡A®t§O¦b©ó¤@­Ó¥H°}¦C¡B¤@­Ó¥Hª½±µ´À´«ªº¤è¦¡°µ²§°Ê¡C
R = Array("J07", "J11", "J15", "J23")
Rng.Replace S(I), R(I)
¦ý§Ú¦n©_ªº¬O Application.Text(S(I) / 100, "J00") ¬O¦p¦ó¹B§@ªº¡H
ÁÂÁ±z¡I

TOP

¦^´_ 4# register313
§Ú¥Î¤F     Range("D5").Value = Format(11, "J00") ¨Ó°µ´ú¸Õ¡A³ºµMµª®×·|¬O J11¡A
Amazing!  
Thanks a lot.

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD