[µo°Ý] ½Ð°Ý¦p¦ó±N¤º®e¦³¤¤µØ¥Á°ê¤é´Áªº¦r²´§ì¥X¨ÓÂন¦è¤¸¤é´Á?

freeffly

§Ú·Q­n¦bBÄæÅã¥ÜAÄæ¹ïÀ³ªº¦è¤¸¤é´Á
½Ð°Ý¦³¿ìªk°µ¨ì¶Ü?

Book1.rar (5.6 KB)

¤U¸ü¦¸¼Æ: 23

2013-5-30 16:05

GBKEE

¦^´_ 1# freeffly

1. Sub Ex()
   
2.     Dim R As Range, xl_Year As Integer
   
3.     Set R = [A1]
   
4.     Do While R <> ""
   
5.         If InStr(R, "¤¤µØ¥Á°ê") Then
   
6.         'InStr ¨ç¼Æ ¶Ç¦^¦b¬Y¦r¦ê¤¤¤@¦r¦êªº³Ì¥ý¥X²{¦ì¸m¡A¦¹¦ì¸m¬° Variant (Long)¡C
   
7.             xl_Year = Mid(R, InStr(R, "¤¤µØ¥Á°ê") + 4, InStr(R, "¦~") - InStr(R, "¤¤µØ¥Á°ê") - 4) '¦~«×
   
8.             R = Replace(R, xl_Year, xl_Year + 1911)
   
9.             R = Replace(R, "¤¤µØ¥Á°ê", "")
   
10.         End If
    
11.         Set R = R.Offset(1)
    
12.         Loop
    
13. End Sub

½Æ»s¥N½X

freeffly

¦^´_ 2# GBKEE


    ÁÂÁ¶Wª©¬Û±Ï
   ¤£¹L³o¦U»P§Ú­nªº¦³ÂI®t²§
   §Ú¬O­n¦bBÄæ°µ¤@­Ó¦è¤¸¤é´Á
   
   ¦]¬°§Ú­n¹ï³o¨Ç¸ê®Æ±Æ§Ç
   
   ­è­è·Q¨ì¥Îmid+find+Right+left³o´X¦U¨ç¼Æªº¤è¦¡¥h°µ
   ¼È®Éºâ¬O¥ý¸Ñ¨M¤F

GBKEE

¦^´_ 3# 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.         For i = 1 To .Count
   
8.             xl_Year = Split(.Cells(i), "¦~")
   
9.             xl_Year(0) = xl_Year(0) + 1911 & "¦~"
   
10.             .Cells(i) = Trim(Join(xl_Year, ""))
    
11.         Next
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

HSIEN6001

¦^´_ 3# freeffly

¤]³\³o¬O§A­nªº  ^+++^
   =MID(A1,FIND("¦~",A1)-3,3)+1911&"/"&MID(A1,FIND("¦~",A1)+1,(FIND("¤ë",A1)-FIND("¦~",A1)-1))&"/"&MID(A1,FIND("¤ë",A1)+1,(FIND("¡@",A1)-FIND("¤ë",A1)-2))
=2013/2/23

Hsieh

¦^´_ 1# freeffly

¤U¸ü (463.66 KB)

2013-5-30 20:19

freeffly

¦^´_ 4# GBKEE


    ¦A¦¸·PÁ¤£¹L¥L¤£ºâ¤é´Á®æ¦¡
   ¥Î¨Ó±Æ§ÇµLªk¹F¨ì®ÄªG

freeffly

¦^´_ 5# HSIEN6001


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

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

¤é´Á.rar (13.31 KB)

¤U¸ü¦¸¼Æ: 7

2013-5-31 09:17

freeffly

¦^´_ 6# Hsieh


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

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