vba怎样使用当前日期

vba使用当前日期的方法是利用excel内置函数实现的。

1、excel中函数date的使用方法：

2、在vba中，需要先定义一个变量，然后把date赋值：

dim cuDate as string

cuDate = date

这样变量cuDate就获取到了date的值。

3、运行结果：

Sub test()

Dim cuDate As String

cuDate = Date

MsgBox cuDate

End Sub

工具/材料：Microsoft Office Excel2007版，Excel表格。

1、首先双击打开Excel表格。

2、其次在Microsoft Office Excel2007版界面上，选中底部工作表，右键点击“查看代码”。

3、接着在d出的VBA窗口中，输入日期格式转换的代码“Private Sub dateTra() Dim datetime datetime = "2020/2/13" MsgBox (Format(datetime, "YYYY-MM-DD")) End Sub

”。

4、其次在d出的VBA窗口中，点击工具栏里的三角形图标。

5、最后在Microsoft Office Excel2007版界面上，d出提示框，成功显示日期格式转换。

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

---