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

您可以使用以下VBA函数来实现在B2单元格输入单日日期，或者一个日期范围，sheet1的数据跟着变化的功能：

vbnet

Sub UpdateData()

Dim ws As Worksheet

Dim lastRow As Long

Dim lastCol As Long

Dim i As Long

'获取当前工作表

Set ws = ThisWorkbook.Worksheets("Sheet1")

'获取最后一行和最后一列

lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row

lastCol = ws.Cells(Rows.Count, "A").End(xlUp).Column

'输入单日日期

ws.Cells(1, 1).Value = "2023-03-17"

'输入日期范围

ws.Cells(1, 2).Value = "2023-03-01"

ws.Cells(1, 3).Value = "2023-03-10"

ws.Cells(1, 4).Value = "2023-03-20"

'更新数据

ws.Range("B2").Value = "2023-03-17"

'循环遍历所有行和列

For i = 2 To lastRow

If ws.Cells(i, 1).Value <>"" Then

ws.Cells(i, 1).Offset(0, 1).Value = ws.Cells(i, 1).Value

End If

Next i

End Sub

这个函数首先获取当前工作表，然后获取最后一行和最后一列。接下来，它输入单日日期，并指定日期范围。最后，它更新B2单元格的值，并循环遍历所有行和列，以便将日期范围应用到所有行和列。

---