Excel 单元格值增加 1 时自动保存

Question

我正在尝试创建一个宏，只要特定单元格中的值增加 1，它就会自动保存我的 excel 工作簿。

我有每当单元格更改时自动保存的代码，我将在下面post；

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A2")) Is Nothing Then
        ThisWorkbook.Save
    End If
End Sub

但是，我似乎无法调整宏代码使其仅在单元格中的值增加 1 时执行。即单元格值为10，只有当单元格值为11时才保存工作簿，依此类推。

谢谢。

编辑：问题已经解决。如果有人正在寻找解决方案，请查看此 post：https://superuser.com/questions/1265717/excel-auto-save-macro

Answer 1

您可以使用 Worksheet_SelectionChange 获取单元格的旧值 (Binils's answer)，然后进行适当的比较 (newval - oldval = 1)。

Excel 单元格值增加 1 时自动保存

Excel autosave when cell value is increases by 1

excel

vba

autosave