Excel 根据已验证单元格对单元格进行数据验证

我希望在以下情况下应用Excel 2013中的验证数据： A13中有A1:A12中的值之和。

---

我想申请单元格A1:A12数据验证，以便A13数据验证要求以下数字：

=500+A1-SUM(A$1:A$12)

---

（对于单元格

A1

——您可以轻松地将该条件应用于其他单元格）

我用几个宏解决了这个问题

Dim oldValue

Public Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    Dim KeyCells As Range
    Set KeyCells = Range("A1:A12")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        For Each cell In Target.Cells
            If Range("A13").Value > 500 Then
                MsgBox "Error: A13 can not be greater than 500"
                cell.Value = oldValue
            End If
        Next
    End If
End Sub

Public Sub Worksheet_SelectionChange(ByVal Target As Range)
    oldValue = Target.Cells.Value
End Sub

---

我遇到了你同样的错误。我想知道通过单击离开单元格的事件是否与按enter键的事件不同？能否发布验证宏？它不是宏，我是在没有vbaWell的情况下完成的，我可以执行偶数=总和（a$1:a$12）