求助:在Excel工作表中,如:在A1单元格里输入数据(A1单元格的数据是经常该变),A2单元格里数据自动累加

A2单元格的数据,无论A1单元格里的数据怎么变化,A2单元格的数据始终自动累加A1单元格的数据?我是说:“A2单元格的数据始终自动累计A1单元格每次修改的数据?(从第一次... A2单元格的数据,无论A1单元格里的数据怎么变化,A2单元格的数据始终自动累加A1单元格的数据?
我是说:“A2单元格的数据始终自动累计A1单元格每次修改的数据?(从第一次到N次数据修改的累计)”
展开
 我来答
__________321
2011-05-02 · TA获得超过1087个赞
知道小有建树答主
回答量:549
采纳率:0%
帮助的人:526万
展开全部
公式做不出这种效果
VBA
需要 [A1]双击输入 更改值
原理 在B1里 记录累计过程
为了避免看到B1值 可以设置成白色字体 或者把累计值改到不显眼地方 比如[a65000]
调整过程可以自己手动给代码
在 thisworkbookli里
加入以下代码

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then [B1] = [A2]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then [A2] = [A1] + [B1]
End Sub

#########切忌 更改[A1]使用双击方法才有效###########
追问
谢谢!讲的详细一点?操作步骤
追答
晚上 联系我 发实例 给你
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hyf833
2011-05-09 · TA获得超过561个赞
知道小有建树答主
回答量:335
采纳率:12%
帮助的人:196万
展开全部
工作表名上右键,查看代码,输入:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
[A2] = [A2] + [A1]
End If
End Sub

说明:当A1被编辑后,把A1的值叠加到A2里。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
Labra
2011-05-02 · TA获得超过627个赞
知道小有建树答主
回答量:723
采纳率:40%
帮助的人:338万
展开全部
累加?如果你替换了a1的,只能手动去累加了,因为链接只能是对本次的结果计算
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式