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

时间:2015-07-16 18:36:36

标签: excel excel-2010

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

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

这是情景:

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

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

可以这样做吗?

感谢您提供任何想法。

1 个答案:

答案 0 :(得分:0)

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

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 ......你已被警告过了!