我有一个Excel电子表格,我想在单元格中的日期上添加1年。
单元格B3当前值为1/1/2014
想要创建一个将日期更改为2015年1月1日的宏
看起来很容易,但是我对此的搜索没有得到期望的结果。任何帮助,将不胜感激。
选择您的单元并运行:
Sub dateFixer()
Dim d As Date
d = ActiveCell.Value
ActiveCell.Value = DateSerial(Year(d) + 1, Month(d), Day(d))
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句