Excel如何使自动SUM表单

我想，然后在自动求和的单元格中input一个数字（值）（或者点击“进入”或点击button后效果会更好），结果显示在另一个单元格中。 之后，单元格变空了，我可以在同一个单元格中input下一个值。 例如。 我有两个单元格A2和B2 。 首先，我总是input数据，在第二部分总数。 所以如果我们在B2单元格中得到结果“230”。 然后按回车键后input单元格A2 100或者某个button后， B2的结果变为“330”，之后变成空的A2 。 而且这个我可以做很多次。

请帮助我的代码。 提前致谢。

Answer 1

你需要一个macros，当单元格值发生变化时触发。 以下代码在工作表更改事件上被触发，然后检查单元格是否更改为A2而不是空的。 如果是，则将A2的值添加到B2的当前值，并将A2设置为空。

 Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("A2") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing _ And Range("A2") <> "" Then Range("B2").Value = Range("B2").Value + Range("A2").Value Range("A2").Value = "" Range("A2").Select End If End Sub 

将此macros添加到当前工作表中，然后将任何inputA2数字添加到当前的B2值中。

这只是简单的示例代码，所以您可能需要修改以适应您的特定需求。 我会研究validation条目是数字而不是文字也。

Answer 2

PFB为您的要求所需的代码。 此macros将单元格A2和B2中的值相加，并在单元格B2中输出。

 Sub AutoSumming() 'Declaring variables Dim Variable1, Total As Long 'Initializing the variables Variable1 = Range("A2").Value Total = Range("B2").Value 'Performing the sum Total = Total + Variable1 'Reassign values back to cells Range("B2").Value = Total Range("A2").Value = "" End Sub