如何用VBA来控制excel中的自动当前日期

2024-11-12 07:26:01

推荐回答（5个）

回答1：

Private Sub Workbook_Open()
If [a1] = "" Then
[a1] = Date
Else
Exit Sub
End If
End Sub

在工作表标签，右键，查看代码。
双击Thisworkbook，得到一个代码窗口
将这段代码粘贴到Thisworkbook的代码窗口内即可
a1是一个单元格地址
要改变日期的存放地址，请将a1更改为其它单元格地址即可

回答2：

'设a1中为公式产生的日期

Private Sub Workbook_BeforeClose(Cancel As Boolean)
[a1] = [a1]
End Sub

回答3：

不改变原始表格数据，打印时自动添加打印日期。

回答4：

=today()

回答5：

直接用now函数不就行了？