![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
在Excel工作表中,如:在A1单元格里输入数据(A1单元格的数据是经常改变),A2单元格里数据自动累加
展开全部
公式做不出这种效果
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]使用双击方法才有效###########
以上回答你满意么?
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]使用双击方法才有效###########
以上回答你满意么?
追问
我都看不懂这个的意思 我还是不知道怎么设置
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |