- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦U¦ì«e½ú§A̦n!
«e½ú!!³o¼Ëªº¤é´Á§ÎºAµ{¦¡µLªk¤U©Ô
Sub ¤é´Á()
ZZ = InputBox("¿é¤J¤é´Á", "½Ð¿é¤J¤é´Á", "101/12/30")
If ZZ = 0 Or ZZ = "" Then End
A = Split(ZZ, "/")
A(0) = A(0) + 1911
[B3] = Join(a, "/")
[B3].NumberFormat = "e/m/d"
[B3] = Format(ZZ, "[$-404]e/m/d")
[B3] = ZZ
Range("B3:B" & [a152].End(3).Row).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlYear, Step:=1
[B:B].EntireColumn.AutoFit
End Sub
µ{¦¡¼g¥Xªº[B3] =101/12/30
¦ÓB4=102/12/30 ¤½¦¡B4=EDATE(B3,12)³o¼Ë¬O¿ù»~È
½Ð°Ý³o¨âÓ°ÝÃD µ{¦¡»P¤½¦¡n¦p¦ó°µ¦n?
½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!! |
|