GBKEE

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

GBKEE

¦^´_ 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

GBKEE

¦^´_ 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