作者：乔山办公网日期：
返回目录：excel表格制作
A1=
2013-06-13 08:36:00
B1=
=YEAR(A1)&TEXT(MONTH(A1),"00")&TEXT(DAY(A1),"00")
C1=
=TEXT(HOUR(A1),"00")&TEXT(MINUTE(A1),"00")&TEXT(SECOND(A1),"00")
1、打开桌百面上的Excel表格，在新建一个工作样表。
2、接着使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块。
3、输入以下代码：Option ExplicitSub ddt()Dim rq As DateDim lx As StringDim n As IntegerDim Msglx = "m"rq = InputBox("请输入一个日期度")n = InputBox("输入增加月的数目：")Msg = "新日期:" &DateAdd(lx, n, rq)MsgBox MsgEnd Sub。
4、这里先对变量版做声明，其中rq变量为日期类型，lx为字符串，n为整权数型。msg并没有设置具体类型，vba会将其默认为可变类型variant。
5、输入日期并没有做错误纠正，最好输入2020/2/17这样的格式日期。增加的月数是赋值给了n这个变量。
6、最后用msgbox来输出最后的结果，就完成了。
把代码修改为：
[A1] = Year(Now()) & "年" & Month(Now()) & "月" & Day(Now()) & "日报表"
在VBA中，没有Today函数