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

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

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

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD