Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

工作中常用的Excel函数公式,全印在一张超大鼠标垫上
查看: 211|回复: 4

求助,如图表所示累加

[复制链接]
发表于 2020-11-20 15:19 | 显示全部楼层 |阅读模式
每日累加  求大神VB

任务进度表.zip

15.47 KB, 下载次数: 10

 楼主| 发表于 2020-11-20 15:56 | 显示全部楼层

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
回复

使用道具 举报

 楼主| 发表于 2020-11-20 15:57 | 显示全部楼层
cky123321 发表于 2020-11-20 15:56
Private Sub Worksheet_Change(ByVal Target As Range)

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

这个公示怎么用

回复

使用道具 举报

发表于 2020-11-21 13:06 | 显示全部楼层
用函数做。感觉 是个简单问题。但表示 没有看懂。
回复

使用道具 举报

发表于 2020-11-22 14:03 | 显示全部楼层
任务进度表.zip (19.07 KB, 下载次数: 0)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2021-1-28 11:12 , Processed in 0.124801 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表