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

¶}±ÒÀɮ׳]©w¤é´Á®æ¦¡

¶}±ÒÀɮ׳]©w¤é´Á®æ¦¡

¦³­ÓÀɮץѵ{¦¡¶×¥X,¤é´Á®æ¦¡¬Odd/mm/yy,
¦ý³¡¹q¸£ªº°ê§O³]©w,¤é´Á®æ¦¡¬°yyyy/mm/dd
¨Ï¨ìÀɮ׶}±Ò®É¤é´Á®æ¦¡¿ù»~,
¦p¦ó§Q¥Î¥¨¶°¶}±ÒÀÉ®×®É,¥i¥H³]©w¥¿½Tªº¤é´Á®æ¦¡
½Ð«ü±Ð

¦^´_ 1# enoch
¨Ï¨ìÀɮ׶}±Ò®É¤é´Á®æ¦¡¿ù»~
½Ð°Ý¬O¤°»ò·N«ä

TOP

¥»©«³Ì«á¥Ñ enoch ©ó 2011-8-22 16:32 ½s¿è

¨Ò¦p ³¡¹q¸£¬Oªº°ê§O³]©w¬O mm/dd/yyyy
¦ý¦]¬°Àɮ׬O dd/mm/yyyy
·í¤é´Á¬O 3/4/2011 (2011¦~4¤ë3¤é), ·|Ū¿ù¬°4¤ë3¤é
©Î·í¦¨¤å¤l,
ªþ¤W¨Ò¤l, ­ÓÀɮץѵ{¦¡¶×¥Xªº®æ¦¡¬Odd/mm/yyyy
­Y¹q¸£ªº®æ¦¡¦P¼Ë¬Odd/mm/yyyy , ¤é´ÁÁöµM¬O¤å¦r, ¦ý¥i¥H¥Îvalue Âà¦^¤é´Á(¼Æ¦r®æ¦¡)
¦ý­YªG¹q¸£ªº°ê§O³]©w¬O yyyy/mm/yy «h¹q¸£»{­ø¨ì¤é´Á,
­Y¹q¸£¬Omm/dd/yyyy «h·|±N¤é¤ë½ÕÂà,

¨ä¤¤¤@¦ìª©¥D¤¶²Ð¹L¶}±ÒÀɮ׫á¥Î¸ê®Æ>>ÅçÃÒ¥h§ó§ï®æ¦¡,
¦ý­øª¾¥Î¥¨¶°¦b¶}±ÒÀɮ׮ɥi§_ª½±µ³]©w­Ó¤é´Á®æ¦¡

¤é´Á®æ¦¡.zip (2.53 KB)

TOP

¦^´_ 3# enoch
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim E As Range, A
  3.     For Each E In Range("A2", [A2].End(xlDown))
  4.         A = Split(E, "/")
  5.         E = DateSerial(A(2), A(1), A(0))
  6.         E.NumberFormatLocal = "mm/dd/yyyy"
  7.     Next
  8. End Sub
½Æ»s¥N½X

TOP

csv¤£¤ä«ùvba¡A¤£­n¥Hcsv®æ¦¡Àx¦s¡C

TOP

¦hÁÂGBKEE «ü±Ð, ¦ý­YªG¤é´Á¸ê®Æ¤£¥u¬O±o¤@Äæ, ÅܤF­n¥Î¥¨¶°¥h¨C¤@Äæ­×§ï¶Ü?
¦Óexcel¥»¨­¥i¥H¦b¶}±Ò®É, «ü©ú¤é´Áªº¦~¤ë¤é®æ¦¡¶Ü?

¦hÁÂoobird  ´£¿ô, ¦]¬°Àɮ׬O¥Ñµ{¦¡ª½±µ¶×¥X¬°csvÀÉ,
¤U¦¸·|Âà¦^excel ÀÉ®×

TOP

¦^´_ 6# enoch
csv®æ¦¡->AÄæ¤é´Á ¬O¤å¦r   ©Ò¥H­n¥Î¥¨¶°­×§ï
­×§ï¤u§@ªí©Ò¦³ªº¤é´Á®æ¦¡
  1. Sub Ex()
  2. Cells.NumberFormatLocal = "yyyy/mm/dd"
  3. End Sub
½Æ»s¥N½X
b

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD