在单元格A1中进行任何更改时，如何将单元格A2的值更改为"Today()“？

要在单元格A1中的内容发生更改时自动将单元格A2的值设置为当前日期，你可以使用Excel中的公式和一些简单的VBA（Visual Basic for Applications）代码来实现这个功能。以下是详细的步骤和代码示例：

步骤1：启用宏

1. 打开Excel工作簿。
2. 按 Alt + F11 打开VBA编辑器。
3. 在“项目资源管理器”中，右键点击你的工作簿名称，选择“插入” -> “模块”。

步骤2：编写VBA代码

在模块中粘贴以下VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Application.EnableEvents = False
        Me.Range("A2").Value = Date
        Application.EnableEvents = True
    End If
End Sub

这段代码的作用是：

• 当工作表中的任何单元格发生变化时，Worksheet_Change 事件会被触发。
• Intersect(Target, Me.Range("A1")) 检查变化的单元格是否是A1。
• 如果是A1，则将A2的值设置为当前日期（使用 Date 函数）。
• Application.EnableEvents = False 和 Application.EnableEvents = True 用于防止事件处理过程中的无限循环。

步骤3：保存并关闭VBA编辑器

• 点击“文件” -> “关闭并返回Microsoft Excel”。

步骤4：测试功能

• 回到Excel工作表。
• 在A1单元格中输入一些内容，然后按回车。
• 你会发现A2单元格的值自动更新为当前日期。

注意事项

• 确保你的Excel启用了宏，否则VBA代码将无法运行。
• 如果你在共享工作簿中使用此功能，可能需要额外的设置来允许宏运行。

通过这种方式，你可以实现当单元格A1的内容发生变化时，自动更新单元格A2为当前日期的功能。这种方法不仅简单，而且非常实用，适用于需要实时记录日期的各种场景。