freeffly

¦^´_ 16# ML089


    ³o§Ú¥H«e­Ë¤£ª¾¹D
   §Ú³£ªF¾Ç¤@ÂI¦è¾Ç¤@ÂI
   ·|¦³¿òº|ªºÂI
   ·PÁ±оÉ

ML089

¦^´_ 14# freeffly

EXCEL¦b­pºâ®É¡A«Ü´¼¼z¿ëÃѤ@¨Ç¤å¦r®æ¦¡Âà¤Æ¬°¼Æ­È¶i¦æ­pºâ

XXXX-XX-XX¡A XXXX/XX/XX¡A XX/XX¡A XXXX¦~XX¤ëXX¤é ³£·|µø¬°¤é´Á¦Û°Ê´«¶i¦æ­pºâ

XX:XX¡A XX:XX:XX  ³£·|µø¬°®É¶¡¦Û°Ê´«¶i¦æ­pºâ

©Ò¥H¦b­pºâ®É¤£¨£±o»Ý­n¥Î¤é´Á¡B®É¶¡¨ç¼ÆÁÙÂà·Ø
.

freeffly

¦^´_ 13# c_c_lai


    ³o¦U¤è¦¡¶]°_¨Óªá¤F¨Ç®É¶¡
   ¤£¹L¤@¼Ë¦³¹F¨ì®ÄªG

freeffly

¦^´_ 12# ML089


    ³o¦U°÷µu¡A¤]«Ü¦n¥Î

   ¸Õ¤F¤@¤U¡A¹ï©ó¤é´Áªº³B²z§Ú³£¬O¥Îdateªº¤è¦¡
   ³oºØ¤èªk§Ú²{¦b¾Ç²ß¤F

c_c_lai

§Ú·Q­n¦bBÄæÅã¥ÜAÄæ¹ïÀ³ªº¦è¤¸¤é´Á
½Ð°Ý¦³¿ìªk°µ¨ì¶Ü?
freeffly µoªí©ó 2013-5-30 16:07

¥H¤U¬O GBKEE ª©¤jªººî¦Xª©¡G

1. Sub Ex()
   
2.     Dim i  As Long, xl_Year As String,  yr As String
   
3.    
   
4.     With Range("A1:A" & [A1].End(xlDown).Row)
   
5.         .Cells(1).Select
   
6.         For i = 1 To .Count
   
7.             If InStr(.Cells(i), "¤¤µØ¥Á°ê") Then
   
8.                 '  InStr ¨ç¼Æ ¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
   
9.                 xl_Year = Mid(.Cells(i), InStr(.Cells(i), "¤¤µØ¥Á°ê") + 4, 10)      '  ¦~«×
   
10.                 yr = Trim(Str(Int(Left(xl_Year, InStr(xl_Year, "¦~") - 1)) + 1911) + Mid(xl_Year, InStr(xl_Year, "¦~"), InStr(xl_Year, "¤é") - InStr(xl_Year, "¦~") + 1))
    
11.                 .Cells(i).Offset(, 1) = yr
    
12.                 .Cells(i).Offset(, 2) = Left(yr, 4) + "/" + Mid(yr, 6, InStr(yr, "¤ë") - 6) + "/" + Mid(yr, InStr(yr, "¤ë") + 1, InStr(yr, "¤é") - InStr(yr, "¤ë") - 1)
    
13.             End If
    
14.         Next i
    
15.     End With
    
16. End Sub

½Æ»s¥N½X

¦p¦ó±N¤º®e¦³¤¤µØ¥Á°ê¤é´Áªº¦r²´§ì¥X¨ÓÂন¦è¤¸¤é´Á.rar (13.42 KB)

¤U¸ü¦¸¼Æ: 10

2013-6-4 09:25

ML089

¦^´_ 3# freeffly

¦³³W«hªº¸ê®Æ¥i¥H¥Î MID¤ÎFIND¨ç¼Æ¨Ó§¹¦¨

B2¤½¦¡
=--(MID(A2,10,3)+1911&MID(A2,13,FIND("¤é¡@",A2)-12))

¥X¨Ó¬O¼Æ¦r¡A»Ý³]©wÀx¦s®æ®æ¦¡ - ¤é´Á¡A¤~·|Åã¥Ü¤é´Á

freeffly

¦^´_ 10# GBKEE


    ¶Wª©´N¬O³o¦U
   SendKeys³o¦UÁÙ¬O²Ä¤@¦¸±µÄ²
   ¥ý¦¬¤U¬ã¨s¤@¤U

GBKEE

¦^´_ 7# freeffly

1. Sub Ex_¤é´Á¼Æ­È()
   
2.     Dim i  As Long, xl_Year As Variant
   
3.     With Range("B1:B" & [A1].End(xlDown).Row)
   
4.         .Cells = "=MID(RC[-1],10,10)"
   
5.         .Value = .Value
   
6.         .Replace "µo", ""
   
7.         .Cells(1).Select
   
8.         For i = 1 To .Count
   
9.             xl_Year = Split(.Cells(i), "¦~")
   
10.             xl_Year(0) = xl_Year(0) + 1911 & "¦~"
    
11.             .Cells(i) = Trim(Join(xl_Year, ""))
    
12.             DoEvents
    
13.             Application.SendKeys "{F2}"
    
14.             Application.SendKeys "~"
    
15.             DoEvents
    
16.         Next
    
17.         .Cells(1).Select
    
18.         .Cells.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlNo
    
19.     End With
    
20. End Sub

½Æ»s¥N½X

freeffly

¦^´_ 6# Hsieh


    ÁÂÁ¶Wª©
   ³o¦U¤èªk¤£¿ù
   ¨S¦³¥Î¨ì¨ç¼Æ
   
   ¥Îgoogle¤j¯«¤]§ä¨ì¥H«e¶Wª©¹ï¨ä¥L¤H¸Ñªº¨Ò¤l¦³Á¿¨ìEMD
    ­ì¨Ó³o¦U¬O³B²z¥Á°êªº¤è¦¡
   ¾Ç²ß¤F

freeffly

¦^´_ 5# HSIEN6001


    ¸ò§Ú«á¨Ó§Ëªº¤½¦¡«Ü¹³
   ·PÁÂ

§Ú¨Ï¥Îªº¨ç¼Æ¦h¤FÂI

¤é´Á.rar (13.31 KB)

¤U¸ü¦¸¼Æ: 7

2013-5-31 09:17