Excel 怎么用VBA代码表示日期“今天”

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来输出最后的结果，就完成了。

下面演示三种方法：

' 方法1
Sub GetToday1()
    MsgBox CDate(Evaluate("=TODAY()"))
End Sub

' 方法2
Sub GetToday2()
    MsgBox FormatDateTime(Now, vbShortDate)
End Sub

' 方法3
Sub GetToday3()
    MsgBox Date
End Sub

以上三种方法都可以输出操作系统当天日期：

date
显示系统日期