Vba Excel如何制作自动求和表单

我想要，然后我在单元格中输入一个数字（值），它会自动求和（或者在单击“回车”或单击按钮后效果更好），结果显示在另一个单元格中。之后，单元格变为空，我可以在同一单元格中输入下一个值。 例如我有两个单元格

A2

和

B2

。在第一个窗口中，我总是输入数据，在第二个窗口中，显示总数。因此，如果我们进入单元格B2，结果是“230”。然后我在按下回车键或某个按钮后在单元格

A2

100中输入

B2

中的结果变为“330”，然后

A2

变为空。我想做多少次就做多少次

---

请帮我查一下密码。提前感谢。

您需要一个宏，当单元格值更改时触发该宏。工作表更改事件触发以下代码，然后检查更改的单元格是否为

A2

且不为空。如果是这样，则将

A2

的值添加到

B2

的当前值，并将

A2

设置回null

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

Private子工作表\u更改（ByVal目标作为范围）
暗淡的关键单元格作为范围
设置关键单元格=范围（“A2”）
如果不是，则Application.Intersect（keycell，Range（Target.Address））什么都不是_
那么范围呢
范围（“B2”）.值=范围（“B2”）.值+范围（“A2”）.值
范围（“A2”）。值=“”
范围（“A2”）。选择
如果结束
端接头

将其作为宏添加到当前工作表中，然后您在

A2

中输入的任何数字都将添加到

B2

的当前值中

---

这只是一个简单的示例代码，因此您可能需要修改以满足您的特定需要。我会研究确认条目是数字，而不是文本

根据您的要求提供所需代码的PFB。此宏将对单元格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 

---

发布你到目前为止的代码…你都尝试了什么？谢谢你们的帮助，最后的代码工作得很好