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

I have been unable to find a way to create a kind a score tracker.

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

I want to have 2 cells... one to capture a value and one to keep a running total.

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

This is the scenario:

这是场景:

Cell B1 will contain a running total of points scored. Cell A1 will allow the user to input a score.

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

I need The value entered in A1 to be added to the current total in B1. Once B1 has been updated with the added value, cell A1 should be cleared to be ready for then next score.

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

Can this be done?

可以这样做吗?

Thanks to all for any ideas you can offer.

感谢所有您提供的任何想法。

1 个解决方案

#1

Try this in the one of the worksheet modules ...

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

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

By all means try it without the bIgnoreEvent bit as follows so you can see why it is necessary. I recommend you do this after you have saved your current work ...

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

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

... because it WILL CRASH EXCEL ... you have been warned!

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

#1