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

[µo°Ý] ¦p¦ó¥i¥H§ó¦³®Ä²v§ó§ïÀx¦s®æ¤º­Èªº®æ¦¡

[µo°Ý] ¦p¦ó¥i¥H§ó¦³®Ä²v§ó§ïÀx¦s®æ¤º­Èªº®æ¦¡

°ÝÃD¤@
Á`¦@¦³6¸U¦hµ§¸ê®Æ­nRUN¡A¬O§_¦³§ó¦nªº¤è¦¡
    NR = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
     For i = 4 To NR
      Cells(i, 1).Value = VBA.Format$(Trim(Cells(i, 1).Value), "'" & "00000000")
    Next
°ÝÃD¤G
¸ê®Æ¦bABCÄæ¨Ñ4¸Uµ§
»Ý¿z¿ï¯S©w¸ê®Æ(¤£­«½Æ)¶K¨ìE-G H-J ......¦³¥i¯à±q´_6-7¦¸
§Ú­n¦p¦ó¼g,¤§«e·Q¥Î°j°é¼g¥¹¬O¦³¤@ÂI½ÆÂø¡A½Ð¤j®aÀ°§Ú·Q·Q

1.§ï¥Î°}¦C¿é¤J¡AÀþ¶¡§¹¦¨
Dim i&,rng
rng = Range(Cells(4, 1), Cells(65536, 1))
     For i = 1 To UBound(rng)
     rng(i, 1) = VBA.Format$(Trim(rng(i, 1)), "'" & "00000000")
Next
Cells(4, 1).Resize(UBound(rng)) = rng
2.¤W¶Ç§Aªº¤å¥ó¤~·|ª¾¹D¿z¿ï¤°»ò

TOP

·PÁÂoobirdªºÀ°§U¡A³t«×ªGµM§Ö«Ü¦h¡A§Ú¦]¸Ó¦n¦n¾Ç²ß¤@¤U°}¦Cªº¨Ï¥Î§Þ¥©

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD