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

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

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

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

Book1.rar (5.6 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-5-30 17:48 ½s¿è

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2013-5-30 19:59 ½s¿è

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

TOP

¦^´_ 1# freeffly

play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# GBKEE


    ¦A¦¸·PÁ¤£¹L¥L¤£ºâ¤é´Á®æ¦¡
   ¥Î¨Ó±Æ§ÇµLªk¹F¨ì®ÄªG
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥»©«³Ì«á¥Ñ freeffly ©ó 2013-5-31 09:18 ½s¿è

¦^´_ 5# HSIEN6001


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

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

¤é´Á.rar (13.31 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 6# Hsieh


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

TOP

¦^´_ 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
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD