register313

¦^´_ 8# myleoyes

1. Sub ¤é´Á()
   
2. ZZ = InputBox("¿é¤J¤é´Á", "½Ð¿é¤J¤é´Á", "101/12/30")
   
3. If ZZ = 0 Or ZZ = "" Then End
   
4. a = Split(ZZ, "/")
   
5. a(0) = a(0) + 1911
   
6. [B3] = Join(a, "/")
   
7. [B3].NumberFormat = "e/m/d"
   
8. Range("B3:B" & [A152].End(3)).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, Step:=1
   
9. [B:B].EntireColumn.AutoFit
   
10. End Sub

½Æ»s¥N½X