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

[µo°Ý] ¦p¦ó§âA2:A65536ªº¼Æ¾Ú,¤£¨¬¥|¦ì¸Éº¡¥|¦ìªºVBAµ{¦¡?

[µo°Ý] ¦p¦ó§âA2:A65536ªº¼Æ¾Ú,¤£¨¬¥|¦ì¸Éº¡¥|¦ìªºVBAµ{¦¡?

¾Ç©f¤S¨Ó³Â·Ð¤j®a¤F

½Ð«Ó­ô/¬ü¤kª©¥D «Ó­ô/¬ü¤k¾Çªø¸ò¾Ç©j

À°¦£¾Ç©f§¹¦¨

2011-02-1.rar (2.02 KB)

®@®@¦³¨S¦³¥i¯à¤£¥Îvba¨Ó§¹¦¨³o­Ó¨Æ°Ú
¥ÎÀx¦s®æªº®æ¦¡¨Ó§¹¦¨´N¦n¤F
jeason

TOP

¦^´_ 5# metrostar
¦ó¤£¸Õ¸Õ°ò¥»¾Þ§@ test.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_  metrostar
Hsieh µoªí©ó 2011-3-4 09:18



´Î·¥¤F,¥i¥H¥Î¤F
¦hÁ«ӭôª©¥D
¾Ç©f«D±`·P°Ê©O
±z¯u¬O¤Ó±j¤Ó±j¤F
·PÁ±z¨Ã¯¬¶P±z
©¯ºÖ¦n¹B¥Ã»·­°Á{±z¨­¤W

TOP

¦^´_ 3# metrostar
  1. Sub nn()
  2. For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
  3. s = Format(a, "0000")
  4. a.NumberFormat = "@"
  5. a.Value = s
  6. Next
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

«Ó­ôª©¥D,ÁÂÁ±z!
ÁÙ¬O¤£¦æ­C,¬Ý°_¨Ó¬O¥|¦ì¼Æ
¨Ò¦p A2 0012
¹ê»ÚÂà¥X¨ì °O¨Æ¥»¤´µM¬O 12

TOP

¦^´_ 1# metrostar
AÄ檺¼Æ­È®æ¦¡¦Û­q³]©w¬°"0000"§Y¥i
  1. Sub Ex()
  2.     Range("A:A").NumberFormatLocal = "0000"
  3. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD