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

 我来答

3个回答

#合辑# 机票是越早买越便宜吗？

电子数码小百科NW
2020-02-17 · TA获得超过6493个赞

知道答主

回答量：15

采纳率：0%

帮助的人：4027

我也去答题访问个人页

关注

展开全部

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

已赞过 已踩过<

评论收起

博思aippt
2024-07-20 广告

作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT... 点击进入详情页

本回答由博思aippt提供

K_BEAT
2016-11-11 · TA获得超过1245个赞

知道小有建树答主

回答量：879

采纳率：91%

帮助的人：402万

我也去答题访问个人页

关注

展开全部

下面演示三种方法：

' 方法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

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