excel - 将一个单元格的值添加到另一个单元格，然后重置单元格值。 Excel

Question

希望有人可以回答我们。

我们想做以下事情:

当在 A1 中输入一个值时，该值将添加到 B1 的值中。

然后我们希望 A1 的值也重置为 0，但保留 B1 的值

这在excel中可能吗？

Answer 1

在工作表的 VBA 私有(private)模块上(右键单击报告选项卡并点击“查看代码”)，输入以下代码:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Address = Range("a1").Address Then
        Range("b1") = Range("b1") + Range("a1")
        Range("a1").ClearContents
    End If
    Application.EnableEvents = True
End Sub

Worksheet_Change每当对工作表进行更改时都会调用。
Application.EnableEvents=False防止代码连续运行(没有它，对 B1 的更改也会调用 Worksheet_change)。

此代码假定 B1 中的值始终为数字(或空白)。如果它可能包含字 rune 本，则需要进行检查以重置其值或不进行增量。