[µo°Ý] ¦p¦ó¤À¶}¤é´Á©M®É¶¡

donod

test A.rar (14.51 KB)

¤U¸ü¦¸¼Æ: 3

2013-4-8 12:32

½Ð°Ý¦p¦ó§ï¼g¡A¤~¥i±o¨ì¥H¤Uµ²ªG:
test5.rar (7.14 KB)

¤U¸ü¦¸¼Æ: 4

2013-4-8 12:34

  
ÁÂÁÂ!

donod

¦^´_ 24# GBKEE

1)¤£¶×¤J¤@²Õ¦r¤¸
2013/04/02/09/21/00; 22159; 22159; 22131; 22131; 330
2013/04/02/09/22/00; 22133; 22140; 22130; 22140; 153
2013/04/02/09/23/01; 22140; 22148; 22134; 22139; 109


2) ¤£¶×¤J¨â²Õ¦r¤¸
2013/04/02/09/21/00; 22159; 22159; 22131; 22131; 330
2013/04/02/09/22/00; 22133; 22140; 22130; 22140; 153
2013/04/02/09/23/01; 22140; 22148; 22134; 22139; 109

¥H¤W¨â­Ó­Ó§O±¡ªp¨º¦p¦ó­×§ï¡AÁÂÁÂ!

GBKEE

¦pªG¬O¤£¶×¤J2013/04/02/09/14/01;¤¤ªº¬Y­Ó(e.g.2013/04/02/09/14/01;)©Î¬Y´X­Ó¦r¤¸(e.g.2013/04/02/09/14/01;)¡Adonod µoªí©ó 2013/4/15 17:56

¤£¸Ñ§Aªº·N«ä,½Ð¦A¸Ô²Ó»¡©ú

donod

¦^´_  donod
½Ð°Ý text5ªº¦r¦ê,¥i¬O¥þ¬°2013/04/02/09/14/01;
¦p¦³ 2013/04/02/09/15/00; 2013/04/02/09 ...
GBKEE µoªí©ó 2013-4-15 16:52

ª©¤j¤@»y¹D¯}¡A¤p½ú©¿²¤¤F³oÂI!¥Îª©¤jªº E.Offset(, 1) = Replace(Mid(W, 12, 5), "/", ":") ´N¤£»Ý­n²z·|¬í­È¬O§_¦s¦b¦³/00©Î/01¥H¥~ªº²Õ¦X¡C©ú¥Õ¤F¡AÁÂÁÂ!
¥t¥~¡A¦pªG¬O¤£¶×¤J2013/04/02/09/14/01;¤¤ªº¬Y­Ó(e.g.2013/04/02/09/14/01;)©Î¬Y´X­Ó¦r¤¸(e.g.2013/04/02/09/14/01;)¡A·íµM¬O¥þ³¡¦r¦ê¤¤ªº¬Û¦P¦ì¡A¨º¦p¦ó­×§ï¡A¦AÁÂÁª©¤j!

GBKEE

¦^´_ 21# donod
½Ð°Ý text5ªº¦r¦ê,¥i¬O¥þ¬°2013/04/02/09/14/01;
¦p¦³ 2013/04/02/09/15/00; 2013/04/02/09/15/02; 2013/04/02/09/15/03;
¬O§_­n¤@¤@¥h
.Cells.Replace "/00;", " ", xlPart
.Cells.Replace "/02;", " ", xlPart
.Cells.Replace "/03;", " ", xlPart

donod

¦^´_  donod
GBKEE µoªí©ó 2013-4-14 14:49

ÁÂÁª©¤j!
¥H¤U¬O¤p½ú¤§«á¸Õªº:
    .Cells.Replace "/01;", " ", xlPart '¥ÎªÅ®æ¥N´À "/01;" §@¬°delete¬í­È
    .Cells.Replace ";", " ", xlPart

¦pªG¦b .Cells.Replace ";", " ", xlPart ¤§«e¥[¤J.Cells.Replace "/01;", " ", xlPart ¡AÁöµMµ²ªG»Pª©¤jªº¤@¼Ë¡A¦b¹B§@¤W¹ê«h¦³¤°»ò¤À§O¡AÁÂÁÂ!

GBKEE

¦^´_ 19# donod

1. 
   
2.            'E.Offset(, 1) = Replace(Mid(W, 12), "/", ":")
   
3.             E.Offset(, 1) = Replace(Mid(W, 12, 5), "/", ":")
   
4.            'W³o¦r¦ê±q²Ä12­Ó¦r¤¸°_¨ú5­Ó¦r¤¸

½Æ»s¥N½X

donod

¦^´_ 17# GBKEE


2013/04/02/09/21/00; 22159; 22159; 22131; 22131; 330
2013/04/02/09/22/00; 22133; 22140; 22130; 22140; 153
2013/04/02/09/23/01; 22140; 22148; 22134; 22139; 109
½Ð°Ý¦b¶×¤J·½Àɮ׮ɡA¤£¶×¤JÄÝ©ó®É¶¡¤¤ªº¬í­È(¬õ¦â¼Æ¦r)¡A¥i¥H«ç»ò¼g¡A¦A¦¸ÁÂÁª©¤j!

donod

¦^´_ 17# GBKEE


    ª©¤j¯uªºª¾¤p½ú¡A¥¿¬O³o­Ó!ÁÂÁÂGBKEEª©¤j!

GBKEE

¦^´_ 15# donod

1. Sub Ex()
   
2.     Dim E As Range, W As String
   
3.     Workbooks.OpenText Filename:="D:\test5.txt"
   
4.     With ActiveWorkbook.Sheets(1)
   
5.         .Cells.Replace ";", " ", xlPart
   
6.         .Columns(2).Insert
   
7.         For Each E In .Range("A:A").SpecialCells(xlCellTypeConstants)
   
8.             W = E
   
9.             E = Mid(W, 1, 10)
   
10.             E.NumberFormatLocal = "m/d/yyyy;@"
    
11.             E.Offset(, 1) = Replace(Mid(W, 12), "/", ":")
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X