如果单元格值范围发生更改，请在 Excel 中运行保存的宏

Question

亲爱的，我的工作表中保存了一个宏，用于在修改或编辑工作表时将日期更新为单元格中的上次修改日期（“”D11”），但有时我忘记按宏按钮来运行它并更新表格日期...

您能帮我让它在单元格范围（“D22：J22”）值更改时运行吗？ 我的宏名称是（“更新”），这是我的代码...

Sub update()
Range("D11").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save time"), "short date")

End Sub

Answer 1

右键单击要运行代码的工作表的选项卡，然后选择 查看代码

在打开的代码屏幕上输入此代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("D22:J22"), Target) Is Nothing Then
        Range("D11").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save time"), "short date")
    End If
End Sub 

注意： 如果您在工作表中已经有

Worksheet_Change

代码，则需要将其合并到其中 - 您不能有两个同名的过程。

NB2： 仅当您手动更新单元格时才会触发此代码，而不是因为它们包含公式而更新。