将单元格的值添加到另一个单元格，然后清除它

Question

我一直无法找到一种方法来创建一种得分跟踪器。

我希望有2个单元格...一个用于捕获一个值，另一个用于保持运行总计。

这是情景：

Cell B1将包含得分的总计得分。 单元格A1将允许用户输入分数。

我需要在A1中输入的值添加到B1中的当前总数。 使用附加值更新B1后，应清除单元格A1以准备接下来的分数。

可以这样做吗？

感谢您提供任何想法。

Answer 1

在其中一个工作表模块中试试......

Private bIgnoreEvent As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
    If bIgnoreEvent Then Exit Sub
    bIgnoreEvent = True
    Cells(1, 2) = Cells(1, 2) + Cells(1, 1)
    Cells(1, 1) = ""
    bIgnoreEvent = False
End Sub

一定要尝试不使用bIgnoreEvent位，如下所示，这样你就可以看出为什么有必要了。我建议您在保存当前工作后执行此操作...

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(1, 2) = Cells(1, 2) + Cells(1, 1)
    Cells(1, 1) = ""
End Sub

...因为它会崩溃EXCEL ......你已被警告过了！