求VB公式，在excl中指定某列输入数据，然后指定某列自动循环累加

漫时光

求V公式，在excl中指定某列输入数据，然后指定某列自动循环累加。求助大神！

下面的公式功能是在A1输入12，B1显示12，A1再输入13，B1就循环累加，值为：12+13=25。再次在A1输入10，B1这次的循环累加值为：10+25=35。其余单元格以此类推，只要在A列输入数字，B列就自动循环累加。

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Range("B" & Target.Row) = Val(Range("B" & Target.Row)) + Val(Target)End Sub

在上面这个公式中是默认A作为输入列，但是我想把A列、B列改成其他 的，比如C、E等等的，变成其他指定项，求大神能否重新写个公式，或则上面那个修改下，谢谢

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = Cells(1, "C").Column Then
        Dim x As Range
        Set x = Cells(Target.Row, "E")

        With Application
            .EnableEvents = 0
            x = x + Target
            .EnableEvents = 1
        End With
    End If

End Sub

漫时光

爱疯 发表于 2019-12-17 14:52
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = Cells(1, "C").Column T ...

可以了，感谢