求助，如图表所示累加

cky123321

每日累加  求大神VB

cky123321

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

cky123321

cky123321 发表于 2020-11-20 15:56
Private Sub Worksheet_Change(ByVal Target As Range)

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

这个公示怎么用

心正意诚身修

用函数做。感觉 是个简单问题。但表示 没有看懂。

liyh67

任务进度表.zip (19.07 KB, 下载次数: 3)

2020-11-22 14:03 上传

点击文件名下载附件