excel - 如何将单元格A和B中的两个手动输入的数字相加，并使用excel-VBA自动在单元格C中输出它们旁边的结果？

Question

我对 excel-VBA 还是很陌生，我想

自动将单元格 A10:A12 和 B10:B12 中两个手动输入的数字相加，并在单元格 C 中给出结果，而不使用公式 =SUM()

先感谢您！！

标签： excelvba

Answer 1

对于 Target 中的每一行，将 A 列和 B 列加到 C 列中。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A10:B12")) Is Nothing Then
        On Error GoTo meh
        Application.EnableEvents = False
        Dim t As Range
        For Each t In Intersect(Target, Range("A10:B12"))
            Cells(t.Row, "C") = Application.Sum(Cells(t.Row, "A"), Cells(t.Row, "B"))
        Next t
    End If

meh:
    Application.EnableEvents = True
End Sub